[ تمت الإجابة ]طريقة تحويل

يمكنك القيام بما يلي:

Dim i As Integer
Dim Years As Integer, Months As Integer, TotalMonths As Integer
TotalMonths = Val(Text1.Text)
For i = 1 To TotalMonths
	If i Mod 12 = 0 Then Years = Years + 1
Next
Months = TotalMonths - (Years * 12)
MsgBox Years & " Years and " & Months & " Months"

مع التعديل بما يناسبك

وفقك الله:)

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

اشكركما على الرد والتفاعل أخي Abboodd و المبرمج أحمد

ولقد أستفت من الكواد وفتحت لي أفكار كانت غائبة عني ردكما أعطاني حماساً وحيوية