如何使用VBA宏替换公历中的波斯历日期(١٣٩۶/١٢/٢٩)？

Sub ReplacePersianDate()
    Dim rng As Range
    Dim cell As Range
    Dim persianDate As String
    Dim gregorianDate As Date
    
    ' 设置要替换的范围，可以根据实际情况进行调整
    Set rng = ActiveSheet.UsedRange
    
    ' 循环遍历每个单元格
    For Each cell In rng
        ' 检查单元格的值是否为波斯历日期格式
        If IsDate(cell.Value) Then
            ' 将波斯历日期转换为公历日期
            persianDate = cell.Value
            gregorianDate = PersianToGregorian(persianDate)
            
            ' 替换单元格的值为公历日期
            cell.Value = gregorianDate
        End If
    Next cell
End Sub

Function PersianToGregorian(persianDate As String) As Date
    Dim parts() As String
    Dim year As Integer
    Dim month As Integer
    Dim day As Integer
    
    ' 使用斜线分割波斯历日期的年、月、日部分
    parts = Split(persianDate, "/")
    
    ' 解析年、月、日
    year = CInt(parts(0))
    month = CInt(parts(1))
    day = CInt(parts(2))
    
    ' 使用DateSerial函数将波斯历日期转换为公历日期
    PersianToGregorian = DateSerial(year, month, day)
End Function