تحويل التاريخ الهجري او الميلادي

وعليكم السلام اخي " فتى الوادي "

هل التاريخ الاصلي الموجود بالجدول بحقلين (حقل للميلادي وحقل للهجري) -الصورة

ام ان التاريخين بحقل واحد- الصورة

ودمت بخير

السلام عليكم :

التاريخ للسجلات بحقل واحد في الجداول مثل الصورة الثانية ..

أريد أن يظهر في التقرير لكل سجل ما يقابل التاريخ إن كان هجري يظهر بجواره ما يقابله بالميلادي .. وإن كان ميلادي يظهر ما يقابله بالهجري ..

بارك الله فيك .

السلام عليكم اخي "فتى الوادي"

بالنسبة لتحويل التواريخ محدش بيحب يخوض فيها لان مرات بتفرق يوم او يومين عن تقويم ام القري فعليك الانتباه لذلك وتلافية بالمرور علي المشاركات السابقة التي تتحدث عن (التاريخ الهجري) وبها نقاشات مفيدة ...

حسب اراء الخبراء فانة يفضل بالجدول ان يتم ادخال التاريخ الميلادي بحقل ونوعة تاريخ ، والتاريخ الهجري بحقل اخر منفصل ويكون نوعة نص.

بالنسبة لموضوعك فان التاريخ الهجري والميلادي بجدولك بحقل واحد معا ، لذلك وجدت صعوبة في جعل نوعة تاريخ ، ولم يعمل التقرير الا بعد ان تم تحويل نوعة الي نص ، ذلك لان البرنامج يعتبر كل الموجود بالحقل هو تاريخ ميلادي ..

نوع الحقل بالجدول نص - الصورة

عملت لك 2 تقرير - الاول وبه الكود التالي : بالتقرير في حدث عند الطباعة

Dim dx1 As Date, dx2 As String
If Year([Dat_H_M]) < 1600 Then
Calendar = vbCalHijri
dx1 = Me.Dat_H_M
Calendar = vbCalGreg
dx2 = dx1
Me.NA = dx2
Else
If Year([Dat_H_M]) > 1600 Then
Calendar = vbCalGreg
dx1 = Me.Dat_H_M
Calendar = vbCalHijri
dx2 = dx1
Me.NA = dx2
End If
End If

صورة التقرير الاول :

التقرير الثاني به الشهر بالعربي بالنسبة للتاريخ الهجري ، وبه الكود التالي:

Dim dx1 As Date, dx2 As String
If Year([Dat_H_M]) < 1600 Then  
Calendar = vbCalHijri
dx1 = Me.Dat_H_M
Calendar = vbCalGreg
dx2 = dx1
Me.NA = dx2
Else
If Year([Dat_H_M]) > 1600 Then  
Calendar = vbCalGreg
dx1 = Me.Dat_H_M
Calendar = vbCalHijri
dx2 = dx1
Fal = dx2
If Month([Fal]) = 1 Then
NA = Format(Fal, " dd محرم yyyy" & " هـ")
Else
If Month([Fal]) = 2 Then
NA = Format(Fal, " dd صفر yyyy" & " هـ")
Else
If Month([Fal]) = 3 Then
NA = Format(Fal, " dd ÑÈíÚ ÇáÇæá yyyy" & " åÜ")
Else
If Month([Fal]) = 4 Then
NA = Format(Fal, " dd ÑÈíÚ ÇáËÇäí yyyy" & " åÜ")
Else
If Month([Fal]) = 5 Then
NA = Format(Fal, " dd ÌãÇÏì ÇáÇæá yyyy" & " åÜ")
Else
If Month([Fal]) = 6 Then
NA = Format(Fal, " dd ÌãÇÏì ÇáËÇäí yyyy" & " åÜ")
Else
If Month([Fal]) = 7 Then
NA = Format(Fal, " dd ÑÌÜÈ yyyy" & " åÜ")
Else
If Month([Fal]) = 8 Then
NA = Format(Fal, " dd ÔÚÈÇä yyyy" & " åÜ")
Else
If Month([Fal]) = 9 Then
NA = Format(Fal, " dd ÑãÖÇä yyyy" & " åÜ")
Else
If Month([Fal]) = 10 Then
NA = Format(Fal, " dd ÔæÇá yyyy" & " åÜ")
Else
If Month([Fal]) = 11 Then
NA = Format(Fal, " dd ÐæÇáÞÚÏÉ yyyy" & " åÜ")
Else
If Month([Fal]) = 12 Then
NA = Format(Fal, " dd ÐæÇáÍÌÉ yyyy" & " åÜ")
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

End If
End If

صورة التقرير الثاني :

ولك الاختيار

مرفق ملف

F_AlWadi2-5.zip

تمنياتي بالسعادة

أخي الكريم :

بارك الله فيك ويعطيك العافية على مجهودك ..

لا حظت في مثالك المرفق حقلي n1 و not فهل لهما علاقة بالتحويل ؟ وهل تؤثر القيم فيها على النتيجة ؟

السلام عليكم اخي "فتى الوادي"

حقلي n1 و not ليس لهما علاقة بالتحويل .. ولا تؤثر القيم فيها على النتيجة ..

ودمتم بخير

بارك الله فيك أخي الكريم :

بعد التجربة يوجد مشكلة وهي في حالة وجود تاريخ هجري ويكون تاريخ اليوم 30 او 29 من الأشهر الزوجية ( 2 , 4 , 6 , 8 , 10 , 12 ) فهنا يخرج لنا خطأ .

السلام عليكم اخي "فتى الوادي"

يجب ادخال التاريخ من خلال نموذج وليس بالجدول مباشرة ..

بعد التجربة لا يوجد مشكلة في حالة وجود تاريخ هجري ويكون تاريخ اليوم 30 او 29 من الأشهر الزوجية ( 4 , 6 , 8 , 10 , 12 ) - الصورة

بالنسبة لشهر 2 فلة وضعية خاصة ، مش عارف لها حل ، وممكن السادة الخبراء يساعدونا لتجاوزها

فـمثلا بالتاريخ الميلادي مينفعش يكون شهر 2 اكبر من 28 يوم الا اذا كانت السنة تقبل القسمة علي 4 بدون باقي .

وعام 1432 هـ يقبل القسمة علي 4 بدون باقي لذلك فان اقصي رقم لاخر يوم بشهر 2 هو 29 يوم - البرنامج بيعامل الهجرية مثل الميلادية -

واذا زاد فهنا يخرج لنا خطأ - الصورة

نرجو من لدية حل للموضوع فليساعدنا

ودمتم بخير