[سؤال] ونحن مقبلون على شهر رمضان أطلب كود لتصحيح التاريخ الهجري في حال زيادة أو نقصان يوم - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : [سؤال] ونحن مقبلون على شهر رمضان أطلب كود لتصحيح التاريخ الهجري في حال زيادة أو نقصان يوم (/showthread.php?tid=34130) |
ونحن مقبلون على شهر رمضان أطلب كود لتصحيح التاريخ الهجري في حال زيادة أو نقصان يوم - rachidclo - 02-04-20 السلام عليكم ورحمة الله و بركاته هذا كود لجلب التاريخ الهجري ونحن مقبلون على شهر رمضان أطلب كود لتصحيح التاريخ الهجري في حال زيادة أو نقصان يوم وبارك الله فيكم 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 RE: ونحن مقبلون على شهر رمضان أطلب كود لتصحيح التاريخ الهجري في حال زيادة أو نقصان يوم - b4getws - 03-05-20 كود : Public Function CalHijri(gDate As Object, Optional StrFormat As String = "yyyy/MM/dd") |