vba yyyymmdd转换成yyyy-mm-dd

在VBA中，如果你有一个日期格式如"yyyymmdd"（四位数年份、两位数月份和两位数日子），想要将其转换为"yyyy-mm-dd"这种常见的日期格式，你可以使用`Format`函数或者`DateSerial`和`MonthName`函数组合。这里是一个简单的例子：

Sub ConvertDateFormat()
    Dim input_date As String
    Dim output_date As Date
    
    ' 假设input_date变量存储了"20230715"
    input_date = "20230715"
    
    ' 使用Format函数直接转换
    output_date = Format(DateValue(input_date), "yyyy-mm-dd")
    
    ' 或者先拆分再组合
    'output_date = DateSerial(Year(input_date), MonthName(MonthVal(input_date)), Day(input_date))
    
    MsgBox "原始日期：" & input_date & ", 转换后的日期：" & output_date
End Sub

运行这个宏后，你会看到输入的"20230715"被转换成了"2023-07-15"。