Thanks Nick,

How I can convert this to a function, so that i can use that as a
formula in sheet?

thanks again


NickHK wrote:
Abdul,
Something like this. I don't know what kind of formatting you would use for
the Hijri dates, but you get the idea.

Private Sub CommandButton1_Click()
Dim Cal As Long
Dim DateConv As Date

Cal = Calendar
DateConv = Now()

Calendar = vbCalGreg
Debug.Print Format(DateConv, "dd dddd/mmmm/yyyy")

Calendar = vbCalHijri
Debug.Print Format(DateConv, "dd dddd/mmmm/yyyy")

Calendar = Cal

End Sub

NickHK

"Abdul" wrote in message
ps.com...
Hello,

Do any have a finction which will enable to convert date from Gregorian
to Hijri and Vise Versa?

Thanks