كيف معرفة اذا كان الوقت صباحا او مسائا &&&

لتوضيح السؤال

اريد معرف اذا كان AM or PM

وشكرا...

السلام عليكم...

الكود التالي يبين المطلوب، مع توضيح لكافة أشكال تنسيق الوقت باستعمال الدالة Format:

	Dim Hr As Integer

	Dim Time12_1 As String, Time12_2 As String
	Dim Time12_3 As String, Time12_4 As String, Time12_5 As String

	Dim Time24_1 As String, Time24_2 As String

	Dim MsgStr As String

	Hr = Hour(Now)  ' Hour function returns an integer between 0 (12 AM) and 23 (11 PM)
	If Hr < 12 Then
		MsgBox "Now is morning (AM)"
	Else
		MsgBox "Now is evening (PM)"
	End If

	Time24_1 = Format(Now, "h:n:s")	 ' 0, 1, 2, ... 9, 10, ... 23 (or ... 59)
	Time24_2 = Format(Now, "hh:nn:ss")  ' 00, 01, 02, ... 09, 10, ... 23 (or ... 59)

	MsgStr = "Time now is (24-hour format):"
	MsgStr = MsgStr & vbCrLf & Time24_1
	MsgStr = MsgStr & vbCrLf & Time24_2
	MsgBox MsgStr

	Time12_1 = Format(Now, "hh:nn:ss AM/PM")	' Capital AM or PM
	Time12_2 = Format(Now, "hh:nn:ss am/pm")	' Small am or pm
	Time12_3 = Format(Now, "hh:nn:ss A/P")	  ' Capital A or P
	Time12_4 = Format(Now, "hh:nn:ss a/p")	  ' Small a or p
	Time12_5 = Format(Now, "hh:nn:ss AMPM")	 ' حسب إعدادات الوقت في النظام، مثلاً ص للصباح و م للمساء

	MsgStr = "Time now is (12-hour format):"
	MsgStr = MsgStr & vbCrLf & Time12_1
	MsgStr = MsgStr & vbCrLf & Time12_2
	MsgStr = MsgStr & vbCrLf & Time12_3
	MsgStr = MsgStr & vbCrLf & Time12_4
	MsgStr = MsgStr & vbCrLf & Time12_5
	MsgBox MsgStr

طبعاً بدل الدالة Now يمكنك استعمال أي وقت تريد اختباره.

نرجو الاستفادة و السلام.

شكرا جدا لك

وعلى حسن تعاونك معى

والسلام ختام..

أعتقد أن

If Hour(Time$) <= 12 Then
		MsgBox "AM"
	Else
		MsgBox "PM"
End If

يكفى.