Question

VB中如何让让用户输入一个日期（text类型）转换成日期型，然后用Datediff计算出倒计时

Answer 1

比如a是text,r是日期,st是相差的总秒数
r = format(a, "yyyy-m-d")
st = DateDiff("s", Now, r)
......自己再换算一下天,时,分

追问

不行啊！我是想在text中由用户输入一个日期
在text2中显示出还有几天
这种功能

追答

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入"
Else
Text2.Text = DateDiff("d", Now, Text1.Text)
End If
End Sub

Private Sub Text1_LostFocus()
s = Text1.Text
If IsDate(s) = False Then
MsgBox "正确格式为:yyyy-mm-dd"
Text1.Text = ""
Else
a = Format(CDate(s), "yyyy-mm-dd")
Text1.Text = a
End If
End Sub