VB6.0 倒计时的小程序
程序能够提供备忘记事 就是闹铃的时候能够弹出一个文本
谢谢高手了 展开
Dim ydsj As Date
Private Sub Form_Load()
ydsj = InputBox("请输入约定时间！格式如括号里：（年号/月号/日子）或者又如括号里：（年号/月号/日子空格小时：分钟：秒数）如下格式：", , "2011/1/1 00:00:00")
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim dqnyr As Date
If Now < ydsj Then
sysj = ydsj - Now
syn = Year(ydsj) - Year(Now) - 1
If Year(ydsj) = Year(Now) Then syn = syn + 1 '年
syy = 12 - Month(Now) & "+" & Month(ydsj) - 1 & "=" & 12 - Month(Now) + Month(ydsj) - 1
If Year(ydsj) = Year(Now) Then
syy = Month(ydsj) - Month(Now) - 1
If Month(ydsj) = Month(Now) Then syy = syy + 1
End If '月
dqnf = Year(Now)
dqyf = Month(Now)
If dqyf = 12 Then
dqyf = 1
dqnf = dqnf + 1
End If
dqnyr = dqnf & "-" & dqyf & "- " & 1
syr = Fix(dqnyr - Now) & "+" & Day(ydsj) - 1 & "=" & Fix(dqnyr - Now) + Day(ydsj) - 1
If Year(ydsj) = Year(Now) And Month(ydsj) = Month(Now) Then syr = Fix(dqnyr - Now) - Fix(dqnyr - ydsj) '日
nowh = Format(Now, "hh")
nowm = Format(Now, "nn")
nows = Format(Now, "ss")
now1 = Date + 1
dqsyhms = now1 - Now
nowsyh = Format(dqsyhms, "hh")
nowsym = Format(dqsyhms, "nn")
nowsys = Format(dqsyhms, "ss")
ydhms = Format(ydsj, "hh:mm:ss")
ydh = Format(ydsj, "hh")
ydm = Format(ydsj, "nn")
yds = Format(ydsj, "ss")
syh = nowsyh & "+" & ydh & "=" & Val(nowsyh) + Val(ydh)
bzd = Format(ydsj, "yyyy-m-d")
If Format(Now, "yyyy-mm-dd") = Format(ydsj, "yyyy-mm-dd") Then
syh = ydh - nowh
End If '时
sym = nowsym & "+" & ydm & "=" & Val(nowsym) + Val(ydm)
If Format(Now, "yyyy-mm-dd hh") = Format(ydsj, "yyyy-mm-dd hh") Then
sym = ydm - nowm
End If '分
sys = nowsys & "+" & yds & "=" & Val(nowsys) + Val(yds)
If Format(Now, "yyyy-mm-dd hh:nn") = Format(ydsj, "yyyy-mm-dd hh:nn") Then
sys = yds - nows
End If '秒
Label1.Caption = "当前时间是：" & Now & " 距 " & ydsj & "还有（" & syn & "）个年头+（" & syy & "）个月份+（" & syr & "）个日子+（" & syh & "）小时+（" & sym & "）分钟+（" & sys & "）秒；合计＝： （" & sysj & "）天！"
ElseIf Now = ydsj Then
Label1.FontSize = 28
Label1.ForeColor = &HFF&
Label1.Caption = ydsj & "到了！祝您在以后的日子里万事如意，身体安康！88！88！"
Timer1.Interval = 8888
ElseIf Now > ydsj Then
Label1.FontSize = 28
Label1.ForeColor = &HFF0000
Label1.Caption = ydsj & "已经过了！祝您万事如意，身体安康！"
End If
End Sub
AiPPT
2024-09-19 广告
Label1.Caption = 10
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim a
Label1.Caption = Label1.Caption - 1
If Label1.Caption = 0 Then
MsgBox "时间到！"
Unload Me
End If
End Sub
这个做的比较简单，只是个倒计时的，一个Label和一个Timer控件就好
