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ığım şart çalışmıyor .textbox1 e elle tarih giriyorum enson tarih aralığını textbox2de günlük üretim saatine göre hesaplıyor.text2de 05.01.2007 hesaplamasına karşın ben textbox11(duruş tarihi) e 08.2007 yazıyorum ve textbox12(duruş süresi) yede 15 saat duruş süresi yazıyorum ve duruşsaatini text145 e ekliyor ve bunu 24 e bölerek textbox2 de son üretim tarihini hesaplıyor.normalde hangi tarih aralığında ise o aralıkta hesaplaması gerekiyor.Teşekkür ediyorum.
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ığım şart çalışmıyor .textbox1 e elle tarih giriyorum enson tarih aralığını textbox2de günlük üretim saatine göre hesaplıyor.text2de 05.01.2007 hesaplamasına karşın ben textbox11(duruş tarihi) e 08.2007 yazıyorum ve textbox12(duruş süresi) yede 15 saat duruş süresi yazıyorum ve duruşsaatini text145 e ekliyor ve bunu 24 e bölerek textbox2 de son üretim tarihini hesaplıyor.normalde hangi tarih aralığında ise o aralıkta hesaplaması gerekiyor.Teşekkür ediyorum.
Son düzenleme: