[الوليد ☺]

السلام عليكم ورحمة الله

الله يوفقكم ويعينكم على فعل الخير................

لمعرفة "عدد الايام التي تبقت لرمضان القادم انطلاقا من تاريخ اليوم الهجري"

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    MsgBox(daysToRamadan)
End Sub

' دالة تعيد عدد الأيام المتبقية إلى رمضان القادم '
Public Function daysToRamadan() As Integer
    Dim hijri As New Globalization.HijriCalendar
    Dim dateRamadan As Date = New Date(hijri.GetYear(Now), 9, 1, hijri)
    If Now > dateRamadan Then dateRamadan = New Date(hijri.GetYear(Now) + 1, 9, 1, hijri)
    Return DateDiff(DateInterval.Day, Now, dateRamadan)
End Function