从日期输入vba获取1900的字符串输出

Function Get1900String(dateInput As Date) As String
    Dim days As Long
    Dim months As Long
    Dim years As Long
    
    days = Day(dateInput)
    months = Month(dateInput)
    years = Year(dateInput)
    
    Get1900String = CStr(days) & "/" & CStr(months) & "/" & CStr(years)
End Function