almamare12 قام بنشر ديسمبر 16, 2020 مشاركة قام بنشر ديسمبر 16, 2020 (معدل) كتبت الموضوع في قسم الاكسل اريد تطبيق على الاكسس اذا ممكن المثال تم تعديل ديسمبر 16, 2020 بواسطه almamare12 خطاء رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 16, 2020 مشاركة قام بنشر ديسمبر 16, 2020 يمكنك تحقيق ذلك باستخدام 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 ; "صباحا") رابط هذا التعليق شارك More sharing options...
almamare12 قام بنشر ديسمبر 16, 2020 الكاتب مشاركة قام بنشر ديسمبر 16, 2020 هل يمكن ادرارج نموذج رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 16, 2020 مشاركة قام بنشر ديسمبر 16, 2020 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 1 رابط هذا التعليق شارك More sharing options...
almamare12 قام بنشر ديسمبر 17, 2020 الكاتب مشاركة قام بنشر ديسمبر 17, 2020 شكرا هذا هوى المطلوب رابط هذا التعليق شارك More sharing options...
Hawiii قام بنشر ديسمبر 17, 2020 مشاركة قام بنشر ديسمبر 17, 2020 ويمكنكم استخدام هذه الدالة أيضا: 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 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.