Hello,

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

Thanks

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

Thanks Nick,

How I can convert his 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

Abdul,
I never had a reason to use this, so I not sure.
But check out Excel's help on "Calendar" and see how to specify the date
format on a worksheet.
You need a version that support this.

NickHK

"Abdul" wrote in message
oups.com...
Thanks Nick,

How I can convert his 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

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

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