Prozentrechnung in Superbase

Doener

Cadet 3rd Year
Registriert
Apr. 2001
Beiträge
35
Kann mir einer hierbei helfen?

Aufgabenstellung :
Erstellen Sie einen Requester oder einen Dialog zur Eingabe eines Zahlenwertes,
z.B. eines Nettozahlungsbetrages. Der Requester/Dialog muß einen „OK“ und einen
„Abbruch“ - Klickbutton haben. Der „Abbruch“-Button soll das Programm beenden.
Bei der Auswahl von „OK“ soll in einem zweiten Requester oder Dialog der Bruttobetrag
ausgerechnet angezeigt werden. Der Berechnungsfaktor soll 16% (MwSt.) entsprechen.
Beispielberechnung :
Eingabe 100,00 Ergebniss 116,00

Das Programm sollte als „start.sbp“ abgespeichert werden.

Die Software zum Erstellen erhalten Sie unter:
http://www.mis-software.de/ausbildung/sb2001demo.zip
 
Und Du glaubst das sich jemand die 25 MB als Demo runterlädt, es installiert und Dir dann bei den Aufgaben hilft?
 
Ich hoffe ja, das jemand in dieser Sprache programmiert...dann hat er die Software ja schon, aber eiegntlich ist es mir ja egal ob es nun mit dieser oder jener gemacht wird, hauptsache es ist in Superbase. Sollte ja nur eine Hilfe sein, falls mir wer helfen kann, aber das Programm net zur Hand hat. Was sind schon 24 MB mit DSl??



So würde der Code mit VBS aussehen, das ist ja auch soweit kein Problem:

Option Explicit

Dim mZahl
Dim oZahl

mZahl=InputBox("Geben Sie bitte die Zahl ein, FÜR die die MwSt berechnet werden soll!")

If mZahl = "" Then
MsgBox "Sie müssen eine Zahl eingeben!"
Else
oZahl = Round(mZahl / 100 * 116, 1)
MsgBox "Das Ergebnis lautet: " & oZahl & " Prozent!"

End if
 
Zuletzt bearbeitet:
Zurück
Oben