[محمد مسافر]

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 


الاضافه اشتغلت بشكل جيد لمعرفه كم المتبقي لشهر رمضان ، ولكن عند تغير التاريخ الهجري يظل الرقم المتبقي لشهر رمضان ثابت لايتغير والاصل يتغير حسب التاريخ الهجري زياده او نقصان

ممكن معالجه الموضوع وشكراً للجميع