VBA - 转换为日期

使用VBA编程语言可以轻松地将文本转换为日期格式。在本篇文章中，我们将介绍如何 日期，并提供一些案例代码来帮助您更好地理解。

vba
Dim strDate As String
Dim dtDate As Date
strDate = "明天是2022年1月1日"
dtDate = DateValue(strDate)
MsgBox dtDate

vba
Sub CalculateDateDifference()
    Dim strStartDate As String
    Dim strEndDate As String
    Dim dtStartDate As Date
    Dim dtEndDate As Date
    Dim intDaysDifference As Integer
    
    ' 获取开始日期和结束日期的字符串输入
    strStartDate = InputBox("请输入开始日期：")
    strEndDate = InputBox("请输入结束日期：")
    
    ' 将开始日期和结束日期转换为日期格式
    dtStartDate = DateValue(strStartDate)
    dtEndDate = DateValue(strEndDate)
    
    ' 计算日期差异
    intDaysDifference = DateDiff("d", dtStartDate, dtEndDate)
    
    ' 显示日期差异
    MsgBox "开始日期：" & dtStartDate & vbNewLine & _
           "结束日期：" & dtEndDate & vbNewLine & _
           "日期差异：" & intDaysDifference & " 天"
End Sub