VB 计时控件的使用。怎样将它们相加成一个有小时与分钟 的时间呢？

来源：百度知道 编辑：UC知道 时间：2024/06/27 12:31:13
如：我一共有14个定时事件，分别为EHour Emin 时间与分钟的分开的，怎样将它们相加成一个 有小时与分钟 的时间呢？
还有，在有timer1 的情况下，如何实现，14 个时间 一个接一个的发生呢？

晕 需要用这么多个timer吗？ 一个timer就可以完成这样的功能啦

给一个示例代码给你

'窗体上放一个Timer控件

Dim vHour%, vState$
Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()

vHour = Hour(Time)
If vHour > 7 And vHour < 12 Then vState = "上午"
If vHour > 11 And vHour < 13 Then vState = "中午"
If vHour > 12 And vHour < 17 Then vState = "下午"
If vHour > 16 And vHour < 24 Then vState = "晚上"
If vHour > -1 And vHour < 6 Then vState = "凌晨"
If vHour > 4 And vHour < 8 Then vState = "早上"
Me.Caption = vState & "好,现在时间是: " & IIf(Hour(Time) > 12, Hour(Time) Mod 12, Hour(Time)) & ":" & Minute(Time) & ":" & Second(Time)
End Sub