حساب لتاريخ داخل فورم

[طلعت محمد حسن]

الاخوه الافاضل

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

يوجد عندي فورم يوجد بداخلة تكست بوكس عدد اثنان

الاول يتم ادخال التاريخ فية

والثاني اريد ان يظهر التاريخ الاول بداخلة مضاف الية 30 يوم اي شهر من التاريخ الاول فما هو الكود البرمجي لذلك

وشكرا لكم. 

[عبدالله باقشير]

السلام عليكم

 

جرب الكود التالي

Private Sub TextBox1_AfterUpdate()
Me.TextBox2 = ""
With Me.TextBox1
    If IsDate(.Value) Then
        .Value = Format(CDate(.Value), "yyyy/mm/dd")
        Me.TextBox2 = Format(CDate(.Value) + 30, "yyyy/mm/dd")
    End If
End With
End Sub

تحياتي

[أبو حنــــين]

السلام عليكم

اصافة لما تفضل به اخي عبد الله واثراءا للموضوع يمكن استعمال الكود

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If IsDate(TextBox1) Then TextBox2 = Format(DateAdd("d", 30, TextBox1), "dd-mm-yyyy")

End Sub

[طلعت محمد حسن]

 

السلام عليكم

اصافة لما تفضل به اخي عبد الله واثراءا للموضوع يمكن استعمال الكود

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If IsDate(TextBox1) Then TextBox2 = Format(DateAdd("d", 30, TextBox1), "dd-mm-yyyy")

End

 

السلام عليكم

اصافة لما تفضل به اخي عبد الله واثراءا للموضوع يمكن استعمال الكود

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If IsDate(TextBox1) Then TextBox2 = Format(DateAdd("d", 30, TextBox1), "dd-mm-yyyy")

End Sub

شكرا جزيلا الاستاذ عبد اللة باقشير والاستاذ ابو حنين

طبقت الكود اخي ابو حنين في التكست بوكس الاول كتبت 1/1/2013 كانت النتيجة في التكست بكس الثاني كما يلي 31/1/1331

[أبو حنــــين]

السلام عليكم

شاهد المرفق

مثال.rar

[طلعت محمد حسن]

مشكور استاذي ابو حنين ما قصرت الكود واضح ويعمل بشكل صحيح 

اقبل تحياتي واحترامي لشخصك الكريم.

[أبو چيداء]

استاذنا ابوحنين لو تكرمتم اريد تعديل فى هذا الفورم

حيث اريد اضافة تيكست بوكس اخر وعندما اكتب التاريخ ثم اكتب اي رقم في التكست بوكس الجديد يتم اضافة هذا الرقم مع التاريخ ويظهر تلقائيا فى التكست بوكس الاخر

بمعنى لو كتبت مثلا 1/1/2013 ثم كتبت رقم 9 وضغط على انتر يظهر تلقائيا التاريخ فى التكست بوكس الاخر 9/1/2013

وشكرا