[b4getws]

كود :

    Public Function CalHijri(gDate As Object, Optional StrFormat As String = "yyyy/MM/dd")
        Dim mDT As New DateTime(FormatDate(gDate, "yyyy"), FormatDate(gDate, "MM"), FormatDate(gDate, "dd"), New Globalization.GregorianCalendar())
        Dim mCal As New Globalization.HijriCalendar()
        Return FormatDate(New DateTime(mCal.GetYear(mDT), mCal.GetMonth(mDT), mCal.GetDayOfMonth(mDT)), StrFormat)

    End Function

    Public Function FormatDate(ByVal DT As Object, Optional StrFormat As String = "yyyy/MM/dd")
        FormatDate = Nothing
        Select Case Type.GetTypeCode(DT.GetType())
            Case TypeCode.DateTime
                Return Format(DT, StrFormat)' CDate(DT.ToString("yyyy'/'MM'/'dd")
            Case TypeCode.String, TypeCode.Object
                Return Format(CDate(DT), StrFormat)
            Case Else
                MessageBox.Show("هنــــاك خطأ")
        End Select
    End Function