• 0
فتى الوادي

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

سؤال

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

كيفكم يا اساتذتنا واحبابنا .. والله من زمان ما شفناكم ... مشتاقين لكم ...

عموما لدي سجلات كثيرة .... ولكل سجل تاريخ .. بعض التواريخ ميلادي وبعض التواريخ هجري ..

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

أكون لكم من الشاكرين .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

7 إجابة على هذا السؤال .

  • 0

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

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

post-140754-087117300 1335809458_thumb.j

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

post-140754-022584900 1335809474_thumb.j

ودمت بخير

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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

post-140754-001699300 1335936601_thumb.j

عملت لك 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

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

post-140754-023320000 1335936613_thumb.j

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

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

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

post-140754-013984100 1335936624_thumb.j

ولك الاختيار

مرفق ملف

F_AlWadi2-5.zip

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

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخي الكريم :

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

ودمتم بخير

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

post-140754-094704600 1336207558_thumb.j

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

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

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

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

post-140754-072464700 1336207570_thumb.j

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

ودمتم بخير

تم تعديل بواسطه المحاسب الجديد
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .