ElseIf şartına yazdığım komut çalışmıyor.

[MUTLUXXX]

Private Sub CommandButton1_Click()
On Error Resume Next
If TextBox11 = "" And TextBox12 = "" Then
TextBox17.Value = ((1440 * TextBox16.Value) / (ComboBox3.Value)) * ((ComboBox1.Value * ComboBox2.Value * ComboBox3.Value) / 1000000)
TextBox18 = Format((TextBox14.Value / TextBox17.Value)) * 24
TextBox2 = Format(DateAdd("d", Val(TextBox18) / 24, TextBox1), "dd.mm.yyyy")
TextBox19 = Format(TextBox2, "dd.mm.yyyy")
ElseIf TextBox11 = CDate("dd.mm.yy") And TextBox12 = Val("h" Or "hh") And CDate(TextBox11 )>= CDate(TextBox1) And CDate(TextBox11) <= CDate(TextBox2) Then
TextBox17.Value = ((1440 * TextBox16.Value) / (ComboBox3.Value)) * ((ComboBox1.Value * ComboBox2.Value * ComboBox3.Value) / 1000000)
TextBox18 = Format((TextBox14.Value / TextBox17.Value)) * 24
TextBox145.Value = (TextBox12.Value) * 1 + (TextBox18.Value) * 1
TextBox2 = Format(DateAdd("d", Val(TextBox145) / 24, TextBox1), "dd.mm.yyyy")
TextBox19 = Format(TextBox2, "dd.mm.yyyy")
End If
End Sub
ElseIf komutuna yazd&#305;&#287;&#305;m &#351;art &#231;al&#305;&#351;m&#305;yor .textbox1 e elle tarih giriyorum enson tarih aral&#305;&#287;&#305;n&#305; textbox2de g&#252;nl&#252;k &#252;retim saatine g&#246;re hesapl&#305;yor.text2de 05.01.2007 hesaplamas&#305;na kar&#351;&#305;n ben textbox11(duru&#351; tarihi) e 08.2007 yaz&#305;yorum ve textbox12(duru&#351; s&#252;resi) yede 15 saat duru&#351; s&#252;resi yaz&#305;yorum ve duru&#351;saatini text145 e ekliyor ve bunu 24 e b&#246;lerek textbox2 de son &#252;retim tarihini hesapl&#305;yor.normalde hangi tarih aral&#305;&#287;&#305;nda ise o aral&#305;kta hesaplamas&#305; gerekiyor.Te&#351;ekk&#252;r ediyorum.