مطلوب تنسيق الوقت

[Matin_Murad]

السلام علیکم

اريد تعديل هذا الساعة 

عدم وصول ساعة الى 13:00 

ساعة رقمية الى حد  12:59 ساعة ثم الى ساعة 1:00 بدون استخدام ( ص , م , صباح , مساء , pm , AM )

 

ساعة رقمية 12.accdb

[biskra]

في كود حدث On Load و كود حدث On timer احذف  AM/PM من الكود

Me.xxx = Format(Time, "HH:NN:SS")

عوض

Me.xxx = Format(Time, "HH:NN:SS AM/PM")

 

[Matin_Murad]

نفس المشكلة 

بعد حذف AM/PM  في كود حدث On Load و كود حدث On timer احذف  AM/PM تصل ساعة الى   15:32:28 

مطلوب ساعة ساعة رقمية الى حد  12:59 ساعة ثم الى ساعة 1:00 بدون استخدام ( ص , م , صباح , مساء , pm , AM )

[biskra]

جرب الكود التالي

 Me.xxx = Format(Time, "HH:MM:SS ampm")  'yields 02:12 PM

 

[Matin_Murad]

[أبوبسمله]

السلام عليكم

مشاركه مع اخى واستاذى العزيز @biskra جزاه الله خيرا 💐

اتفضل اخى @Matin_Murad هل هذا ما تريد

Private Sub Form_Load()
Call strTime
End Sub

Private Sub Form_Timer()
Call strTime
End Sub

Sub strTime()
x = CDbl(Now) - CDbl(TimeValue("12:00:00"))
Me.xxx = Format(TimeValue(CDate(x)), "HH:NN:SS")
End Sub

بالتوفيق

ساعة رقمية 12.accdb

[biskra]

هناك مشكلة كلما أجرب المثال بجميع الأكواد المقترحة يشتغل عادي، لكن عند غلق الملف و الخروج من الأكسس و إعادة تشغيل الملف تأتي رسالة خطأ و يتوقف البرنامج عن العمل

[Matin_Murad]

شكرااستاذ ( biskra ,,,,,, احمد الفلاحجي ) على الرد . 

[أبوبسمله]

11 ساعات مضت, biskra said:

هناك مشكلة كلما أجرب المثال بجميع الأكواد المقترحة يشتغل عادي، لكن عند غلق الملف و الخروج من الأكسس و إعادة تشغيل الملف تأتي رسالة خطأ و يتوقف البرنامج عن العمل

اخي بيسكرا الملف يعمل عندي حتى بعد الضغط والاصلاح 

ربما لوجود كتابه باللغه العربيه طب جرب عمل مثال نفسه ع جهازك ثم قم بنقل الكود

وان شاء الله سوف اقوم بمراجعته مره اخرى عند عودتي من العمل بإذن الله 

الشكر لله ثم لإخواننا واساتذتنا جزاهم الله خيرا 

بالتوفيق 

[عبدالقدوس48]

السلام عليكم أنا تعمل عندي 

[Matin_Murad]

()Sub strTime
 '''''''''''''''''''''''' ()dim x as date
x = CDbl(Now) - CDbl(TimeValue("12:00:00"))
Me.xxx = Format(TimeValue(CDate(x)), "HH:NN:SS")
End Sub

تم تعديل فبراير 18, 2021 بواسطه Matin_Murad