Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Textfeld bei Rechnung leer lassen
Autor: Eraser79
Datum: 20.09.04 18:22
Hallo zusammen Habe ein ziemlich ernstes Problem, aber wahrscheinlich ganz einfach. Ich habe eine Rechnung mit 4 Variablen aus 4 Textfeldern wo mindestens 2 benutz werden. Wenn ich die Variablen als Variant deklariere kann ich auch eins der Textfelder auslassen, auf Rechnen klicken und es geht. Habe dann nur keine Nachkommastellen. Deklariere ich die Varriablen als Currency oder double habe ich zwar Nachkommastellen aber sobald ein Feld leer ist Macht er Laufzeitfehler 13 Typenunverträglich Bitte helft mir Hier der Code Dim var1 As Currency Dim var2 As Currency Dim var3 As Currency Dim var4 As Currency Dim var5 As Currency Dim var6 As Currency Private Sub B1_Click() var1 = Format(E1.Text, "#####0.0000") var2 = Format(E2.Text, "#####0.0000") var3 = Format(E3.Text, "#####0.0000") var4 = Format(E4.Text, "#####0.0000") var5 = Format((var1) + (var3), "#####0.0000") var6 = Format((var2) + (var4), "#####0.0000") A1.Caption = Format(((var5 * var5) + (var6 * var6)) ^ 0.5, "#####0.0000") If var5 < 0 And var6 = 0 Then A2.Caption = Format((180), "#####0.0000") End If If var6 > 0 And var5 = 0 Then A2.Caption = Format((90), "#####0.0000") End If If var6 < 0 And var5 = 0 Then A2.Caption = Format((270), "#####0.0000") End If If var5 > 0 And var6 = 0 Or var5 > 0 And var6 > 0 Then A2.Caption = Format((180 / 3.141592655 * (Atn(var6 / var5))), "####0.0000") End If If var5 < 0 And var6 < 0 Then A2.Caption = Format((180 / 3.141592655 * (Atn(var6 / var5)) + 180), "#####0.0000") End If If var5 < 0 And var6 > 0 Then A2.Caption = Format((180 / 3.141592655 * (Atn(var6 / var5)) + 180), "#####0.0000") End If If var5 > 0 And var6 < 0 Then A2.Caption = Format((180 / 3.141592655 * (Atn(var6 / var5)) + 360), "#####0.0000") End If If var5 = 0 And var6 = 0 Then A2.Caption = Format((0), "#####0.0000") End If If E1.Text = "" Then E1.Text = "0" End If If E2.Text = "" Then E2.Text = "0" End If If E3.Text = "" Then E3.Text = "0" End If If E4.Text = "" Then E4.Text = "0" End If End Sub Private Sub B2_Click() E1.Text = "" E2.Text = "" E3.Text = "" E4.Text = "" A1.Caption = "" A2.Caption = "" End Sub Private Sub Command1_Click() MsgBox "Vielen Dank für das Benutzen dieses Super tools" End End Sub Private Sub Command2_Click() Menue.Show End Sub

Textfeld bei Rechnung leer lassen	749	Eraser79	20.09.04 18:22
Re: Textfeld bei Rechnung leer lassen	477	g0d	20.09.04 18:57
Re: Textfeld bei Rechnung leer lassen	605	Eraser79	21.09.04 08:27

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen