In this video i will show you in simple manner about date conversions. Hijri to Gregorian Date.
Function ConvertDate(ByRef StringIn As String) As String
Dim SavedCal As Integer
Dim d As Date
Dim s As String
SavedCal = Calendar
Calendar = 1
d = CDate(StringIn)
Calendar = 0
s = CStr(d)
ConvertDate = Format(s, "dd/mm/yyyy")
Calendar = SavedCal
End Function
=TEXT(B2,"dddd")
5 сен 2024