تفضل
If i = 0 Then
Label5.Caption = Format(Now(), "dddd")
Label0.Caption = "اليوم"
i = i + 1
ElseIf i = 1 Then
Calendar = vbCalHijri
Label5.Caption = Format(Now(), "yyyy/mm/dd")
Label0.Caption = "التأريخ الهجري"
i = i + 1
ElseIf i = 2 Then
Calendar = CurrCal
Label5.Caption = Format(Now(), "yyyy/mm/dd")
Label0.Caption = "التأريخ الميلادي"
i = i + 1
ElseIf i = 3 Then
Calendar = CurrCal
Label5.Caption = Format(Now(), "long time")
Label0.Caption = "الوقت"
i = 0
End If
عداد الوقت تم ضبطه على 5000 والتي تعني 5 ثواني ، يمكنك تسريع العرض بانقاص الرقم
Database3.accdb