[حل شده] تبدیل روز به سال و ماه و روز

[reza_gh_tak]

چطور میتونیم فر تعداد روز رو در فرم زیر تبدیل به سال و ماه و روز بکنیم

[misammisam]

سلام
TextBox2 رو بدین صورت بنویسید

Private Sub TextBox2_Change()
If Len(TextBox2) = 4 Then
TextBox2 = TextBox2 & "/"
ElseIf Len(TextBox2) = 7 Then
TextBox2 = TextBox2 & "/"
ElseIf Len(TextBox2) = 10 Then
Sen = J_DIFF(TextBox2, TextBox1)
Sal = Int(Sen / 364)
Mah = Int((Sen - (Sal * 364)) / 30)
Roz = Sen - ((Sal * 364) + (Mah * 30))
TextBox3 = Sal & " سال و " & Mah & " ماه و " & Roz & " زوز "
Else
TextBox3 = ""
End If
End Sub 

[reza_gh_tak]

این فایل یه مشکل داره فقط تفاوت یکسال رو درست میده مثلاً و هر سال که بالاتر میرید یکروز بیشتر حساب می کنه مخصوصاً این تو فواصل مثلاً سی سال تبدیل به یکمکماه میشه یعنی اگر مثلا 1398/05/19 تاریخ روز باشه و تولد 1361/05/19 باشه به این صورت نشون میده 37 سال و 1 ماه 16 روز نشون میده که این اشتباهه

[reza_gh_tak]

Private Sub TextBox2_Change()
If Len(TextBox2) = 4 Then
TextBox2 = TextBox2 & "/"
ElseIf Len(TextBox2) = 7 Then
TextBox2 = TextBox2 & "/"
ElseIf Len(TextBox2) = 10 Then
Sen = J_DIFF(TextBox2, TextBox1)
Sal = Int(Sen / 365)
Mah = Int((Sen - (Sal * 365)) / 30)
Roz = Sen - ((Sal * 365) + (Mah * 30))
TextBox3 = Sal & " سال و " & Mah & " ماه و " & Roz & " زوز "
Else
TextBox3 = ""
End If
End Sub 

کد باید به این صورت یعنی تقسیم بر 365 می شد