تحويل الوقت الى فترة

[almamare12]

كتبت الموضوع في قسم الاكسل اريد تطبيق على الاكسس اذا ممكن

 

المثال 

 

 

تم تعديل ديسمبر 16, 2020 بواسطه almamare12
خطاء

[ابوخليل]

يمكنك تحقيق ذلك باستخدام  if  او  iif

وتجعل شرطين  اكبر ( < ) من الوقت الفلاني  And  اصغر (>) من الوقت الفلاني  مثلا :

if  datetext > 05:59:59 And datetext < 12:00:00 then nmtext = "صباحا" 
الدالة الأخرى:
nmtext : IIf (datetext > 05:59:59 And  < 12:00:00 ; "صباحا")

 

[almamare12]

هل يمكن ادرارج نموذج

[ابوخليل]

nmtext: IIf([time1]>=#06:00:00 ص# And [time1]<=#11:59:59 ص#;"صباح";IIf([time1]>=#12:00:00 م# And [time1]<#06:31:00 م#;"مساء";IIf([time1]>=#06:31:00 م# And [time1]<=#11:59:59 م#;"ليلا";IIf([time1]>=#12:00:01 ص# And [time1]<#06:00:00 ص#;"ليلا";""))))

في الكود اعلاه لان الاوفيس عندي عربي اختل ترتيب السطر

يمكنك استبدال حرف الصاد المفرد بـــ  Am  وحرف الميم المفردة بـــ  Pm

تفضل تطبيق على العملية انظر في الاستعلام qry1

db4.mdb

[almamare12]

شكرا هذا هوى المطلوب

[Hawiii]

ويمكنكم استخدام هذه الدالة أيضا:
 

Function DayPart(inTime As Date) As String
  Dim timePart As Byte
  
  timePart = Fix((CDate(Format(inTime, "hh:mm:ss")) * 24) / 6)
  Select Case timePart
    Case 1: DayPart = "صباحا"
    Case 2: DayPart = "مساءً"
    Case Else: DayPart = "ليلا"
  End Select
End Function