iki tarih arasındaki gün farkını textboxa yazdırma

[hamitcan]

Aradaki gün farkını textbox21 e yazdırmak istiyorum yardımcı olursanız sevinirim

Private Sub TextBox11_exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim TextBox10 As Date
Dim TextBox11 As Date

TextBox21 = Application.WorksheetFunction.Days360(TextBox10.Text, TextBox11.Text)
End Sub

 

[Nazmi YAZICI]

Mrb

Textlerin içindeki tarih formatının 29.06.2005 şeklinde olduğunu varsayarsak, aşağıdaki kod işinizi görecektir.

Syg.

Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ilk As Date
Dim son As Date
ilk = TextBox10.Value
son = TextBox11.Value
TextBox11 = Application.WorksheetFunction.Days360(ilk, son)

End Sub

 

[hamitcan]

ilk = TextBox10.Value satırında

type mismatch hatasını verdi

 

[hamitcan]

cevabını buldum formatı aşağıdaki gibi tanımlayınca veriyor
Yine de ilgilendiğiniz için teşekkürler Sn. Yazıcı

ilk = Format(TextBox10.Value, "00000")
son = Format(TextBox11.Value, "00000")