الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طريقة كتابة تاريخ في تعبير والتعامل مع الإجازات

مغلق
بدأه حارث في 11 يونيو 2002 · 4 رد · 2,011 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

في بعض أنواع التعبيرات في الاستعلامات والنماذج وجدت أني أحيانا إذا أردت أن أكتب تاريخ 12 من الشهر الأول (يناير) من السنة 1999 م يجب أن أكتب الشهر قبل اليوم ولاحظت أني لو كتبت اليوم قبل الشهر تكون النتيجة خاطئة لأن الأكسس يقرأها على أنها اليوم الأول من شهر 12 (ديسمبر)

السؤال الأول: هل لطريقة كتابة التاريخ في التعبيرات أي علاقة بتنسيق التاريخ في الويندوز ، أم لا .

أو بشكل آخر : هل قد تختلق طريقة كتابة التاريخ في التعبيرات من جهاز لآخر ؟

بحيث قد يؤثر هذا على البرنامج لو حمل على جهاز آخر .

السؤال الثاني :

كتبت كودا في وحدة نمطية عامة يعالج تاريخ رفع المعاملات بحيث إذا وافق التاريخ الافتراضي لرفع المعاملة إجازة من الإجازات فإنه يتأجل إلى أول يوم من الدوام بعد الإجازة ، وإذا وافق خميسا أو جمعة فإنه يتأجل إلى يوم السبت ، وبرفقه مثال على الكود :

http://www.pcpages.com/harith77/Moad.zip

أرجو التفضل بإبداء الملاحظات على الكود .

وقد دونت بعض الإشكالات في نفس الكود

#2

الأخ حارث .. بعد التحية :

هذا رد سريع للفقرة الأولى :

استخدم هذه الدالة ( DateSerial( Year, Month, Day تحميك من مشكلات الفورمات .

تحياتي

#3

شكرا أخي أبو هادي :

لكن مع الأسف سبق أن جربت DateSerial في الدالة

DLookup لتضمين النتيجة في criteria بالشكل التالي (مثلا) :

Result = DateSerial (Year(MyDate),Month(MyDate),Day(MyDate))

DLookup("[Field]", "[Table]", "[Date2] >=#" & Result & ")

ونفس المشكلة

ولم أجد حلا إلا بأن أكتب بدلا من DateSerial السابقة الدالة التالية :

Result = Format(MyDate, "mm/dd/yyyy")

لكن كما تعلم هذا "تمشية حال"

#4

يمكن مباشرة

MyDate = MyDate +16

فى أول الكود

بدلا من تعيين متغير جديد

أما عن الFormat

فواجهتني من قبل و لم أستطع الاستغناء عنها

فيبدو أن هناك فورمات افتراضي للتعامل مع التاريخ بهيئة mm/dd/yy

فى الكود

و لكن هل جربت تغيير الفورمات الافتراضي من ال control Pannel

أعتقد علي ما أذكر أنه لم يؤثر و اضططرت لوضع دالة format مثلما فعلت أنت

counter2001.cgi?558002

#5

مشكور أخي محمد ، وجزاك الله خير على هذه الفائدة وعلى التصحيح .

وخطر ببالي فكرة ولعلها ما قصده أبو هادي .

أن أعلن عن ثلاثة متغيرات : MyYear , MyMonth , MyDay

ثم أكتبها داخل التعبير بالشكل التالي :

Date1 = DLookup("[Field]", "[Table]", "[Date2] >= Dateserial(" & MyYear & "," & MyMonth & "," & MyDay & ")")

وسأجربها إن شاء الله .

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…