有 年差 日差 小时差 分钟差 秒差可以计算例如以下这个功能
开始2007.1.1. 00：00 结束2007.1.7. 13：00
现在是 2007.1.3.12.03
剩下多少 日 小时 分钟 秒 时间已经过了百分之多少
需要大家帮忙，需要此程序的目的是 告诫自己不要浪费时间

需要大家帮忙，共享

[此贴子已经被作者于2007-1-3 12:13:15编辑过]

Option Explicit
Dim d1 As Date, d2 As Date
Private Sub Command1_Click()
Dim a As String, b As Long
d1 = Text1
d2 = Text2
insptr "从" & Cstr(d1) & " 到 " & Cstr(d2) & " 还剩下:", a
insptr "年:" & Int(Datediff("d", d1, d2) / 365), a
insptr "月:" & Datediff("m", d1, d2), a
insptr "日:" & Datediff("d", d1, d2), a
insptr "时:" & Datediff("h", d1, d2), a
insptr "分:" & Datediff("n", d1, d2), a
insptr "秒:" & Datediff("s", d1, d2), a
Msgbox a, vbInformation, "The Time"
End Sub

Private Sub Command2_Click()
Timer1 = True
End Sub

Private Sub Form_Load()

Text1 = Format(Now, "yyyy-m-dd HH:mm:ss")
'd1 = #8/13/1987#
'd2 =Format(Now, "yyyy - m - dd")

End Sub

Private Sub insptr(strs As String, dst As String)
dst = dst & strs & vbCrLf
End Sub

Private Sub Timer1_Timer()
Text1 = Format(Now, "yyyy-m-dd HH:mm:ss")
End Sub

希望大家忙帮

[此贴子已经被作者于2007-1-3 12:56:01编辑过]