Lohn-& Einkommensteuer fiir 1986 ST86 494 Zeilen, 918 Bytes, 132 Regs., SIZE 015 Hans Jurgen Hubner hatte in Heft 86.8.2!?ein Steuerprogramm vorgestellt. Aufgrund der fur 1986/87 geanderten Steuerformel habe ich ein kombiniertes Einkommensteuer-/ Lohn- steuerprogramm zusammengesteUt: Aufruf: XEQ "ST86" (Die einzelnen Bereiche (Steuerprogramme) A bis D konnen innerhalb von ST86 beliebig oft und in beliebiger Reihenfolge aufgerufen werden, E sollte nur im AnschluB an einen dieser Bereiche aufgerufen werden.) Bereiche: A Einkommensteuer aus zu versteuerndem Einkommen B Prozentualer Spitzensteuersatz C zu versteuerndes Einkommen aus Steuer betrag D Lohnsteuer nach allgemeiner Tabelle E Kirchensteuer Registerbelegung: ROO Lohn R01 ZVE (zu versteuerndes Einkommen, ungerundet) R02 ST (Steuerbetrag, Einkommen- bzw. Lohn-) R03 KIST (Kirchensteuer) R04 VSP (Vorsorgepauschale) R05 ZKF (Zahl der Kinderfreibetrage) R06 STKL (Steuerklasse, 1 -6) R07 LZZ (Lohnzahlungszeitraum, 1= Jahr, 2= Monat, 3= Woche, 4= Tag) R08 Rechenfeld, enthalt LZZ+10 R09 RE40, Rechenfeld, Obergrenze der Lohnsteuerstufe R10 RE4U, Rechenfeld, Untergrenze der Lohnsteuerstufe R11 %ST (prozentualer Spitzensteuersatz) bzw. TABFB (Tabellenfreibetrage der Lohnsteuerklassen) Ubersicht uber die einzelnen Programmteile: LBL/Titel Hauptroutine Zeilen 001-014 A Einkommensteuer 015-026 B P r o z e n t u a l e 0 2 7 - 0 3 7 Steuerbelastung C ZVE aus Steuer 038-070 D Lohnsteuer 071-121 87.3.28 weiter 122-155 weiter 156-186 weiter 187-214 CCD - Computerclub Deutschland e.V./Prisma Serie 40 Service R12 Rechenfeld, Steuer fur ZVE-Berechnung (Bereich C) R13 Rechenfeld, AZVE R14 Rechenfeld, Steuer aus vorheriger ZVE- Berechnung Flags: SF 00 STKL nicht eingegeben SF 01 STKL 1 SF 02 STKL 2 SF 03 STKL 3 und Splittung-Berechnung SF04STKL4 SF 05 STKL 5 SF 06 STKL 6 SF 07 fur %ST zur Berechnung der 1. Ablei tung der Steuerformel SF 08 fiir ZVE-Berechnung Erlauterungen (s.a. Registerbelegung) zu den einzelnen Bereichen; nach jeder Eingabe (oder Unterlassung) mit R/S fortfahren: Bereich A: Eingabe von ZVE, giiltiger Bereich > 0, Unterlassungswert und Ersatzwert fur ungiiltigen Bereich = 0 Eingabe, ob Splitting = 3, Unterlassungswert und Ersatzwert fur ungultigen Bereich = 0 Ausgabe ST= Einkommensteuer Bereich B: Eingabe von ZVE und Splitting sie he Bereich A Ausgabe % ST, Berechnung aus der 1. Ableitung der Steuerformel, theoretischer Wert fur die Steuerbelastung einer zu satzlichen DM zum ZVE; ungenau, da ST in Stufen steigt Bereich C: Eingabe ST und Splitting = 3, Un terlassungswert und Ersatzwert siehe Be reich A (bei ST = 0 wird programmbedingt ZVE = -10.000 angezeigt) Ausgabe ZVE (angenahert), Berechnung ite rativ iiber einen Anfangswert fur ZVE = 10.000 und eine Schrittweite fur AZVE um den Faktor -0,1, wenn sich das Vorzeichen der Differenz zwischen vorgegebener ST und einer Berechnung andert, Abbruch, falls zwei Berechnungen hinereinander das gleiche Er gebnis liefern Bereich D: Eingabe LZZ, giiltiger Bereich 1 -4, sonst Fehlermeldung Eingabe STKL, giiltiger Bereich 1-6, sonst Fehlermeldung und Rucksprung zurerneuten Bemerkungen mit Rucksprungpunkt LBL c aus A,B,C,Din Zeile 008 rufta,G(XEQa,XEQG) springt nach LBL c ruft a, G (XEQ a, XEQ G) springt nach LBL c ruft I (XEQ I) springt nach LBL c Eingabe ruft d (GTO d) springt nach LBL01 ...06 (GTO 01...06) Tabellenfreibetrage gem. STKL Lohnstufen ruft 00,10...14furLZZ Umrechnung (XEQ00,10...14ausREG08) Vorsorgepauschale ruft b (XEQ b) E Kirchensteuer G Steuerformeln H dto. Fortsetzung Eingabe ab LZZ Eingabe ZKF, giiltiger Be reich > 0, Fehlerbehandlung wie bei STKL Eingabe LOHN, giiltiger Bereich usw. wie bei ZKF Ausgabe ST= Lohnsteuer entsprechend LZZ gemaB allgemeiner Lohnsteuertabelle; es gibt noch eine besondere Lohnsteuert abelle fur nicht rentenversicherungspflichtige Arbeitnehmer (z.B. Beamte), hierzu ist fol gende Programmanderung bei der Vorsorge pauschale erforderlich: Zeile 194= 1 (statt 2) Zeile 196 = 100.000 (statt 117.000) Hinweise: STKL 2 ohne ZKF, STKL 5 mit ZKF und STKL 6 mit ZKF sind nach den Lohnsteuerrichtlinien nicht definiert, diese Falle werden im Pro gramm nicht als Fehler abgefangen, es kann also ein falsches Ergebnis kommen. Steuerfreibetrage It. Lohnsteuerkarte mussen vorab manuell abgezogen werden. Bereich E: Eingabe keine, das Programm benutzt die aus der Vorberechnung A-D in den Registern 02 (ST) und 05 (ZKF) abgespeicherten Wer te, als Steuersatz sind 9% )NRW) in Zeile 296 vorgegeben fiir die Berechnung im AnschluB an A-C muB ZKF > 0 in das Register 05 vor Aufruf von E gebracht werden Ausgabe KIST gemaB ST (Einkommensteuer bzw. Lohnsteuer gemaB LZZ) Diese Programme wurden nach dem Programmablaufplan zur maschinellen Berech nung der Lohnsteuer, veroffentlicht im Bundesgesetzblatt 1 1985 Seite 595 ff., erstellt. Fiir 1988 sind neue Steuerformeln zu erwar ten (Steuerreform), mit deren Veroffentli chung im Herbst 1987 zu rechnen ist. Die Lohnsteuertabellen sind im Bundesanzeiger vom 4.10.1985 (als Anlage) veroffentlicht worden. weiter 215-283 284-308 309-314 315-424 I S t e u e r u n g ruft G (XEQ G) Iteration ZVE a Eingabe bei A und B 452-466 b Rundet auf voile 467-473 DM54,d Fehlermeldung bei D 474 -479 00,10...14 490-494 Steuerberechnung ruft b,H (XEQ b, XEQ H) (Zeilen 225-252 STKL 5/6) ruft 00,10...14furLZZs.o. (Zeilen 253-278 Rundungen fur LZZ = 2-4) springt nach LBL c ruft 00,10...14furl_ZZs.o. springt zuruck in die Hauptroutine ruft b (XEQ b) darin 1 .Ableitung bei SF 07 enthalten 425-451 springt an den Anfang von D (GTOD) Aufteilung gemaB LZZ
CCD - Computerclub Deutschland e.V. / Prisma Beispiele: 121 GTO IHD 86 122+LBL 04 134 185 + STO 99 123 RCL 05 136'▶LBL 97 81+LBL *ST86* 61 STO 91 92 SF 27 62 STO 13 83 CF 23 63 XEQ I 94 SF 29 64 FS? 83 85 FIX 9 65 ST+ X 86 "BEREICH? R - D - 6 6 STO 82 97 PROHPT 67 RCL 91 83+LBL c 68 FIX 8 89 CF IHD 86 69 "ZVE=" 18 ARCL X 79 GTO c 11 PROHPT 71+LBL D 70 12 "KIST? E" i £ CLRG 13 PROHPT 73 CLST 14 RTH 74 •LZZ? 1-4" 15+LBL A 75 PROHPT 16 CLRG 76 IHT 17 CLST i*' i* EHTERt 70 13 XES -a 1 19 XEQ G 79 X)Y? 28 IHT 8 GTO d 2! FS? 83 Sl CLX na-. 22 ST+ X 23 STO 92 3 XY? 259 GTO 83 322 GTO 82 268 X>8? 323 CLX 261 GTO 84 324 38828 262 RBH 325 X>Y? 263 GTO 85 326 GTO 83 264+LBL 83 327 CLX 265 CLX 328 138832 266 18 329 X>Y? 267 * 338 GTO 84 263 INT 331 CLX 269 18 332 56 278 / 333 FS? 87 271 GTO 85 334 RTN 272+LBL 84 335 X 273 CLX 336 16433 274 188 337 - 275 * 338 RTN 276 INT 339+LBL 81 277 188 348 8 278 / 341 RTH 279+LBL 85 342+LBL 82 238 STO 82 343 CLX 231 FIX 2 344 22 ooo "|o,T=" 345 FS? 87 233 GTO c 346 RTN 284+LBL E 347 X 235 188 343 993 236 RCL 82 349 - 287 * 358 RTN 288 RCL 85 351+LBL 83 239 38898 352 CLX 298 * 353 18 E3 291 FC? 84 354 - 292 ST+ X 355 1 E2 293 XEQ IND 88 356 / 294 INT 357 FS? 97 295 - 358 GTO 96 296 9 359 2198 297 •/. 369 X 298 INT 299 189 388 / 361 INT 362 56929 363 - 381 X