Question

vb 求个日期计算器 精确到秒 的

要求
变量a，1.一个label1，1个timer1，1个text1，一个command1
textbox：用于输入日期
格式：yyyy mm dd hh:mm:ss
--------年---月--日--时--分--秒
然后点击按钮后，label1显示出当前距离text1的日期还有
yyyy年mm分dd日hh时mm分ss秒【使用timer】

a为当前距离text1的日期秒数【使用timer】

Answer 1

给你个参考代码，闷弊芹以卜拦前写的，原创。
Private Sub Timer1_Timer()
datesub = DateDiff("s", Now, #7/28/2012 3:12:00 AM#)
dd = Fix(datesub / 60 / 60 / 24)
HH = Fix((datesub - dd * 60 * 60 * 24) / (60 * 60))
MM = Fix((datesub - dd * 60 * 60 * 24 - HH * 60 * 60) / 60)
SS = Fix(datesub - dd * 60 * 60 * 24 - HH * 60 * 60 - MM * 60)
strtip = "距2012年7月28日03时12分00秒伦敦奥运蚂毕会 还有: "
strtip = strtip + CStr(dd) + "天"
strtip = strtip + CStr(HH) + "小时"
strtip = strtip + CStr(MM) + "分钟"
strtip = strtip + CStr(SS) + "秒"
Label1.Caption = strtip
End Sub

Answer 2

Option Explicit
Private a As Long
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1_Timer
End Sub
Private Sub Text1_Change()
If Timer1.Enabled Then Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim t As Date
t = CDate(Text1.Text)
a = DateDiff("乱则烂s"盯悔, t, Now)
t = CDate(t - Now)
Label1.Caption = Year(t) - 1900 & Format$(t, "年哗漏mm月dd日hh时mm分ss秒")
End Sub

Answer 3

Private Sub Command1_Click()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Abs(DateDiff("s", CDate(Text1.Text), Now))
End Sub

Answer 4

Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
Timer1_Timer
End Sub

Private Sub Timer1_Timer()
Dim a As Double
a = DateDiff("s", Now, CDate(Text1.Text))
Label1.Caption = "距离"旦差 & CDate(Text1.Text) & "还模余皮有毁竖" & a \ 31536000 & "年" & (a Mod 31536000) \ 2592000 & "月" & _
((a Mod 31536000) Mod 2592000) \ 86400 & "日" & (((a Mod 31536000) Mod 2592000) Mod 86400) \ 3600 & "时" & _
((((a Mod 31536000) Mod 2592000) Mod 86400) Mod 3600) \ 60 & "分" & _
((((a Mod 31536000) Mod 2592000) Mod 86400) Mod 3600) Mod 60 & "秒"
End Sub