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

[waleedkamar]

النموذج المرفق ارجو مساعدت فى تحويل من ميلادي الى هجري

***************************

____.rar

[rudwan]

استخدم الدوال التالية للتحويل

1- من الميلادي للهجري

Function ConvertDateString(ByRef stringin 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, "dd/mm/yyyy")
VBA.Calendar = SavedCal

End Function

2- من الهجري الى الميلادي

Function ConvertDate(ByRef stringin As String) As String
Dim SavedCal As Integer
Dim d As Date
Dim s As String

SavedCal = Calendar
VBA.Calendar = 1
d = CDate(stringin)
VBA.Calendar = 0
s = CStr(d)
ConvertDate = Format(s, "dd/mm/yyyy")
VBA.Calendar = SavedCal

End Function

و طبعا هنا لاداع لاستخدام زر التحويل , ماعليك الا أن تضع مصدر بيانات حقل النص عبارة عن دالة كما يلي

dh=convertdatestring([التاريخ])

تم تعديل مايو 12, 2008 بواسطه rudwan