Problem mit VBS (GoTo-Befehl)

[Soxx]

Hallo libe Community

da ich jetzt meine ausbildung zum Steuerfachangestellten begonnen habe wurde mir die aufgabe gestelt ein programm zuschreiben welches mir meine arbeit erleichter ....

was liegt da näher als ein programm welches %Rechnungen übernimmt...

in einzelteilen (Plus / Minus) funktioniert es auch schon nur halt nicht zusammen

wobei ich probleme habe sthet in <spitzen klammern>

hier das Script:

On Error Resume Next


<Fenster zum wählen (Plus/Minus) und danach Springen (wenn Plus zu Plus) (wenn Minus zu Minus)>

<Plus>


Msgbox "Mit dieser Funktion steigern sie einen Wert um einen gewünschten Prozentsatz"

dim b
set b = CreateObject("WScript.Shell")
b = InputBox("Bitte den Ursprungswert eingeben","Eingabebox","Hier die Zahl eingeben")

dim c
set c = CreateObject("WScript.Shell")
c = InputBox("Bitte den Prozentsatz eingeben um welchen der Ursprungswert erhöht werden soll werden soll","Eingabebox","Hier die Zahl eingeben")

dim d
set d = CreateObject("WScript.Shell")
d = c -- 100


dim e
set e = CreateObject("WScript.Shell")
e = b / 100 * d


MsgBox "Das Ergebnis ihrer Rechnung lautet: " & e,64,""

<Befehl um zum ende des Scripts zu springen(ende)>


<Minus>

Msgbox "Mit dieser Funktion senken sie einen Wert um einen gewünschten Prozentsatz"

dim f
set f = CreateObject("WScript.Shell")
f = InputBox("Bitte den Ursprungswert eingeben","Eingabebox","Hier die Zahl eingeben")

dim g
set g = CreateObject("WScript.Shell")
g = InputBox("Bitte den Prozentsatz eingeben um welchen der Ursprungswert gesenkt werden soll","Eingabebox","Hier die Zahl eingeben")

dim h
set h = CreateObject("WScript.Shell")
h = g -- 100


dim i
set i = CreateObject("WScript.Shell")
i = f / h * 100

MsgBox "Das Ergebnis ihrer Rechnung lautet: " & i,64,""


<ende>

[chipchap]

Hallo Soxx!

Folgendes ist mir aufgefallen:
- wo sind Sub und End Sub?
- die Division durch "0" wird nicht abgefangen
- aus welcher Anwendung heraus wird das Script aufgerufen?
- "Minus" rechnet falsch (100 - 5% = 95,23...?)
- warum nimmst Du nicht VB?

Gruß chipchap

EDIT:
Hab ' ne kleine Auswahlroutine im gleichen Stil geschrieben:

Sub Start()
Dim s
Set s = CreateObject("WScript.Shell")
s = InputBox("Plus, Minus, ENDE?", "Eingabebox", "P = Plus; M = Minus; E = ENDE")
Select Case s
Case "P", "p"
    PLUS
Case "M", "m"
    MINUS
Case "E", "e"
    Exit Sub
Case Else
    Start
End Select
Start
End Sub

Funktioniert bei mir unter Excel 2007 und Vista 64 Ulti.
Aus einer "Sub" kommt man sofort mit "Exit Sub" raus.

Den Rest mußt Du noch abfangen.

[Soxx]

danke dir chipchap

da mir aber gesagt wurde das das programm eigenst&#228;ndig bzw "ohne" ein office programm laufen sollte damit ich es auch auf rechnern ohne office anwenden kann schrieben soll w&#252;rde diese idee also wegfallen....

k&#246;nnteste mir die auch f&#252;r vbs schreiben???

Gru&#223; soxx

"Minus" rechnet falsch (100 - 5&#37; = 95,23...?)

da dieser rechner etwas mit Mwst zutun hat darfst du beim minusrechnen nicht von 100% ausgehen sondern von 119% / 107%

[chipchap]

... da mir aber gesagt wurde das das programm eigenständig bzw "ohne" ein office programm laufen sollte damit ich es auch auf rechnern ohne office anwenden kann schrieben soll würde diese idee also wegfallen....

Und wie wird das Script dann aufgerufen?
Hast Du kein VB6?
Da geht vieles leichter.

da dieser rechner etwas mit Mwst zutun hat darfst du beim minusrechnen nicht von 100% ausgehen sondern von 119% / 107%

Erklär mir dann bitte mal den Rechenweg von "MINUS".
Wo ist die Unterscheidung zwischen reduzierter und normaler MWSt?

[Soxx]

habe in dieser sache nur windows standart (winXP SP3)

wir kaufen uns zB einen Fernseher für 100€ (wert inklus. 19% Mwst)

dann wären die 100€ = 119%

119% = 100€
1% = 100/119
100% = 100/119 * 100 (119% - 19% = 100%)
100% = 84,03€

^^

hoffe kannst mir trotzdem im bezug auf VBS helfen

[chipchap]

Hallo Soxx!

1. Es heißt Standard
2. Was soll der Blödsinn: "119% -19%"; daß das 100% sind ist wohl klar.
.
3. Wo ist die Unterscheidung zwischen Reduziertem (7%) und normalem (19%) Mehrwertsteuersatz ?
4. Wie wird die Berechnung aufgerufen?
5. Bekommst Du Geld für Deinen Beruf?

hoffe kannst mir trotzdem im bezug auf VBS helfen

Ich bin eigentlich mehr auf der VB6-bewandert, aber die Kollegen sind da besser.

Gruß chipchap

[Soxx]

zu 3. wie meinste das möchtest du wissen welche waren mit welchem prozentsatz versteuert sind??

zu 4. wie du sehen kannst

dim f
set f = CreateObject("WScript.Shell")
f = InputBox("Bitte den Ursprungswert eingeben","Eingabebox","Hier die Zahl eingeben")

dim g
set g = CreateObject("WScript.Shell")
g = InputBox("Bitte den Prozentsatz eingeben um welchen der Ursprungswert gesenkt werden soll","Eingabebox","Hier die Zahl eingeben")

dim h
set h = CreateObject("WScript.Shell")
h = g -- 100

dim i
set i = CreateObject("WScript.Shell")
i = f / h * 100

wird bei g der prozentsatz eingegeben (7 oder 19) und bei h dann mit 100 addiert

dann der ursprungswert (f) durch seinen prozentsatz (g) geteilt und dann mit 100 multiplitziert


zu5. ja ich bekomme während meiner ausbildung geld

[chipchap]

Langsam tröpfelt es durch.
Du berechnest bei "Minus" also den Nettowert.

Noch mal:

4. Wie wird die Berechnung aufgerufen?

Führst Du das .vbs-Script per Klick oder aus einem Programm heraus aus?
Bei mir geht es leider nur aus Excel .

zu5. ja ich bekomme während meiner ausbildung geld

Also dann:
http://www.amazon.de/Windows-Scripti...1809257&sr=8-1
http://www.amazon.de/Windows-Scripti...1809257&sr=8-4

Gruß chipchap

P.S.: Ein geeigneter Taschenrechner für 15.- Euro packt +TAX und -TAX mit einem Tastendruck - aber zum Programmieren lernen ist das Beispiel gut.

[Soxx]

ich fürhe die vbs mit einem einfachen doppelklick aus