Kodlardaki tarih hatası

[vandervoals]

Satılan bir ürünün borcunun gecikmeli ödenmesi nedeniyle ödenecek ceza miktarını gösteren
bir program Geciken her gün başına ürünün fiyatına 1/1000 ceza ekleniyor.
kodlarda tarih2 de hata veriyor ve nedenini çözemedim ilgilenirseniz sevinirim.kodlar aşağıdaki gibidir.
Private Sub Button1_Click(...)
Dim tarih1, tarih2 As Date
Dim fark, ceza As Long
tarih1 = TextBox3.Text
tarih2 = TextBox4.Text
fark = tarih2.ToOADate - tarih1.ToOADate
ceza = fark * 0.001 * Val(TextBox2.Text)
TextBox5.Text = ceza
TextBox6.Text = Format((Val(TextBox2.Text) + ceza), "##,##")
End Sub
Private Sub Form1_Load(...)
TextBox4.Text = Today
End Sub

 

[Korhan Ayhan]

Tanımlamadaki ayarı değiştirin.

Hatalı;

Dim tarih1, tarih2 As Date

Olması gereken;

Dim tarih1, tarih2