مطوي حول كسوف 29 مارس 2006

[الأسد 0]

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

 

تم بحمد لله إعداد مطوي يخص التعريف بظاهرة كسوف 29 مارس 2006 القادم و بالكسوف بصفة عامة. الإزمنة هي خاصة بمدينة العيون - جنوب المغرب -

 

المطوي رفقته!

 

الحقوق محفوظة لكل مسلم يود الاستفادة من هذا المطوي أو الإخراج عليه

 

و السلام عليكم

Pour_imprimer2.doc

[عبد الله العياضي 0]

ماشاء الله عمل رائع اخي الاسد سدد الله خطاكم

بارك الله لكم بها

وانا قد انتهيت من اعداد نشره للكسوف وستنشر في بعض مدن الاحساء بالممكله العربيه السعوديه.

[الأسد 0]

شكرا أخي هاو فلكي على المرور

[reyad 0]

جزاكم الله خيرا

وتحية لكم مني كعضو جديد على هذه الصفحة

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

[Jinan 0]

ألف شكر أخي و جزاك الله عنا كلّ خير...

[Jinan 0]

أخي رياض تفضّل ما تضعه على الزرّ الcommand

 

Dim mDate As Date

If IsDate(TxtDate) = False Then

MsgBox "إن التاريخ " & Chr(34) & TxtDate & Chr(34) & " ليس تاريخ صالح", vbMsgBoxRight + vbMsgBoxRtlReading + vbCritical, "خطأ"

Exit Sub

End If

If Combo1.ListIndex = 0 Then

Calendar = vbCalHijri

mDate = TxtDate

Calendar = vbCalGreg

LblDate = mDate

Else

Calendar = vbCalGreg

mDate = TxtDate

Calendar = vbCalHijri

LblDate = mDate

End If