جمع مدتين عمل

[Alsalim1]

مرحبا شباب في المرفق جمع لمدتين عمل موظف أريد في الجمع يحول الأشهر إلى سنوات إذا كان ناتج الجمع 12 سنة فأكثر ، ويحول ناتج جمع الأيام إلى أشهر إذا كان الناتج 30 يوم فأكثر

المرفق

جمع مدتين.rar

[ابو عارف]

تفضل غير  كود الزر الى الكود:

Dim Day1 As Integer
Dim Month1 As Integer
Dim Yer1 As Integer
Day1 = 0 + D1 + D2
Month1 = 0 + M1 + M2
year1 = 0 + Y1 + Y2
D3 = Day1 Mod 30
M3 = (Day1 \ 30 + Month1) Mod 12
Y3 = (Day1 \ 30 + Month1) \ 12 + year1

 

[Alsalim1]

أشكرك