اذهب الي المحتوي
أوفيسنا

برمجة زرين احداهما لزيادة التاريخ يوم واحد والآخر لإنقاص التاريخ ايضا يوم واحد


Alaaq3
إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

الردود الموصى بها

السلام عليكم ورحمة الله وبركاته : الاخوة الاعزاء : اريد  برمجة زرين احداهما كلما اضغط عليه يقوم بزيادة التاريخ يوم واحد والآخر بالاعكس . ارجو تعديل النموذج المرفق

XXXX.PNG

تاريخ اليوم.xlsm

رابط هذا التعليق
شارك

  • أفضل إجابة

يمكنك استعمال هذا الكود

Private Sub CommandButton1_Click()
TextBox1.Value = Format(DateAdd("d", -1, CDate(TextBox1.Value)), "YYYY/MM/DD")
End Sub

Private Sub CommandButton2_Click()
TextBox1.Value = Format(DateAdd("d", 1, CDate(TextBox1.Value)), "YYYY/MM/DD")
End Sub

بالتوفيق 

  • Like 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information