VB6.0 倒计时的小程序

Dim ydsj As Date

Private Sub Form_Load()

ydsj = InputBox("请输入约定时间！格式如括号里：（年号/月号/日子）或者又如括号里：（年号/月号/日子空格小时：分钟：秒数）如下格式：", , "2011/1/1 00:00:00")

Timer1Enabled = 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

'秒

Label1Caption = "当前时间是：" & Now & " 距 " & ydsj & "还有（" & syn & "）个年头+（" & syy & "）个月份+（" & syr & "）个日子+（" & syh & "）小时+（" & sym & "）分钟+（" & sys & "）秒；合计＝： （" & sysj & "）天！"

ElseIf Now = ydsj Then

Label1FontSize = 28

Label1ForeColor = &HFF&

Label1Caption = ydsj & "到了！祝您在以后的日子里万事如意，身体安康！88！88！"

Timer1Interval = 8888

ElseIf Now > ydsj Then

Label1FontSize = 28

Label1ForeColor = &HFF0000

Label1Caption = ydsj & "已经过了！祝您万事如意，身体安康！"

End If

End Sub

微信小程序如何添加：

第一步、更新微信版本是653，如何查看自己的版本号(点击：我——设置——关于微信)

第二步、 方法1：打开别人发给你或者扫描一个小程序二维码。

方法2：可以在微信端首页的搜索窗口，你可以通过搜索“小程序示例”，获取一个小程序。点击进去，等小程序加载完后，微信端就会自动出现小程序的按钮。

第三步、再打开微信，点击底部的「发现」按钮，你会发现，页面中多了一栏图标为 S 型的「小程序了，点击即可进入小程序页面。

1、打开电脑管家主界面u点击右下角的“工具箱”;

2、在工具箱的其他分类中选择内打开“健康小容助手”;

3、健康小助手中有三项功能，护眼配色、定时休息和定时关机，点击定时关机的编辑图标;

4、输入每天定时关机的时间，可根据情况选择“提醒我关机”或“自动关机”;

5、然后点击下方的“未启用”将其设置为“已启用”即可。

首先你自己定义 的方法 名称 用 Sleep ， 这样会和系统里定义的Sleep方法 产生冲突，具体会执行哪一个我没有细测，但是会造成未知异常，改成其他的方法名。

还有就是if (_tcscmp(argv[1], _T("/5")) == 0) ，这儿，是判断调用参数的，你要用带参数的方式运行程序才可以 ，不然如果argv的项不足2，那么argv[1]会造成数组越界，运行出错。

以上就是关于VB6.0 倒计时的小程序全部的内容，包括:VB6.0 倒计时的小程序、微信小程序定时器倒计时导致页面其他时间变化、求win7倒计时小程序，桌面可显示的那种等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！