كيف يمكن وضع حقلين للتاريخ في نموذج واحد احدهما بالهجري والاخر بالميلادي
مهم لبرنامج
مغلق
السلام عليكم
لقد طرأت لي هذه الفكرة وبحثت عنها ولكني لم افلح ...
نترك المجال للمبدعين ........
;)
:D
يمكن ذلك باستخدام دالة تحويل
راجع المثال الثاني للأخ طارق هنا
http://www.arabteam2000.com/vb/showthread....%E1%E5%CC%D1%ED
شكرا لسرعة الرد يا محمد طاهر
ما شاء الله
لم اكن اتصور سرعة الرد من الاستاذ محمد طاهر
مشكور وماقصرت
:D
لا حظت أن بعض الأخوة يكتب العبارة ( إن شاء الله ) وهذه العبارة خاطئة
لأن كلمة انشاء تعني الإيجاد او الخلق
والصحيح كتابة العبارة بالشكل التالي
إن شاء الله
وجزاكم الله خيرا
فتحت الملف والنموذج به عدد 2 مربع نص يعطو التقويم الميلادي بصورة مختلفة وليس هناك تقويم هجري
أقصد المثال الاول
و الدالة هي
Option Compare Database
Public my_fld As Control, my_t As Byte
Function ConvertDateString(StringIn As String, OldCalendar As Integer, NewCalendar As Integer, NewF As Integer) As String
Dim SavedCal As Integer
Dim D As Date, da As Variant, mo As Variant, ye As Variant
Dim S As String
Rem ‘ Save Access calendar to restore when finished
SavedCal = Calendar
Rem ‘ Convert date to new calendar and format
Calendar = OldCalendar
D = CDate(StringIn)
Calendar = NewCalendar
If NewF = 1 Then
da = Format$(D, "dd")
mo = Format$(D, "mmmm")
ye = Format$(D, "yyyy")
Else
da = Format$(D, "dd")
mo = Format$(D, "mm")
ye = Format$(D, "yyyy")
End If
S = CStr(da & " " & mo & " " & ye & " åÜ ")
ConvertDateString = S
Rem ‘ Restore Access calendar
Calendar = SavedCal
End Function
Function OPEN_CAL1()
Set my_fld = Forms(Screen.ActiveForm.Name)(Screen.ActiveControl.Name)
my_t = 1
DoCmd.OpenForm "F_CAL"
End Function
Function OPEN_CAL2()
Set my_fld = Forms(Screen.ActiveForm.Name)(Screen.ActiveControl.Name)
my_t = 1
DoCmd.OpenForm "CAL"
End Function
Function Hijry_day(my_date As Variant) As String
Dim my_d As Variant, SavedCal As Integer
SavedCal = Calendar
Calendar = vbCalGreg
my_date = CDate(my_date)
Calendar = vbCalHijri
my_d = Format$(my_date, "d")
Calendar = SavedCal
Hijry_day = my_d
End Function
Function Hijry_month(my_date As Variant) As String
Dim my_m As Variant, SavedCal As Integer
SavedCal = Calendar
Calendar = vbCalGreg
my_date = CDate(my_date)
Calendar = vbCalHijri
my_m = Format$(my_date, "m")
Calendar = SavedCal
Hijry_month = my_m
End Function
Function Hijry_monthl(my_date As Variant) As String
Dim my_ml As Variant, SavedCal As Integer
SavedCal = Calendar
Calendar = vbCalGreg
my_date = CDate(my_date)
Calendar = vbCalHijri
my_ml = Format$(my_date, "mmm")
Calendar = SavedCal
Hijry_monthl = my_ml
End Function
Function Hijry_year(my_date As Variant) As String
Dim my_y As Variant, SavedCal As Integer
SavedCal = Calendar
Calendar = vbCalGreg
my_date = CDate(my_date)
Calendar = vbCalHijri
my_y = Format$(my_date, "yyyy")
Calendar = SavedCal
Hijry_year = my_y
End Function
Function Last_day(mydate As Variant) As Variant
Last_day = DateAdd("d", -1, "01-" & Format$(DateAdd("m", 1, mydate), "mm-yyyy"))
End Function
و رابط التنزيل
http://www.arabteam2000.com/vb/attachment....s=&postid=74705
شكرا جدا علي الاهتمام والمعلومات القيمة
للاستاذ محمد طاهر دمت لنا
هذا الموضوع مغلق.