02-04-20, 09:43 PM
السلام عليكم ورحمة الله و بركاته
هذا كود لجلب التاريخ الهجري ونحن مقبلون على شهر رمضان
أطلب كود لتصحيح التاريخ الهجري في حال زيادة أو نقصان يوم
وبارك الله فيكم
Imports System.Globalization.HijriCalendar
Public Class Form1
Dim HijriDTF As System.Globalization.DateTimeFormatInfo = New System.Globalization.CultureInfo("ar-DZ", False).DateTimeFormat
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
HijriDTF.Calendar = New System.Globalization.HijriCalendar
HijriDTF.ShortDatePattern = "ddd dd MMMM yyyy"
Label1.Text = DateTime.Now. ToString("d", HijriDTF) & " هـ"
End Sub
End Class
هذا كود لجلب التاريخ الهجري ونحن مقبلون على شهر رمضان
أطلب كود لتصحيح التاريخ الهجري في حال زيادة أو نقصان يوم
وبارك الله فيكم
Imports System.Globalization.HijriCalendar
Public Class Form1
Dim HijriDTF As System.Globalization.DateTimeFormatInfo = New System.Globalization.CultureInfo("ar-DZ", False).DateTimeFormat
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
HijriDTF.Calendar = New System.Globalization.HijriCalendar
HijriDTF.ShortDatePattern = "ddd dd MMMM yyyy"
Label1.Text = DateTime.Now. ToString("d", HijriDTF) & " هـ"
End Sub
End Class