bouzara.larbi قام بنشر أكتوبر 5, 2016 مشاركة قام بنشر أكتوبر 5, 2016 أريد إضافة 10 سنوات إلا يوم أي اليوم السابق مثلا: 05/10/2016 إلى 04/10/2026 Private Sub Commande378_Click() Dim ADate As Date ADate = DateAdd("YYYY", 1O, Me. [A]) =DateAdd("d", -1, [B]) Me. [B] = ADate End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.