Soru textboxlar arasında (yıl ay gün) farkını ve toplamını alma

[sirkülasyon]

TextBox7 = 1 Yıl 7 Ay 0 Gün
TextBox9 = 10 Yıl 2 Ay 16 Gün
TextBox11 = 11 Yıl 9 Ay 16 Gün

Textbox7 ile Textbox9' da yazan yıl ay gün şeklinde ki tarih biçimini Commandbutton1 ile Textbox11' e toplamak.

TextBox9 = 10 Yıl 2 Ay 16 Gün
TextBox7 = 1 Yıl 7 Ay 0 Gün
TextBox11 = 8 Yıl 7 Ay 16 Gün

Textbox9 ile Textbox7' de yazan yıl ay gün şeklinde ki tarih biçimini Commandbutton2 ile Textbox11' e Çıkarmak
için gerekli makro koduna müsait olan arkadaşlarımızdan yardımcı olmalarını rica ediyorum.
Saygılarımla

 

[Huseyinkis]

Sub demnene()
Dim TG As Integer
Dim TA As Integer
Dim TY As Integer

textbox7 = "1 Yıl 7 Ay 0 Gün"
textbox9 = "10 Yıl 2 Ay 16 Gün"
TextBox11 = "11 Yıl 9 Ay 16 Gün"

textbox9 = "10 Yıl 2 Ay 16 Gün"
textbox7 = "1 Yıl 7 Ay 0 Gün"
TextBox11 = "8 Yıl 7 Ay 16 Gün"


T71 = Replace(textbox7, " ", "")
T72 = Replace(T71, "Yıl", ";")
T73 = Replace(T72, "Ay", ";")
T74 = Replace(T73, "Gün", ";")
T7 = Split(T74, ";")


T91 = Replace(textbox9, " ", "")
T92 = Replace(T91, "Yıl", ";")
T93 = Replace(T92, "Ay", ";")
T94 = Replace(T93, "Gün", ";")
T9 = Split(T94, ";")

Gün = Int(T7(2)) + Int(T9(2))

If Gün / 30 < 1 Then
TG = Gün
ElseIf Gün / 30 < 2 Then
TG = Gün - 30
TA = 1
Else
TG = Gün - 60
TA = 2
End If

AY = Int(T7(1)) + Int(T9(1)) + TA

If AY / 12 < 1 Then
TA = AY
ElseIf AY / 12 < 2 Then
TA = AY - 12
TY = 1
Else
TA = AY - 24
TY = 2
End If

Yıl = Int(T7(0)) + Int(T9(0)) + TY

TextBox11 = Yıl & " Yıl " & TA & " AY " & TG & " GÜN"

Ekteki kodlar toplama işlemi için yaptım kontrol edermisin.

 

[sirkülasyon]

Hüseyin bey hata veriyor

AY = Int(T7(1)) + Int(T9(1)) + TA

 

[sirkülasyon]

Kod ile toplama yaptım Hüseyin Bey
Bir de Çıkarma için yardımcı olabilirmisiniz

 

[Huseyinkis]

Sub demnene()
Dim TG As Integer
Dim TA As Integer
Dim TY As Integer


textbox9 = "10 Yıl 2 Ay 16 Gün"
textbox7 = "1 Yıl 7 Ay 0 Gün"
TextBox11 = "8 Yıl 7 Ay 16 Gün"


T71 = Replace(textbox7, " ", "")
T72 = Replace(T71, "Yıl", ";")
T73 = Replace(T72, "Ay", ";")
T74 = Replace(T73, "Gün", ";")
T7 = Split(T74, ";")


T91 = Replace(textbox9, " ", "")
T92 = Replace(T91, "Yıl", ";")
T93 = Replace(T92, "Ay", ";")
T94 = Replace(T93, "Gün", ";")
T9 = Split(T94, ";")

Gün = (Int(T9(2))) - Int(T7(2))

If Gün < 1 Then
TG = Gün + 30
TA = 1
ElseIf Gün < 30 Then
TG = Gün
End If

AY = Int(T9(1)) - Int(T7(1)) - TA

If AY < 1 Then
TA = AY + 12
TY = 1
ElseIf AY < 12 Then
TA = AY
End If

Yıl = Int(T9(0)) - Int(T7(0)) - TY

TextBox11 = Yıl & " Yıl " & TA & " AY " & TG & " GÜN"


End Sub

Çıkarma içinde bunu denermisiniz.
Normalde

T9 = (Yıl * 365 + Ay * 30 + Gün +1900)
T7 = (Yıl * 365 + Ay * 30 + Gün +1900)
yapıp
Text11 Year(T9-T7) & Mounth(T9-T7) & Day(T9-T7) yaptığınızda yine çıkarma işlemini yapar fakat gün farkı alırsınız.

 

[sirkülasyon]

Çok teşekkür ederim. Ellerinize sağlık.