-
Soko
-
Autor
-
Abwesend
-
Platinum Boarder
-
-
Beiträge: 536
-
Dank erhalten: 439
-
-
|
Hallo,anbei als Beispiel, zum experimentiern oder Weiterverwenden ein kleiner Zinsrechner, der bis 1999 den Diskontsatz und ab 1999 den Basiszinssatz der Deutschen Bundesbank gem. § 247 BGB der Berechnung zugrundelegt. Bei besonderem Lizenzerfordernis bitte im Volltestmodus ausführen.Ciao,Joachim
cX4Web Code
Was ist das? 1 *** Basiszins- und Zinsrechner 2 Wenn (? '[cX.Fenster.Da(SokoIur Zinsen*)]')3 Fenster setzen 'Sokoiur Zinsen*' Aktivieren4 Beende Skript5 Ende Wenn6 Meldung 'Die verwendete Basiszinstabelle ist veraltet!¶Sollte sich der Basiszinssatz zum 1.1.2024 verändert haben, ¶so sind...', Titel 'Basiszinstabelle veraltet', Buttons 'Nur OK', Symbol 'Achtung' (? '[cX.DatumZeit.Wert] > 45292')7 Setze in [Version]: '' , MultiSet 'Version=V[cX.Skript.Version]¶cX.Fehler.Behandeln=5'8 Setze in [BZL]: '0;0¶1;0¶17715;5¶18045;4,5¶18093;4¶18563;6¶19143;5¶19227;4,5¶19367;4¶19521;3,5¶19864;3¶20305;3,5¶20522;4,5¶20594;5...'9 Einstellungen INI lesen in [Zinsen_X], Pfad 'Fenster', Name 'X', Wert '25', Quelle/Datei '[cX.Spezialverzeichnis 26]SokoIur\Zinsen.siu'10 Einstellungen INI lesen in [Zinsen_Y], Pfad 'Fenster', Name 'Y', Wert '25', Quelle/Datei '[cX.Spezialverzeichnis 26]SokoIur\Zinsen.siu'11 *** Fenster aufbauen 12 Anzeige-Fenster 'SokoIur Zinsen [Version]', ID='Zinsen', X=[Zinsen_X], Y=[Zinsen_Y], Breite=57, Höhe=90, Rahmen: einfach, Farbe=$1179417013 Bezeichner Text='Betrag €:', Ausrichtung=6 (ID='Bezeichner_13', X='0,53', Y='1', Breite='20', Höhe='5', Zielfenster='Zinsen')14 Eingabe-Element Text='0,00', Ausrichtung=3, automatisch markieren, Validierung '
cX4Web Code
Was ist das? 1 *** Basiszins- und Zinsrechner
2 Wenn (? '[cX.Fenster.Da(SokoIur Zinsen*)]')
3 Fenster setzen 'Sokoiur Zinsen*' Aktivieren
4 Beende Skript
5 Ende Wenn
6 Meldung 'Die verwendete Basiszinstabelle ist veraltet!¶Sollte sich der Basiszinssatz zum 1.1.2024 verändert haben, ¶so sind...', Titel 'Basiszinstabelle veraltet', Buttons 'Nur OK', Symbol 'Achtung' (? '[cX.DatumZeit.Wert] > 45292')
7 Setze in [Version]: '' , MultiSet 'Version=V[cX.Skript.Version]¶cX.Fehler.Behandeln=5'
8 Setze in [BZL]: '0;0¶1;0¶17715;5¶18045;4,5¶18093;4¶18563;6¶19143;5¶19227;4,5¶19367;4¶19521;3,5¶19864;3¶20305;3,5¶20522;4,5¶20594;5...'
9 Einstellungen INI lesen in [Zinsen_X], Pfad 'Fenster', Name 'X', Wert '25', Quelle/Datei '[cX.Spezialverzeichnis 26]SokoIur\Zinsen.siu'
10 Einstellungen INI lesen in [Zinsen_Y], Pfad 'Fenster', Name 'Y', Wert '25', Quelle/Datei '[cX.Spezialverzeichnis 26]SokoIur\Zinsen.siu'
11 *** Fenster aufbauen
12 Anzeige-Fenster 'SokoIur Zinsen [Version]', ID='Zinsen', X=[Zinsen_X], Y=[Zinsen_Y], Breite=57, Höhe=90, Rahmen: einfach, Farbe=$11794170
13 Bezeichner Text='Betrag €:', Ausrichtung=6 (ID='Bezeichner_13', X='0,53', Y='1', Breite='20', Höhe='5', Zielfenster='Zinsen')
14 Eingabe-Element Text='0,00', Ausrichtung=3, automatisch markieren, Validierung '#' (ID='Betrag', Bindung Betrag, X='25', Y='0', Breite='26', Höhe='5', Zielfenster='Zinsen', gebunden an Betrag)
15 Bezeichner Text='Von:', Ausrichtung=6 (ID='Bezeichner_12', X='1', Y='7', Breite='20', Höhe='5', Zielfenster='Zinsen')
16 Eingabe-Element Text='[cX.Jetzt§dd.MM.yyyy]', automatisch markieren, Validierung '<!§', erlaubt '1234567890,.' (ID='StartDatum', Bindung StartDatum, X='25', Y='6', Breite='26', Höhe='5', Zielfenster='Zinsen', gebunden an StartDatum)
17 Bezeichner Text='Bis:', Ausrichtung=6 (ID='Bezeichner_11', X='1', Y='12', Breite='20', Höhe='5', Zielfenster='Zinsen')
18 Eingabe-Element Text='[cX.Jetzt§dd.MM.yyyy]', automatisch markieren, erlaubt '01234567890.,' (ID='EndDatum', Bindung Enddatum, X='25', Y='11', Breite='26', Höhe='5', Zielfenster='Zinsen', gebunden an Enddatum)
19 Bezeichner Text='Zinssatz:', Ausrichtung=6 (ID='Bezeichner_10', X='1', Y='18', Breite='20', Höhe='5', Zielfenster='Zinsen')
20 Eingabe-Element Text='0,00', Ausrichtung=6, automatisch markieren, Validierung '#', erlaubt '0123456789,' (ID='Zinssatz', X='25', Y='17', Breite='9', Höhe='5', Zielfenster='Zinsen')
...
cX4Web Code: Einfach anklicken zum Kopieren und in click.EXE 5.0 einfügen
(98 Zeilen, cX 5.0.10.3, Lizenz: Premium)
Folgende Benutzer bedankten sich: daywalker
|