التعامل مع التواريخ الهجريه - نسخة قابلة للطباعة

كود :
    ''' <summary>

    ''' جلب عدد الايام بداية السنة الى التاريخ المحدد(أم القرى)

    ''' </summary>

    ''' <param name="TheDayInYear">التاريخ المحدد</param>

    ''' <returns>رقمي</returns>

    ''' <remarks>عدد الايام</remarks>

    Public Function howManyDaysFromStartYearUmAlQura(ByVal TheDayInYear As DateTime) As Integer

        Dim umq As System.Globalization.UmAlQuraCalendar = New System.Globalization.UmAlQuraCalendar

        Dim FirstDateOfYear As New DateTime(umq.GetYear(TheDayInYear), 1, 1, umq)

        Dim daysFromStartYear = (New DateTime(TheDayInYear.Year, TheDayInYear.Month, TheDayInYear.Day) - FirstDateOfYear).TotalDays

        If daysFromStartYear > 0 Then daysFromStartYear += 1

        Return daysFromStartYear

    End Function



    ''' <summary>

    ''' عدد الايام في الاشهر الهجرية

    ''' </summary>

    ''' <param name="Par_Year"></param>

    ''' <param name="Par_Month"></param>

    ''' <returns></returns>

    ''' <remarks></remarks>

    Public Function howManyDaysInMonthUmAlQura(ByVal Par_Year As Integer, ByVal Par_Month As Byte) As Integer

        Dim umq As System.Globalization.UmAlQuraCalendar = New System.Globalization.UmAlQuraCalendar

        Return umq.GetDaysInMonth(Par_Year, Par_Month)

    End Function



    ''' <summary>

    ''' عدد الايام في الاشهر الهجرية

    ''' </summary>

    ''' <param name="Par_date"></param>

    ''' <returns></returns>

    ''' <remarks></remarks>

    Public Function howManyDaysInMonthUmAlQura(ByVal Par_date As Date) As Integer

        Dim umq As System.Globalization.UmAlQuraCalendar = New System.Globalization.UmAlQuraCalendar

        Return umq.GetDaysInMonth(umq.GetYear(Par_date), umq.GetMonth(Par_date))

    End Function









    Public Function GetStartDateInMonthUmAlQura(ByVal Par_Year As Integer, ByVal Par_Month As Byte) As DateTime

        Dim umq As System.Globalization.UmAlQuraCalendar = New System.Globalization.UmAlQuraCalendar

        Dim firstDayOfMonth = New DateTime(Par_Year, Par_Month, 1, umq)

        Return firstDayOfMonth

    End Function



    Public Function GetLastDateInMonthUmAlQura(ByVal Par_Year As Integer, ByVal Par_Month As Byte) As DateTime

        Dim umq As System.Globalization.UmAlQuraCalendar = New System.Globalization.UmAlQuraCalendar

        Dim lastDayOfMonth = New DateTime(Par_Year, Par_Month, umq.GetDaysInMonth(Par_Year, Par_Month), umq)

        Return lastDayOfMonth

    End Function