وضع أزرار للتحكم في الوقت والتاريخ

هل معنى كلامك أنك تريد ضبط ساعة النظام من خلال برنامجك؟؟

بوركت أخي العزيز .... الذي أريده صناعة أزرار لتغيير أو لتعديل الأوقات والتواريخ الموجوده في برنامجي الذي أرفقته .... وألف شكر لسيادتكم....

بوركتم ... شاركونا..........

أرجو من الأعضاء الكرام المساعدة

تفضل أخي الكريم

تم وضع زرين للتعامل مع مربع النص timegoing

ويمكنك عملها مع timecomming

وإذا كنت تريد تغيير قيمة الحقل بناء على قيمته لا تغير في الكود أي شيء

أما إذا كنت تريد الحساب بناء على الوقت الحالي

فاجعل السطر الأول تعليق وأزل علامة التعليق من الثاني

Dim dt As Date
dt = Me.timegoing
'dt = Now

اجعلها هكذا

Dim dt As Date
'dt = Me.timegoing
dt = Now

وعذرا لتأخر الرد نظرا لانشغالي

mas_dateandtime.rar

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

أخي العزيز mas123

بارك الله فيك وبوركت يمناك

ما شاء الله عمل رائع وجميل من رجل أكثر من رائع

وألف شكر ... وادعو الله أن يحقق كل ما تتمنى

وآسف على إزعاجك

وألف شكر

أستاذنا محمد صالح

بارك الله لك وبارك لأهلك ... حل رائع وممتاز .. ولا أخفيك فقد كنت أحاول ولكن كانت طريقة طويـــــــــــــــــــلة جداً تعتمد على تجزئة الحقل لخمسة حقول وإعادة تجميعها

وهذه نتيجة التجربة تفصيلياً .. .. لحل الملاحظات الصغيرة ما أمكن:

عند إختيار السنة:

عند الزيادة .. تتم الزيادة فى اليوم وليس فى السنة.

عند النقص.. يتم النقص فى السنة ولكن كل أربع سنوات تتم زيادة الأيام بمقدار يوم واحد.

إختيار الشهر

عند الزيادة .. تمام

عند النقص .. يتم النقص فى الأشهر ولكن كل شهرين تزيد الأيام بمقدار يوم.

إختيار اليوم

عند الزيادة والنقص .. كله تمام

إختيار الساعة

عند الزيادة والنقص .. كله تمام

إختيار الدقائق

عند الزيادة والنقص .. كله تمام

تعديل بعد قراءة مشاركة أخينا الغــــــــرا (صاحب الموضوع) ..فلم تكن موجودة عندما كنت أكتب مشاركتى أعلاه :

أرى أنه لم يذكر الملاحظات ، هل يعنى ذلك أن هذه الملاحظات ظهرت عندى فقط .. أرجو التجربة والرد من أستاذنا محمد صالح ومن يقوم بالتجربة.

تحياتى

محمد ندا

Mohamed Nada كتب:

أستاذنا محمد صالح

بارك الله لك وبارك لأهلك ... حل رائع وممتاز .. ولا أخفيك فقد كنت أحاول ولكن كانت طريقة طويـــــــــــــــــــلة جداً تعتمد على تجزئة الحقل لخمسة حقول وإعادة تجميعها

وهذه نتيجة التجربة تفصيلياً .. .. لحل الملاحظات الصغيرة ما أمكن:

عند إختيار السنة:

عند الزيادة .. تتم الزيادة فى اليوم وليس فى السنة.

عند النقص.. يتم النقص فى السنة ولكن كل أربع سنوات تتم زيادة الأيام بمقدار يوم واحد.

إختيار الشهر

عند الزيادة .. تمام

عند النقص .. يتم النقص فى الأشهر ولكن كل شهرين تزيد الأيام بمقدار يوم.

إختيار اليوم

عند الزيادة والنقص .. كله تمام

إختيار الساعة

عند الزيادة والنقص .. كله تمام

إختيار الدقائق

عند الزيادة والنقص .. كله تمام

تعديل بعد قراءة مشاركة أخينا الغــــــــرا (صاحب الموضوع) ..فلم تكن موجودة عندما كنت أكتب مشاركتى أعلاه :

أرى أنه لم يذكر الملاحظات ، هل يعنى ذلك أن هذه الملاحظات ظهرت عندى فقط .. أرجو التجربة والرد من أستاذنا محمد صالح ومن يقوم بالتجربة.

تحياتى

محمد ندا

بارك الله فيك وفي اهتمامك بالموضوع أخي محمد ندا

بالفعل صدقت فيما يخص الزيادة السنة فالكود به خطأ بسيط

Case "سنة"
Me.timegoing = DateAdd("y", 1, dt)

والصواب

Case "سنة"
Me.timegoing = DateAdd("yyyy", 1, dt)

أما بالنسبة لباقي العمليات عند نقص السنين والشهور فقد اعتمدت على الحسابات العالمية بنظام السنة 365 يوم والشهر 30 يوم

ومن المعلوم أن كل 4 سنوات تكون سنة كبيسة 366 يوم

وبمعدل كل شهرين يوجد شهر 31 يوم

وللعلم يمكن ضبطها لكن أنا مشغول الآن

ربما بالمساء إن شاء الله أحاول معها

بارك الله لك أستاذنا محمد صالح

أشكر لك سرعة ردك

وطبعاً أقدر تماماً إنشغالك .. اللهم وفقك فى كل أعمالك

وتم ضبط كود السنة كما أشرت أضبح يزيد وينقص فى السنة

ولكن ما قصدته ليس زيادة يوم على الشهر أن يكون بدلاً من 30 يصبح 31 .. فهذه الناحية تعمل بشكل أكثر من رائع .. فقد جربتها تماماً وكان تركيزى على جزئية الأشهر وعدد أيامها وهى مضبوطة تماماً

حتى أننى قمت بتجربة السنوات البسيطة والكبيسة (365 و 366) وكلها تعمل تمام

ولكن الزر يقوم بزيادة يوم من الرقم الحالى لليوم برغم أننا نكون نعمل بالشهر أو السنة.

فى انتظار ردك الكريم عندما يسمح وقتك ومشغولياتك.

تحياتى واحترامى

محمد ندا

الإخوة الكرام، بارك الله فيكم، وجزى الله خيراً الأخ محمد صالح على هذا الحل الجميل.

أحببت أن أشار إن سمحتم بتلميح: الدالة DateAdd تقبل معاملات بالناقص أيضاً. وهذا يوفر عليك الكثير بصدد زر الناقص...

والله أعلم

شكرا لك أخي أحمد مبارك الحيقي

معلومة خفيفة ولذيذة

والله ما جت في دماغي خااااااالص

للعلم الكود بعد تلميح أخي أحمد مبارك يكون

Select Case Me.typ
Case "سنة"
Me.timegoing = DateAdd("yyyy", -1, dt)
Case "شهر"
Me.timegoing = DateAdd("m", -1, dt)
Case "يوم"
Me.timegoing = DateAdd("d", -1, dt)
Case "ساعة"
Me.timegoing = DateAdd("h", -1, dt)
Case "دقيقة"
Me.timegoing = DateAdd("n", -1, dt)
End Select

وهكذا

بس على العموم مرفق الحل بمعادلات أخرى في حالة الناقص

ومضبوطة 100% يا أخي محمد ندا

في حالة الشهور وفي حالة السنين

وبانتظار آراء الإخوة

mas_dateandtime2.rar

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

أشكر جميع الأعضاء على حسن مشاركتهم في استفساري هذا

بعد إذن حضرة السادة الكرام الموضوع ميه في الميه شغال .... لكن أريد تبسيط الموضوع أكثر من كده

عايز أعدل بالوقت والتاريخ بس من غير القائمة المنسدلة (سنة، شهر، يوم، ساعة، دقيقة)

يعني أضع مؤشر الماوس على (السنة مثلا) وأضغط زر (+) يقوم تزيد سنة

وهكذا....

وألف شكر للجميع

أخى محمد صالح .. مرحباً من جديد

أشكر لك اهتمامك وردك .. تم تحميل المرفق وجارى التجريب ..

تحياتى واحترامى

محمد ندا

Mohamed Nada كتب:

أخى محمد صالح .. مرحباً من جديد

أشكر لك اهتمامك وردك .. تم تحميل المرفق وجارى التجريب ..

تحياتى واحترامى

محمد ندا

ايه أخبار نتائج التجربة

؟؟

أخى محمد صالح..

عفواً ... ولكن ما زالت حكاية زيادة يوم كل شهرين موجودة.

حاولت إصلاحها بالدالة DateAdd بمعامل الناقص ولكنها حولت التاريخ إلى صيغة Short Date.

تحياتى

محمد ندا

Mohamed Nada كتب:

حاولت إصلاحها بالدالة DateAdd بمعامل الناقص ولكنها حولت التاريخ إلى صيغة Short Date.

الدالة dateadd تعمل بصورة ممتازة ولا تغير صيغة التاريخ أخي الكريم

ومرفق المثال باستعمال dateadd في الزيادة والنقص

mas_dateandtime.rar

أخى محمد صالح

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

فعلاً .. بمرفقك الأخير لا تتغير صيغة التاريخ ..

ربما المشكلة فى الكود الذى نقلته أنا ... الآن كله تمـــــــــــــــــــــام

تحياتى

محمد ندا

لا تنسونا يا أعضاء المنتدى الكرام

أخى الغـــــرا

لا أريد أن أصادر مساعدات قد تكون قادمة إليك فى الطريق من أحد الأساتذة .. ولكن أعتقد أن الحل الذى توصلنا إليه ممتاز.

تحياتى

محمد ندا

بارك الله فيكم جميعا أخي محمد ندا ..... ولكن لا أعتقد أنها مستحيله

بوركتم جميعا يا شباب