تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ونحن مقبلون على شهر رمضان أطلب كود لتصحيح التاريخ الهجري في حال زيادة أو نقصان يوم
#1
السلام عليكم ورحمة الله و بركاته
هذا كود لجلب التاريخ الهجري ونحن مقبلون على شهر رمضان
أطلب كود لتصحيح التاريخ الهجري في حال زيادة أو نقصان يوم
وبارك الله فيكم

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
الرد
تم الشكر بواسطة:
#2
كود :
    Public Function CalHijri(gDate As Object, Optional StrFormat As String = "yyyy/MM/dd")
        Dim mDT As New DateTime(FormatDate(gDate, "yyyy"), FormatDate(gDate, "MM"), FormatDate(gDate, "dd"), New Globalization.GregorianCalendar())
        Dim mCal As New Globalization.HijriCalendar()
        Return FormatDate(New DateTime(mCal.GetYear(mDT), mCal.GetMonth(mDT), mCal.GetDayOfMonth(mDT)), StrFormat)

    End Function

    Public Function FormatDate(ByVal DT As Object, Optional StrFormat As String = "yyyy/MM/dd")
        FormatDate = Nothing
        Select Case Type.GetTypeCode(DT.GetType())
            Case TypeCode.DateTime
                Return Format(DT, StrFormat)' CDate(DT.ToString("yyyy'/'MM'/'dd")
            Case TypeCode.String, TypeCode.Object
                Return Format(CDate(DT), StrFormat)
            Case Else
                MessageBox.Show("هنــــاك خطأ")
        End Select
    End Function
اسم مستعار : b4getws
من ضمن أعمالي في مجال الويب : تصميم قالب للمدونتين تقني ويب و وظيفتي
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Smile خطا في حفظ التاريخ فارغ (تم حل الموضوع) alshandodi 10 130 27-05-20, 07:53 PM
آخر رد: alshandodi
Wink [سؤال] طريقة عمل برنامج تعديل علي التاريخ والوقت في الويندوز Ali Edal 2022 4 165 12-05-20, 03:05 AM
آخر رد: Ali Edal 2022
  الفرق بين التاريخ اليوم السابع 8 153 03-05-20, 08:08 AM
آخر رد: ابراهيم ايبو
  [كود] رمضان مبارك يا اخوتي اريد كود بحث عن الاسم لقد اتعبني البحث rochdi191 8 197 25-04-20, 11:32 PM
آخر رد: rochdi191
  اظهار الاسماء باواخر التاريخ العيدروس 6 190 31-03-20, 09:55 PM
آخر رد: العيدروس
  حفظ التاريخ بصيغة معينة العيدروس 11 451 22-02-20, 06:04 AM
آخر رد: osamaelmaghraby
  [VB.NET] تنسيق التاريخ EMADSSS 1 206 31-01-20, 01:50 AM
آخر رد: alsalamoni
  [سؤال] تنسيق حقل التاريخ في التقرير ناجح احمد 3 304 29-01-20, 10:49 PM
آخر رد: alsalamoni
  السلام عليكم ممكن كود فى التاريخ احمد خطاب 1 248 27-01-20, 01:43 PM
آخر رد: محمد كريّم
  [VB.NET] سؤال في كيفية التعامل مع التاريخ ، مهم جدا Hassan.syria 4 425 06-01-20, 10:21 PM
آخر رد: Hassan.syria

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم