السلام عليكم و رحمة الله و بركاته
أريد دالة أو طريقة أستطيع التميز بين الوقت إذا كان PM أو AM
لفحص القيم عن طريقة جملة شرطية IF
أريد بما معناه
if time=AM then
.............
elseif time= PM then
.............
end if
أريد دالة أو طريقة تجعلني أميز بين وقت AM و PM
بدالة Format يمكنك الحصول على هذه القيمة, وتكون بالصيغة:
Format(Time, "AMPM")
مثال لإستخدامها :
If (Format(Time, "AMPM")) = "AM" Then ............ ElseIf (Format(Time, "AMPM")) = "PM" Then ............ End If
لكن هذه الطريقة ليست جيدة حيث تعطي القيمة حسب إعدادات الوقت في النظام, فإذا كنا نستخدم الوقت الإنجليزي ترجع الدالة بالقيمة (AM,PM) لكن إذا كنا نستخدم الوقت العربي ترجع الدالة بالقيمة (ص,م)
لذلك هناك طريقة اقضل لعمل هذا وهي :
دالة Hour حيث ترجع برقم يمثل الساعات بنظام الـ 24 ساعة وتكون بالصيغة :
Hour (Time)
ويمكننا إستخدامها حيث إذا رجعت الدالة برقم اضغر من 12 يكون الوقت صباحاً وإذا رجعت برقم اكبر من او يساوي 12 يكون الوقت مساءاً
مثال لأستخدام الدالة :
If Hour(Time) < 12 Then ........... ' AM Time ElseIf Hour(Time) >= 12 Then ........... ' PM Time End If
مثال آخر لإستخدام الدالة :
Dim TimeAMPM As String TimeAMPM = IIf((Hour(Time) < 12), "AM", "PM") If TimeAMPM = "AM" Then ........... ElseIf TimeAMPM = "PM" Then ........... End If
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
محمد غريب كتب:بدالة Format يمكنك الحصول على هذه القيمة, وتكون بالصيغة:
Format(Time, "AMPM")مثال لإستخدامها :
If (Format(Time, "AMPM")) = "AM" Then ............ ElseIf (Format(Time, "AMPM")) = "PM" Then ............ End Ifلكن هذه الطريقة ليست جيدة حيث تعطي القيمة حسب إعدادات الوقت في النظام, فإذا كنا نستخدم الوقت الإنجليزي ترجع الدالة بالقيمة (AM,PM) لكن إذا كنا نستخدم الوقت العربي ترجع الدالة بالقيمة (ص,م)
لذلك هناك طريقة اقضل لعمل هذا وهي :
دالة Hour حيث ترجع برقم يمثل الساعات بنظام الـ 24 ساعة وتكون بالصيغة :
Hour (Time)ويمكننا إستخدامها حيث إذا رجعت الدالة برقم اضغر من 12 يكون الوقت صباحاً وإذا رجعت برقم اكبر من او يساوي 12 يكون الوقت مساءاً
مثال لأستخدام الدالة :
If Hour(Time) < 12 Then ........... ' AM Time ElseIf Hour(Time) >= 12 Then ........... ' PM Time End Ifمثال آخر لإستخدام الدالة :
Dim TimeAMPM As String TimeAMPM = IIf((Hour(Time) < 12), "AM", "PM") If TimeAMPM = "AM" Then ........... ElseIf TimeAMPM = "PM" Then ........... End If
============================================================
السلام عليكم و رحمة الله و بركاته
شكرا لك أخي محمد غريب
و إن شاء الله يجزيك عني كل خير و لك من فائق الإحترام و التقدير