如何将日期形式的输入文本传输到VBA中的Excel单元格

Sub TransferDateToExcel()
    Dim inputDate As String
    Dim parsedDate As Date
    
    ' 假设输入的日期文本为 "2023-10-05"
    inputDate = "2023-10-05"
    
    ' 将文本日期转换为VBA日期类型
    parsedDate = CDate(inputDate)
    
    ' 将日期写入Excel单元格（例如A1）
    Range("A1").Value = parsedDate
    
    ' 可选：设置单元格的日期格式
    Range("A1").NumberFormat = "yyyy-mm-dd"
End Sub

Dim inputDate As String
inputDate = "10/05/2023" ' 美国格式 MM/DD/YYYY
parsedDate = DateValue(inputDate)
Range("A1").Value = parsedDate

Dim inputDate As String
inputDate = "2023-10-05"
parsedDate = CDate(inputDate)
Range("A1").Value = parsedDate

' 考虑时区转换
Dim tzInfo As TimeZoneInfo
tzInfo = TimeZoneInfo.FindSystemTimeZoneById("Eastern Standard Time")
parsedDate = TimeZoneInfo.ConvertTime(parsedDate, tzInfo)
Range("A1").Value = parsedDate