تاريخ ميلادي

السلام عليكم

أختنا الكريمة / هناك طرق كثيرة للحل منها مثلا أعتبار

السنة 1900 سنة فاصلة بين التاريخ الميلادي والهجري

يعني أن كل تاريخ فوق 1900 هو تاريخا ميلاديا وكل تاريخا دونها هو هجري

هذا مجازا ( والا في الواقع هو غير صحيح ) وعليه نعمل دالة تفيد هذا أنظر الكود

Public Function TestDate()
Dim T As Integer
T = Mid(txtdm, 7, 4)
If T < 1900 Then
MsgBox "التاريخ ليس تاريخا ميلاديا"
txtdm = ""
Else
MsgBox "نعم التاريخ ميلادي"
End If
End Function

ثم يتم استدعاء هذه الــ Function

جربي ادخال تاريخ اليوم هجريا ثم ميلاديا تجدي أن المثال يقبل الميلادي ويرفض الهجري

مرفق مثال ..... والسلام

أخوك EKSEER

EK_DATE.rar

مشكور هذا المطلوب 10000 1000 شكر

المعذرة على تاخر الرد اليوم دخلت الانترنت

اخي فية مشاركة لى لم يرد على احد

وهي عرض نتائج الاستعلام من تاريخ الى تاريخ وعرضها في

DataGrid

db17.rar