عرض اليوم، التاريخ، الوقت في label واحد تباعا تفصلهم مدة زمنية

[أزهري]

السلام عليكم

 

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

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

لاحظ المثال المرفق

تم عرض كل منهم منفرداً في label مختلف

ماذا لو أردنا أن يكونوا في label واحد

Database2.accdb

[ابوخليل]

تفضل

  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

[AbuuAhmed]

مثال لعرض الكل في صندوق تسمية واحد.

AllCaptionsInOne_03.accdb