Soru textbox tarih hesaplama

[sirkülasyon]

If TextBox2 = "" Or TextBox3 = "" Then MsgBox "Tarih alanları boş geçilemez.!", vbCritical, "HATA": Exit Sub
If Not IsDate(TextBox2) Then MsgBox "Alanlara tarih değeri giriniz.": Exit Sub
If Not IsDate(TextBox3) Then MsgBox "Alanlara tarih değeri giriniz.": Exit Sub
tarih = TextBox3.Text
tarih1 = TextBox2.Text
ilkgun = Mid(tarih, 1, 2): songun = Mid(tarih1, 1, 2)
ilkay = Mid(tarih, 4, 2): sonay = Mid(tarih1, 4, 2)
ilkyil = Mid(tarih, 7, 4): sonyil = Mid(tarih1, 7, 4)
If ilkgun < songun Then ilkgun = ilkgun + 30: ilkay = ilkay - 1
If ilkay < sonay Then ilkay = ilkay + 12: ilkyil = ilkyil - 1
yil = ilkyil - sonyil
ay = ilkay - sonay
gun = ilkgun - songun
If ilkay - sonay > 12 Then ay = ay - 12: yil = yil + 1
TextBox8 = yil & " YIL " & ay & " AY " & gun & " GUN "

yukarıda ki kod ile iki tarih arası gün ay yıl farkını buluyorum. Şöyle bir istirhamım olacak

tarih = TextBox3.Text
tarih1 = TextBox2.Text

kısmını girilen tarihe göre ayarlamak mümkün mü? Şöyle ki;
tarih büyük olan
tarih1 küçük olan tarih. Ekleme yapılan bir kod ile girilen tarih verisine göre büyük tarihi tarih kısmına, küçük tarihi de tarih1 kısmına alabilmemiz mümkün mü?

 

[ÖmerFaruk]

tarih = Format(WorksheetFunction.Max(Texbox1, TextBox2), "dd.mm.yyyy")
tarih1 = Format(WorksheetFunction.Min(Texbox1, TextBox2), "dd.mm.yyyy")

 

[ÖmerFaruk]

TexBox1....TextBox1 olacak.

 

[sirkülasyon]

ÖmerFaruk Ustam
Bu güne kadar yardımlarınızı esirgemediğiniz için teşekkür ederim.