04-03-20, 12:17 AM
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم . ضع هذا الكود في حدث الـ Form_Load :
بالتوفيق .
أهلا بك أخي الكريم . ضع هذا الكود في حدث الـ Form_Load :
PHP كود :
Dim SavedYear As Integer
SavedYear = Val(GetSetting("SalesPro", "Dates", "SavedYear"))
Calendar = vbCalGreg
If SavedYear <= 0 Then
'حفظ رقم السنة الحالية إذا لم يتم حفظ رقم السنة الحالية بعد في الريجستري
SaveSetting "SalesPro", "Dates", "SavedYear", Year(Date)
Else
If Year(Date) > SavedYear Then
If MsgBox("سنة جديدة, إضغط على 'نعم' إذا أردت حفظ رقم السنة الجديدة", vbInformation + vbYesNo, "تنبيه") = vbYes Then
SaveSetting "SalesPro", "Dates", "SavedYear", Year(Date)
End If
ElseIf Year(Date) < SavedYear Then
MsgBox "تأكد من صحة التاريخ", vbExclamation, "تنبيه"
End If
End If
بالتوفيق .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next