写一个SUB 或者FUNCTION
运用SELECT CASE 语句来转换
这是我简单写的
你看看吧
Private Sub Command1_Click()
MsgBox GetNormalTime(Mid(Time, 1, 2)) & Mid(Time, InStr(1, Time, ":"), Len(Time) - InStr(1, Time, ":") + 1)
End Sub
Function GetNormalTime(ByVal lTime As Integer) As String
If lTime < 0 Then Exit Function
If lTime > 12 Then
Select Case lTime
Case Else
GetNormalTime = lTime - 12
End Select
Else
GetNormalTime = lTime
End If
End Function
