如何编辑一个倒计时的电脑程序

答案:2 悬赏:10 手机版

解决时间 2021-04-29 08:59

提问者网友：那叫心脏的地方装的都是你
2021-04-28 12:02

如何编辑一个倒计时的电脑程序

最佳答案

五星知识达人网友：等灯
2021-04-28 12:29

开始运行;shutdown -s -t 300 300秒后倒计时关机! 呵呵..最简单!

全部回答

1楼网友：胯下狙击手
2021-04-28 13:35

Private DatNow As Date, Y As Integer Private Sub Timer1_Timer() Me.Cls DatNow = #6/6/2012 7:30:50 PM# - Now Y = 2012 - Val(Year(Now)) Print "距离 2012年6月6号下午7点30分50秒还有 " & Y & "年" & _ Month(DatNow) & "月" & _ Day(DatNow) & "天" & _ Hour(DatNow) & "小时" _ ; Minute(DatNow) & "分钟" _ ; Second(DatNow) & "秒钟" End Sub

Private Sub Timer1_Timer() Dim timenow As Date timenow = #4:00:00 PM# - Time Me.Cls Print "距离下午4点还有" & Hour(timenow) & "时" & _ Minute(timenow) & "分" & _ Second(timenow) & "秒" If Time = #4:00:00 PM# Then MsgBox "时间到" End If End Sub

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！