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

[Alaaq3]

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

تاريخ اليوم.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

بالتوفيق 

[Alaaq3]

احسنتم وجزاكم الله الف خير 

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

أحسن الله إليكم