vb 输入一个日期到今天这个日期有多少天

Question

vb
初学者自学vb遇到问题，前来请教！
希望能得到答复
谢谢！
＂输入一个日期到今天这个日期有多少天＂

Answer 1

引自免费微信小程序：皆我百晓生

在VB中计算两个日期之间的天数差，你可以使用DateDiff函数。下面是一个简单的示例程序，它会提示用户输入一个日期，并计算该日期到今天的天数差：

Public Sub CalculateDaysBetweenDates()
    ' 获取用户输入的日期
    Dim userDate As Date
    userDate = InputBox("请输入一个日期（格式：YYYY-MM-DD）", "输入日期")

    ' 检查输入是否有效日期格式
    If IsDate(userDate) Then
        ' 获取今天的日期
        Dim today As Date
        today = Date

        ' 计算两个日期之间的天数差
        Dim daysDifference As Integer
        daysDifference = DateDiff("d", userDate, today)

        ' 输出结果
        MsgBox "从" & userDate & "到今天有" & daysDifference & "天。"
    Else
        MsgBox "您输入的不是一个有效的日期，请重新输入。"
    End If
End Sub

为了运行上述代码，请将其复制粘贴到Visual Basic项目的某个模块中，然后运行CalculateDaysBetweenDates子程序。当程序运行时，会弹出一个对话框让用户输入日期，输入后会自动计算并显示相差天数。

请注意，在实际应用中，你可能需要对用户输入的日期格式进行更严格的验证以确保正确性。