طلب كود تحويل التاريخ من هجري الى ميلادي والعكس

السلام عليكم

منقول و الهمه و البركة في الشباب المعادلة و التطبيق بالفجول بيسك 6

معادلة تحويل التاريخ من الميلادي الى الهجري وبالعكس

الميلادي = الهجري + 622 - ( الهجري/33 )

الهجري = الميلادي - 622 + (الميلادي - 622/ 33 )

ملاحظة

مابين الاقواس هو كسر عشري... يعني (الهجري على 33)

سؤال للمحترفين في البرمجة ضروري جداً

--------------------------------------------------------------------------------

قرأت في احد المواقع عن طريقة برمجة تحويل التاريخ من هجري إلى ميلادي والعكس وكن اني لست محترف برمجة فأن اتمنى من محترفين سؤال بسيط وهو / هل استطيع عمل ذلك في برنامج اكسل ؟ ارجوا التوضيح

هذا هو نص الموضع الذي قرأت ؟

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

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

معادلة التحويل هي: التاريخ الميلادي = التاريخ الهجري * 0.970227 + 621.5774 ، مع ملاحظة أن الإختبار ليس في تطبيق هذه المعادلة ولكن عن طريق تحويل التاريخ بالأشهر والأيام والسنة الميلادية إلى اليوم والشهر والسنة الهجرية.

إذا كنت قليل الهمة، وتفضل السهل فها هو إجراء بسيط يمكنك تطبيقه على فيجول بيسك 6 يقوم بتحويل التاريخ الميلادي إلى هجري باليوم والشهر والسنة:

Function ConvertDateString(ByRef StringIn As String) As String

Dim SavedCal As Integer

Dim d As Date

Dim s As String

SavedCal = Calendar

VBA.Calendar = 0

d = CDate(StringIn)

VBA.Calendar = 1

s = CStr(d)

ConvertDateString = Format(s, "Long Date")

VBA.Calendar = SavedCal

End Function

إذا أردت تحويل التاريخ 25/5/2000 إلى مقابلة الهجري فقم بإستدعاء الإجراء كما يلي، حيث ستكون قيمة المتغير HijriDate هي الممثلة للتاريخ الهجري الناتج من التحويل.

HijriDate = ConvertDateString("25/5/2000")

بالتوفيق إن شاء الله

بسم الله الرحمن الرحيم

يعطيك العافية أخوي الغملاسي لسرعة ردك على السؤال

ورح نجربه