كيف أحول من هجري الي ميلادي ؟

[ara6367]

برجاء المساعدة في تغيير التاريخ الموجود وتحويله من هجري الي ميلادي والغاء الباص حيث لا يوجد لدينا باص وجعل اسم الروضة حر للجميع للاستفادة

db1.rar

[نرجس الورد]

السلام عليكم

اليك المرفق أخي الكريم

وان شاء الله يساعدك

date.rar

[أبو آدم]

للتوضيح و عموم الفائدة

 

في حدث بعد التحديث لحقل النموذج الذي سيحرر فيه التاريخ الهجري نضع الكود التالي

Private Sub DateH_AfterUpdate()

    Dim sc As Integer
    Dim q As Date
    Dim s As String
     sc = Calendar
    Calendar = 1
    q = CDate(DateH.Text)
    Calendar = 0
    s = CStr(q)
     DateM = Format(s, "YYYY/MM/DD")

End Sub