تحويل تاريخ الى عدد

[AliAli47]

السلام عليكم 

اريد تحويل تاريخ الى عدد مثل دالة datevalue في الاكسل

ما اسم الدالة التي تقوم بنفس العمل على الاكسس 

[Eng.Qassim]

السلام عليكم..استخدم هذا الكود في استعلام ليحول لك التاريخ الى رقم

Format$([DateField];"yyyymmdd")

 

[أ / محمد صالح]

ربما تقصد هذا

Debug.Print CDbl(DateValue("your string date"))

 

[AliAli47]

لدي مشكل في الفورمات 

عندما استعملها في الفلترة لا تعمل بشكل صحيح 

لدي دالة بهاذا الشكل

dusm("عمود";''جدول";"date1<=date and date<date2 ")

المشكلة هي عندما يكون التاريخ بين سنتين مختلفتين مثلا

date1=01/12/2021

date=02/12/2021

date2=01/01/2022

البرنامج يفهمها بهاذا الشكل date1< date <date2

 

 

 

 

[Eng.Qassim]

هل تقصد جمع الحقل بشرط التواريخ

جرب المرفق

Calc_Q.accdb

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

بالاضافة الى ما تفضل به الاخوة الكرام ولهم الشكر

اولاً لديك مشكلة انك تستخدم حقل باسم date وهذا الاسم محجوز لتاريخ اليوم  الا اذا كنت تسخدمه لعرض اليوم الحالي

ثانياً جرب الكود التالي

dusm("عمود";"جدول";"Format([date1];"yyyy/mm/dd")<=date and date<Format([date2];"yyyy/mm/dd")")

تحياتي

[AliAli47]

12 hours ago, Eng.Qassim said:

هل تقصد جمع الحقل بشرط التواريخ

جرب المرفق

Calc_Q.accdb 608 kB · 2 downloads

نعم لكن بدالة dsum

9 hours ago, محمد أبوعبدالله said:

وعليكم السلام ورحمة الله وبركاته

بالاضافة الى ما تفضل به الاخوة الكرام ولهم الشكر

اولاً لديك مشكلة انك تستخدم حقل باسم date وهذا الاسم محجوز لتاريخ اليوم  الا اذا كنت تسخدمه لعرض اليوم الحالي

ثانياً جرب الكود التالي

dusm("عمود";"جدول";"Format([date1];"yyyy/mm/dd")<=date and date<Format([date2];"yyyy/mm/dd")")

تحياتي

date وضعته كمثال فقط 

والكود نفسه الذي استعملته في برنامجي ولم اجد حلا لمشكل اختلاف السنوات

[د.كاف يار]

تفضل هذه الدالة التي انقذني بها اخي @jjafferr

Function DateFormat(varDate As Variant) As String

    If IsDate(varDate) Then
        If DateValue(varDate) = varDate Then
            DateFormat = Format$(varDate, "\#mm\/dd\/yyyy\#")
        Else
            DateFormat = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#")
        End If
    End If
End Function

للاستدعاء

DateFormat([Date1])

 

[أ / محمد صالح]

13 ساعات مضت, AliAli47 said:

البرنامج يفهمها بهاذا الشكل date1< date <date2

 

وهل هذا الفهم خطأ؟

أليس 1 ديسمبر 2021 اصغر من 2 ديسمبر 2021 وهما معا أصغر من 1 يناير 2022

؟؟

[AliAli47]

21 minutes ago, د.كاف يار said:

تفضل هذه الدالة التي انقذني بها اخي @jjafferr

Function DateFormat(varDate As Variant) As String

    If IsDate(varDate) Then
        If DateValue(varDate) = varDate Then
            DateFormat = Format$(varDate, "\#mm\/dd\/yyyy\#")
        Else
            DateFormat = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#")
        End If
    End If
End Function

للاستدعاء

DateFormat([Date1])

 

لا استطيع استعمال الدوال لاني استعمل الكويري وبها الكثير من العمليات 

20 minutes ago, أ / محمد صالح said:

وهل هذا الفهم خطأ؟

أليس 1 ديسمبر 2021 اصغر من 2 ديسمبر 2021 وهما معا أصغر من 1 يناير 2022

؟؟

هناك اخطأ اسف 

البرنامج يفهم 2 ديسمبر 2021 اكبر من 1يناير 2022

المشكلة عند اختلاف السنوات فقط

[أ / محمد صالح]

10 دقائق مضت, AliAli47 said:

البرنامج يفهم 2 ديسمبر 2021 اكبر من 1يناير 2022

 

ليس منطقيا ابدا 

الكلام النظري في هذه الحالة لا يفيد

يفضل إرفاق الجزء الخاص بالمشكلة من ملفك

افضل من التخمينات وعدم الوضوح 

[د.كاف يار]

منذ ساعه, AliAli47 said:

لا استطيع استعمال الدوال لاني استعمل الكويري وبها الكثير من العمليات 

منذ ساعه, أ / محمد صالح said:

لا يهم جرب استخدم المرفق و ستجد النتيجة

 

NewData.mdb

[AliAli47]

6 hours ago, أ / محمد صالح said:

ليس منطقيا ابدا 

الكلام النظري في هذه الحالة لا يفيد

يفضل إرفاق الجزء الخاص بالمشكلة من ملفك

افضل من التخمينات وعدم الوضوح 

نعم كما ذكرت هذا غير منطقي المشكلة حدثت في الكويري فقط 

جربتها في الجدول اشتغلت بشكل عادي 

سأحاول ارفاق مثال لكي تضح الصورة

[Eng.Qassim]

7 hours ago, د.كاف يار said:

تفضل هذه الدالة التي انقذني بها اخي @jjafferr

Function DateFormat(varDate As Variant) As String

    If IsDate(varDate) Then
        If DateValue(varDate) = varDate Then
            DateFormat = Format$(varDate, "\#mm\/dd\/yyyy\#")
        Else
            DateFormat = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#")
        End If
    End If
End Function

للاستدعاء

DateFormat([Date1])

 

السلام عليكم استاذي @د.كاف يارمالذي سنستفيده من هذه الدالة فهي اعادت لنا التاريخ بين هاشتاك؟ هل ستعتبر لرقم في هذه الحالة