سؤال في تنسيق الساعه

[أحمد العيسى]

السلام عليكم

كيف يمكن إظهار الوقت داخل مربع التسميه LblClockView بالنظام 10م أو 10ص بدلاً من 22 والتى تتيحها دالة الكود التالية:

Private Sub Form_Load()
    Me!LblClockView.Caption = Time$
End Sub

Private Sub Form_Timer()
    Me![LblClockView].Caption = Time$
End Sub

تم تعديل يوليو 1, 2004 بواسطه أحمد العيسى

[أحمد العيسى]

للرفع

[أبو زيد]

هل جربت حذف $

و تضبط إن شاء الله

[أبو هادي]

السلام عليكم

جرب استخدام دالة Format كما التالي :

1 - نظام 12 ساعة

  Me.LblClockView.Caption = Format(Now(), "hh:nn:ss am/pm")

2 - نظام 24 ساعة

  Me.LblClockView.Caption = Format(Now(), "hh:nn:ss")

تحياتي .

[أحمد العيسى]

شكراً أخوانى الأفاضل:

لقد حذفت $ كما أشار الأخ / أبو زيد وأصبحت الساعة مضبوطة كما كنت أريد

لم أجرب كود الأخ / أبو هادى .. وإن كان له منى مزيد من الشكر لتفضله بالرد

[أبو هادي]

السلام عليكم

ناتج Time يتأثر بالإعدادات الإقليمية ، فلو غيرت في الإعدادات سوف يتبدل التنسيق لكن دالة Format تجبر الناتج بالتنسيق الذي تنشده ومهما كانت الإعدادات الإقليمية .

تحياتي .