Timer时间累加

[abc_2004]

现有时间10:10:01,
请问怎样能实现
10:10:01 +1秒10:10:02一直按时间格式累加,跟时钟一样
Private Sub Timer1_Timer()
text1.text=
End Sub

[threenewbee]

Private t As Integer Sub Form_Load() t = 10 * 3600 + 10 * 60 + 1 ' 10:10:01 End Sub Private Sub Timer1_Timer() t = t + 1 Dim h As Integer h = t \ 3600 Dim m As Integer m = (t - h) \ 60 Dim s As Integer s = (t - h) % 60 Text1.Text = IIf(h > 9, h, "0" & h) & ":" & IIf(m > 9, m, "0" & m) & ":" & IIf(s > 9, s, "0" & s) End Sub

[abc_2004]

Private t As Integer Sub Form_Load() t = 10 * 3600 + 10 * 60 + 1 ' 10:10:01 ''这里发生错误--溢出 End Sub

[threenewbee]

引用 2 楼 abc_2004 的回复:

Private t As Integer Sub Form_Load() t = 10 * 3600 + 10 * 60 + 1 ' 10:10:01 ''这里发生错误--溢出 End Sub

sorry 定义成 Long。Integer最大只有32768，是不够的。 s = (t - h) % 60 => s = (t - h) Mod 60

[abc_2004]

楼主定义成long也溢出

[abc_2004]

现在我改小时间是可以运行但时间不对 会有01：61：01。

[yachong]

t = 10 * 3600& + 10 * 60 + 1

[abc_2004]

谢谢楼主，终于搞OK啦。 Private Sub Timer1_Timer() t = t + 1 Dim h As Integer h = t \ 3600 Dim m As Integer m = (t - h*3600&) \ 60 Dim s As Integer s = (t - m) mod 60