تنسيق التاريخ في الفورمة

[kkfhvvv]

السلام عليكم

رمضان مبارك

عندي فورم - احتاج تنسيق التاريخ حسب ما موضح بالملف المرفق 

اليوم + الشهر + السنة

 

تنسيق التاريخ.xlsm

[محمد هشام.]

جرب هدا 

 

تنسيق التاريخ و اظافة و تعديل.xlsb

[kkfhvvv]

السلام عليكم

حيا الله الخبراء

جزيتم خيرا

ملاحظة :

خانة (الى تاريخ) بالفورمة - تأتي تلقائيا 

فنثلاً اذا اخذ الموظف اجازة (3) ايام اعتبارا من 1 / 4 / 2024  - ( فيتمتع اجازة يوم ( 1 / 4 + 2/ 4 + 3/ 4 )

اللي حصل زيادة يوم ( حاليا ) يظهر التاريخ  4 / 4 / 2024 - المفروض يظهر  3 / 4 /2024

ارجو التعديل

جزيتم خير

[محمد هشام.]

 

Private Sub TextBox7_Change()
If IsDate(Me.TextBox7) And IsNumeric(Me.TextBox4) Then
    Me.TextBox8 = Format(CDate(Me.TextBox7) + CDbl(Me.TextBox4) - 1, "yyyy/mm/dd")
Else
Me.TextBox8 = ""
End If
End Sub

 

تنسيق التاريخ و اظافة و تعديل.xlsb

[kkfhvvv]

جزيت خيرا 

تسلم

جزيت خيرا 

تسلم