Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Eurorechner
Autor: Maik Jannasch
Datum: 04.01.02 19:52
Lord, funzt ned ..... Private Sub Command1_Click() Dim eurorueck, eurobetrag, eurogabe As Double eurobetrag = Val(Text1.Text) * (1 / 1.95583) eurogabe = Val(Text3.Text) * (1 / 1.95583) + Val(Text4.Text) eurorueck = eurogabe - eurobetrag lblEuroRückgabe.Caption = Format$(eurorueck, "0.00") End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" lblEuroRückgabe.Caption = "" End Sub Private Sub Text1_LostFocus() Dim A As Currency If Text1.Text = "" Then Exit Sub If IsNumeric(Text1.Text) Then A = CCur(Text1.Text / 1,95583) ---> die Zeile ist rot Text2.Text = A End If End Sub

Eurorechner	62	Maik Jannasch	04.01.02 19:32
Re: Eurorechner	40	Chris	04.01.02 19:44
Re: Eurorechner	38	Maik Jannasch	04.01.02 19:47
Re: Eurorechner	43	Chris	04.01.02 20:37
Da ist der Alpentaler aber gut weggekommen (ot)	564	unbekannt	04.01.02 20:40
Diese Währung heißt Schilling (oT)	102	Chris	04.01.02 22:28
Ich bin überzeugt: Das ist der Grundstock für große Mathemat...	455	unbekannt	04.01.02 22:57
Re: Eurorechner	445	unbekannt	04.01.02 19:46
Re: Eurorechner	36	Maik Jannasch	04.01.02 19:48
Re: Eurorechner	61	Maik Jannasch	04.01.02 19:52
Re: Eurorechner	32	Maik Jannasch	04.01.02 20:01
Re: Eurorechner	426	unbekannt	04.01.02 20:04
Re: Eurorechner	34	Maik Jannasch	04.01.02 20:18
Re: Eurorechner	38	Tux_007	04.01.02 23:00
Re: Eurorechner	43	Mr.Bob	05.01.02 11:36

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