vb时间函数问题

显示全部楼层 · 2009-8-3 18:31:19

Private Sub Command1_Click()a = Text1.Textb = Text2.Textc = Text3.Textd = Text4.Textbd1 = Val(b) + Val(d)If bd1 >= 60 Then bd1 = bd1 - 60 bd = 1Else bd = 0End IfIf bd1 < 10 Then bd2 = "0" & bd1 Else bd2 = bd1ac1 = Val(a) + Val(c) + bdLabel1 = ac1 & ":" & bd2End Sub

千问 · 2009-8-3 18:31:19

private sub command_click()label.caption = val(a)+ val(b) + (val(b)+val(d))\60 & ":" & (val(b)+val(d)) mod 60end sub

千问 · 2009-8-3 18:31:19

一个TimeSerial函数就行，不必二次：Label1 = TimeSerial(Val(A) + Val(C), Val(B) + Val(D), 0)

千问 · 2009-8-3 18:31:19

TimeSerial函数。Label1 = Format(TimeSerial(VAL(A),VAL(B)) + TimeSerial(VAL(C),VAL(D)),"HH:MM")