عرض الوقت بتنسيق محدد

[Foksh]

السلام عليكم أعضاء وأساتذة ومعلمي منتدانا الرائع

 

حاولت كثيراً وبحثت كثيراً ( ويبدو أنني كنت أبحث على سطح كوكب زحل  ) عن إجابة لسؤالي .

على سبيل المثال لعرض الوقت في مربع نص ( بعد تحديد قيمة TimerInterval طبعاً ) ، أعتقد أن هناك 3 أشكال لتنسيق الوقت كما يلي :-

• Txt_Time = Format(Now(), "hh:mm:ss Am/Pm")
  لعرض الوقت بالتنسيق التالي
  07:07:07 Pm = مساءً
  07:07:07 Am = صباحاً

• Txt_Time = Format(Now(), "hh:mm Am/Pm")
  لعرض الوقت بالتنسيق التالي
  07:07 Pm = مساءً
  07:07 Am = صباحاً

• Txt_Time = Format(Now(), "hh:mm:ss")
  لعرض الوقت بالتنسيق التالي
  19:07:07 = مساءً
  07:07:07 = صباحاً

 

المطلوب

عرض الوقت بتنسيق 12 ساعة دون ظهور AM/PM . يعني بهذا التنسيق :-

07:07:07 = مساءً
07:07:07 = صباحاً

فهل يمكن تحقيق ذلك  ؟

[Moosak]

تفضل عمي @Foksh 🙂 :

Replace(Replace(Format(Time, "hh:mm:ssAM/PM"), "PM", ""), "AM", "")

والنتيجة :

[kkhalifa1960]

تفضل استاذ @Foksh محاولتي حسب مافهمت ............. طالع بالاستعلام الحقلان (TB,TT) .

DDTimeTest.rar

[Foksh]

9 دقائق مضت, Moosak said:

تفضل عمي @Foksh 🙂 :

Replace(Replace(Format(Time, "hh:mm:ssAM/PM"), "PM", ""), "AM", "")

والنتيجة :

حيلة جميلة ، أبدعت مهندسنا موسى 

8 دقائق مضت, kkhalifa1960 said:

تفضل استاذ @Foksh محاولتي حسب مافهمت ............. طالع بالاستعلام الحقلان (TB,TT) .

DDTimeTest.rar 20.43 kB · 0 downloads

عمل جميل أستاذ خليفة ، فكرة جميلة 

 

لا أريد إحباط المعنويات ، على العكس فالأفكار جميلة وقد جربت فكرة الأستاذ موسى سابقاً ، ولكن في مشروعي الجديد هناك العديد من صيغ الوقت في مكونات النموذج والـ VBA .

 

تم تعديل April 17 بواسطه Foksh

[abouelhassan]

شكر وتقدير واحترام من اخيك 

[ابوخليل]

مشاركة مع الاخوة الكرام :

time2: Format([time1];"hh" & ":" & "mm" & ":" & "ss")

 

[Foksh]

9 دقائق مضت, ابوخليل said:

مشاركة مع الاخوة الكرام :

time2: Format([time1];"hh" & ":" & "mm" & ":" & "ss")

 

أبدعت معلمنا الفاضل @ابوخليل 🤝

جميل جداً الكود ، صريح جداً ويفي بالغرض 🥰