VBA:使用散列将日期更新为yyyymmdd

Function UpdateDate(dateValue As Date) As String
    Dim yearPart As String
    Dim monthPart As String
    Dim dayPart As String
    
    yearPart = CStr(Year(dateValue))
    monthPart = Right("0" & CStr(Month(dateValue)), 2)
    dayPart = Right("0" & CStr(Day(dateValue)), 2)
    
    UpdateDate = yearPart & monthPart & dayPart
End Function

Sub Test()
    Dim originalDate As Date
    Dim updatedDate As String
    
    originalDate = Date ' 当前日期
    updatedDate = UpdateDate(originalDate)
    
    MsgBox "更新后的日期为：" & updatedDate
End Sub