Question

[在线等]vb中两个text输入的日期相减，挺急的

如题

Answer 1

两个日期相减法就是天数，参考如下
dim a as integer
a=Format(text1.text, "yyyy-mm-dd")-Format(text2.text, "yyyy-mm-dd")

Answer 2

Private Sub Command1_Click()
    Dim T As Double
    If Not IsDate(Text1.Text) Or Not IsDate(Text2.Text) Then MsgBox "请输入正确的日期格式": Exit Sub
    T = CDate(Text1) - CDate(Text2)
    Print CStr(Int(T)); "天"; CDate(T - Int(T))
End Sub

追问

不好意思，请问一下，这句是什么意思呢？
Print CStr(Int(T)); "天"; CDate(T - Int(T))

追答

你可以直接 prin t 的。Int(T)是我给你换成天了，CDate(T - Int(T))我给你换成时间了，就是相差多少天多少小时多少分多少秒 格式 0:00:00

Private Sub Command1_Click()
    Dim T As Double
    If Not IsDate(Text1.Text) Or Not IsDate(Text2.Text) Then MsgBox "请输入正确的日期格式": Exit Sub
    T = CDate(Text1) - CDate(Text2)
    Print int(t)
End Sub