Konversi Masehi Ke Hijriyah Dan Sebaliknya

Private Sub Command2_Click()
    Dim c As Date
    c = CDate("21/12/1945")
    Calendar = vbCalHijri
    MsgBox c
    MsgBox Format(#8/17/1945#, "dddd")
End Sub

Private Sub Command3_Click()
    Dim c As Date
    Calendar = vbCalHijri
    c = CDate("1/1/1455")
    Calendar = vbCalGreg
    MsgBox c
    MsgBox Format(#8/17/1945#, "dddd")
End Sub