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

[mosaab]

الأخوه الآفاضل

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

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

كيف يمكن ان احولها الى ميلادي

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

مصعب

[ابو اسامة العينبوسي]

السلام عليكم

Private Sub CommandButton1_Click()
 If Me.CommandButton1.Caption = "hijri" Then
 Range("A1").Select
 Selection.NumberFormat = "[$-1060000]B2d/mm/yyyy;@"
 Me.CommandButton1.Caption = "miladi"
 Else
 Range("A1").Select
 Selection.NumberFormat = "m/d/yyyy"
 Me.CommandButton1.Caption = "miladi"
 End If
End Sub

اعمل زر و الصق هذا الكود بداخله

ضع تاريخ في الخليه A1

بدل التاريخ من هجري الى ميلادي عن طريق الزر

date_convert.rar

تم تعديل يوليو 8, 2007 بواسطه ابو اسامة العينبوسي

[mosaab]

بارك الله فيك اخي الفاضل

لكن حاولت كثيرا ولم تنجح ولا محاولة

لا ادري ما السبب

[ابو اسامة العينبوسي]

ارفقت ملف

في المشاركه السابقه

و ها هو مره اخرى

هذا الملف الصحيح

date_convert.rar

تم تعديل يوليو 8, 2007 بواسطه ابو اسامة العينبوسي