VB中如何用DATEDIFF函数计算一个可更改的日期和今天日期的差距(比如可更改的日期在TEXTBOX1中)

2025-01-06 06:35:51
推荐回答(1个)
回答1:

Private Sub Command1_Click()
Me.Cls
Print Text1; "与今天相差"; DateDiff("d", Text1, Now); "天"
End Sub

Private Sub Form_Load()
Text1 = ""
Command1.Caption = "确定"
End Sub

界面只有一个文本框和一个按钮。