استخدام الهجري والميلادي معا

[co2002co]

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

اسعد الله اوقاتكم بكل خير

 

هل من الممكن استخدام التاريخ الهجري والميلادي في ذات الوقت

 

انا استخدم التاريخ الهجري كتاريخ اساسي للبرنامج

مع ذالك استخدم التاريخ الميلادي لبعض الجداول

[ابو ياسين المشولي]

اتفضل

اعمل للنموذج والجدول استيراد

وعندما تريد تغير التاريخ اعمل امر بفتح نموذج date واختار التاريخ

تحياتي

ابو ياسين

Tailor ‫‬.rar

تم تعديل يناير 9, 2018 بواسطه ابو ياسين المشولي

[AlwaZeeR]

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

نعم تستطيع عزيزي

الخطوات:

1- افتح وحدة نمطية فارغة ثم الصق فيها الكود التالي

Option Compare Database

Function ConvertDateString(StringIn As String, OldCalendar As Integer, NewCalendar As Integer, NewF As Integer) As String
    Dim SavedCal As Integer
    Dim d As Date, da As Variant, mo As Variant, ye As Variant
    Dim s As String

    ' حفظ التاريخ الحالي للتغيير
    SavedCal = Calendar

    ' تحويل البيانات
    Calendar = OldCalendar
    d = CDate(StringIn)
    Calendar = NewCalendar
    If NewF = 1 Then
     da = Format$(d, "dd")
     mo = Format$(d, "mmmm")
     ye = Format$(d, "yyyy")
    Else
    da = Format$(d, "dd")
     mo = Format$(d, "mm")
     ye = Format$(d, "yyyy")
    End If
    s = CStr(da & " " & mo & " " & ye & " هـ  ")
    ConvertDateString = s

    ' النتيجة
    Calendar = SavedCal
End Function

2- الان قم باستدعاء الوحدة النمطية في المكان الذي تريد تبديل التاريخ من ميلادي الى هجري

= ConvertDateString(DateField, 0, 1, 1)

::

تحياتي

 

[co2002co]

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

اسعد الله اوقاتكم بكل خير

 

 

14 hours ago, ابو ياسين المشولي said:

ابو ياسين

يسلمو ابو ياسين عالمثال

 

14 hours ago, alwazeer said:

نعم تستطيع عزيزي

يعطيك الف عافيه وجاري التجربه

[طاهر الوليدي]

ممكن يطبق على المثال المرفق لانك لم توضح استاذي اين نضع هذا الامر بضبط  وانا مش متمكن

= ConvertDateString(DateField, 0, 1, 1)

تحويل التاريخ الى هجري.rar

[AlwaZeeR]

تفضل عزيزي

DateName

هو اسم حقل التاريخ الميلادي

::

تحياتي

تحويل التاريخ الى هجريUPD.zip

[طاهر الوليدي]

شكرا اخي العزيز بارك الله فيك