[myalsailamy]

كود :

    Public Function HijriToGregorian(ByVal Year As Integer, ByVal Month As Integer, ByVal Day As Integer) As DateTime
        Try
            Dim Ar As Globalization.CultureInfo = New Globalization.CultureInfo("ar-sa")
            System.Threading.Thread.CurrentThread.CurrentCulture = Ar
            Ar.DateTimeFormat.Calendar = New Globalization.UmAlQuraCalendar
            HijriToGregorian = New DateTime(Year, Month, Day, Ar.DateTimeFormat.Calendar)
            Ar.DateTimeFormat.Calendar = New Globalization.GregorianCalendar
        Catch ex As Exception
            ex = Nothing
        End Try
        HijriToGregorian = Nothing
    End Function

---

http://vb4arb.com/vb/thread-14118.html