请教一个VB代码问题

来源：百度知道 编辑：UC知道 时间：2024/05/27 12:52:12
怎么编写一个天数记录器啊？比如2000年1月1日到今天，他可以显示经过了几天？每过一天自动累加1天，或者有没有类似的软件啊？
谢谢高手赐教

有2种办法，一就是记录到文件，二是记录到注册表。
给个简单的方法给你。
Private Sub Command1_Click()
a = #3/2/2005# '设置a,是2005年2月3号.
b = Date - a
MsgBox "从" & year(a) & "年" & month(a) & "月" & day(a) & "日,到今天为止过了" & b & "天" '就是从2005年2月3号到今天过了多少天.
End Sub
'自己试试看吧.

在窗体代码区复制下面代码，运行，就会显示出结果，且每每过一天自动累加1天。

Option Explicit
Private Sub Form_Load()
Me.Caption = "2000年1月1日到今天还有：" & Date - #1/1/2000# & "天"
End Sub

DateDiff("d", "2000-1-1", Now)
截止2008-11-4共3230天