VB拆分时间

先把系统时间读取出来（格式 XX:XX）然后拆开分别输出到ABCD就是AB:CD如果时间是23：15 那么 A=2 B=3 C=1 D=5

2026年09月25日 00:09

有2个网友回答

网友（1）：

Dim time, A, B, C, D As String
time = Format(Now(), "HH:mm")
A = Mid(time, 1, 1)
B = Mid(time, 2, 1)
C = Mid(time, 4, 1)
D = Mid(time, 5, 1)
MsgBox ("A=" + A + " B=" + B + " C=" + C + " D=" + D)

网友（2）：

Private Sub Command1_Click()

Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim S As String

S = Format(Now, "HH:MM")
A = CInt(Mid(S, 1, 1))
B = CInt(Mid(S, 2, 1))
C = CInt(Mid(S, 4, 1))
D = CInt(Mid(S, 5, 1))

End Sub