/ com!online 2002 February / comcd0202.iso / geld / akad / Steuerprogramm / data.z / SoLeistVerlust.adb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 44 42 20 34 2e 30 34 | d1 00 00 00 14 07 00 00 |ADB 4.04|........|
|00000010| e5 07 00 00 d0 0a 00 00 | 41 00 00 00 41 01 00 00 |........|A...A...|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 53 6f 4c 65 69 73 74 | 56 65 72 6c 75 73 74 00 |.SoLeist|Verlust.|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 44 47 01 00 00 00 00 | 00 20 05 01 00 00 00 00 |.DG.....|. ......|
|000000e0| 00 e6 00 c6 00 00 00 10 | 00 04 00 56 45 d6 00 fb |........|...VE...|
|000000f0| 00 86 01 22 00 00 00 00 | 00 00 00 00 00 56 45 a1 |..."....|.....VE.|
|00000100| 01 ce 01 86 01 13 00 00 | 00 00 00 00 00 00 00 56 |........|.......V|
|00000110| 45 53 02 80 02 86 01 13 | 00 00 00 00 00 00 00 00 |ES......|........|
|00000120| 00 56 45 1b 03 68 03 f3 | 03 13 00 00 00 00 00 00 |.VE..h..|........|
|00000130| 00 00 00 02 00 47 52 13 | 04 00 00 00 00 02 04 00 |.....GR.|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 1d 04 0f 00 53 |........|.......S|
|00000150| 54 6f 04 00 00 00 00 21 | 00 00 00 06 00 08 00 ae |To.....!|........|
|00000160| 00 0a 00 00 00 00 01 7e | 04 52 47 ac 04 00 00 00 |.......~|.RG.....|
|00000170| 00 10 04 00 00 00 00 00 | 00 00 00 00 00 e7 04 2c |........|.......,|
|00000180| 03 02 00 52 49 00 00 00 | 00 00 00 20 40 00 00 06 |...RI...|... @...|
|00000190| 00 14 00 ae 00 0a 00 00 | 00 b8 04 00 00 52 49 00 |........|.....RI.|
|000001a0| 00 00 00 00 00 20 40 00 | 00 06 00 20 00 ae 00 0a |..... @.|... ....|
|000001b0| 00 00 00 cc 04 01 00 53 | 54 ed 04 00 00 00 00 20 |.......S|T...... |
|000001c0| 00 00 00 06 00 32 00 a0 | 00 0a 00 00 00 f6 04 45 |.....2..|.......E|
|000001d0| 4e 26 05 21 01 00 00 42 | 00 00 00 b5 00 30 00 28 |N&.!...B|.....0.(|
|000001e0| 00 0c 00 2d 05 35 05 06 | 20 45 4e 00 00 21 01 00 |...-.5..| EN..!..|
|000001f0| 00 42 00 00 00 b5 00 30 | 00 28 00 0c 00 3f 05 47 |.B.....0|.(...?.G|
|00000200| 05 06 20 47 52 51 05 00 | 00 00 00 00 04 00 00 00 |.. GRQ..|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 05 00 53 54 60 05 00 |........|...ST`..|
|00000220| 00 00 00 20 00 00 00 06 | 00 41 00 2d 00 0a 00 00 |... ....|.A.-....|
|00000230| 00 6c 05 45 4e 87 05 23 | 01 00 00 42 00 00 00 38 |.l.EN..#|...B...8|
|00000240| 00 3f 00 28 00 0c 00 97 | 05 9d 05 07 20 45 4e ae |.?.(....|.... EN.|
|00000250| 05 20 01 00 00 d2 00 00 | 00 38 00 3f 00 28 00 0c |. ......|.8.?.(..|
|00000260| 00 fc 05 bf 05 30 03 07 | 20 d3 05 53 54 02 06 00 |.....0..| ..ST...|
|00000270| 00 00 00 20 00 00 00 65 | 00 41 00 4b 00 0a 00 00 |... ...e|.A.K....|
|00000280| 00 0d 06 45 4e 24 06 23 | 01 00 00 40 00 00 00 b5 |...EN$.#|...@....|
|00000290| 00 3f 00 28 00 0c 00 2c | 06 07 20 53 54 32 06 00 |.?.(...,|.. ST2..|
|000002a0| 00 00 00 20 00 00 00 06 | 00 50 00 2d 00 0a 00 00 |... ....|.P.-....|
|000002b0| 00 40 06 45 4e 5b 06 20 | 01 00 00 d0 00 00 00 38 |.@.EN[. |.......8|
|000002c0| 00 4e 00 28 00 0c 00 69 | 06 2e 03 07 20 d3 05 53 |.N.(...i|.... ..S|
|000002d0| 54 00 00 00 00 00 00 20 | 00 00 00 65 00 50 00 4b |T...... |...e.P.K|
|000002e0| 00 0a 00 00 00 6f 06 45 | 4e 87 06 23 01 00 00 42 |.....o.E|N..#...B|
|000002f0| 00 00 00 b5 00 4e 00 28 | 00 0c 00 9d 06 94 06 07 |.....N.(|........|
|00000300| 20 45 4e a3 06 20 01 00 | 00 d2 00 00 00 b5 00 4e | EN.. ..|.......N|
|00000310| 00 28 00 0c 00 ba 06 b2 | 06 2d 03 07 20 d3 05 53 |.(......|.-.. ..S|
|00000320| 4c 00 00 00 00 00 00 00 | 00 00 00 06 00 5d 00 d8 |L.......|.....]..|
|00000330| 00 01 00 00 00 53 54 c0 | 06 00 00 00 00 20 00 00 |.....ST.|..... ..|
|00000340| 00 06 00 64 00 96 00 0a | 00 00 00 c8 06 45 4e ed |...d....|.....EN.|
|00000350| 06 21 01 00 00 40 00 00 | 00 b5 00 61 00 28 00 0c |.!...@..|...a.(..|
|00000360| 00 fa 06 07 20 53 46 00 | 00 00 01 00 00 00 00 00 |.... SF.|........|
|00000370| 00 02 00 02 00 e2 00 70 | 00 00 00 47 52 00 07 00 |.......p|...GR...|
|00000380| 00 00 00 02 04 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 0b 07 03 00 53 54 5b | 07 00 00 00 00 21 00 00 |.....ST[|.....!..|
|000003a0| 00 06 00 08 00 aa 00 0a | 00 00 00 00 01 6c 07 47 |........|.....l.G|
|000003b0| 52 95 07 00 00 00 00 02 | 04 00 00 00 00 00 00 00 |R.......|........|
|000003c0| 00 00 00 00 00 a0 07 05 | 00 52 47 ac 07 00 00 00 |........|.RG.....|
|000003d0| 00 10 04 00 00 00 00 00 | 00 00 00 00 00 e7 04 2c |........|.......,|
|000003e0| 03 02 00 52 49 00 00 00 | 00 00 00 20 40 00 00 06 |...RI...|... @...|
|000003f0| 00 14 00 aa 00 0a 00 00 | 00 b8 04 00 00 52 49 00 |........|.....RI.|
|00000400| 00 00 00 00 00 20 40 00 | 00 06 00 20 00 aa 00 0a |..... @.|... ....|
|00000410| 00 00 00 cc 04 01 00 53 | 54 00 00 00 00 00 00 20 |.......S|T...... |
|00000420| 00 00 00 06 00 31 00 aa | 00 0a 00 00 00 b9 07 45 |.....1..|.......E|
|00000430| 4e dc 07 21 01 00 00 40 | 00 00 00 b5 00 2f 00 28 |N..!...@|...../.(|
|00000440| 00 0c 00 e6 07 07 20 47 | 52 ec 07 00 00 00 00 08 |...... G|R.......|
|00000450| 04 00 00 00 00 00 00 00 | 00 00 00 00 00 fb 07 03 |........|........|
|00000460| 00 53 54 13 08 00 00 00 | 00 20 00 00 00 06 00 40 |.ST.....|. .....@|
|00000470| 00 af 00 0a 00 00 00 1c | 08 45 4e 53 08 20 01 00 |........|.ENS. ..|
|00000480| 00 d2 01 00 00 b5 00 3e | 00 28 00 0c 00 b4 08 9c |.......>|.(......|
|00000490| 08 2b 03 07 20 72 08 01 | 00 56 45 64 08 fb 00 00 |.+.. r..|.VEd....|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 45 4e ba 08 21 |........|...EN..!|
|000004b0| 01 00 00 42 00 00 00 b5 | 00 3e 00 28 00 0c 00 e4 |...B....|.>.(....|
|000004c0| 08 cf 08 06 20 47 52 ea | 08 00 00 00 00 02 04 00 |.... GR.|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 f2 08 05 00 47 |........|.......G|
|000004e0| 52 fe 08 00 00 00 00 08 | 04 00 00 00 00 00 00 00 |R.......|........|
|000004f0| 00 00 00 00 00 10 09 03 | 00 53 54 34 09 00 00 00 |........|.ST4....|
|00000500| 00 20 00 00 00 06 00 4f | 00 96 00 0a 00 00 00 40 |. .....O|.......@|
|00000510| 09 45 4e 81 09 23 01 00 | 00 42 00 00 00 b5 00 4d |.EN..#..|.B.....M|
|00000520| 00 28 00 0c 00 97 05 cf | 08 07 20 45 4e 92 09 20 |.(......|.. EN.. |
|00000530| 01 00 00 d2 00 00 00 b5 | 00 4d 00 28 00 0c 00 fc |........|.M.(....|
|00000540| 05 9c 08 30 03 07 20 d3 | 05 53 4c 00 00 00 00 00 |...0.. .|.SL.....|
|00000550| 00 00 00 00 00 06 00 5c | 00 d8 00 01 00 00 00 53 |.......\|.......S|
|00000560| 54 a4 09 00 00 00 00 20 | 00 00 00 06 00 61 00 96 |T...... |.....a..|
|00000570| 00 0a 00 00 00 b1 09 45 | 4e db 09 21 01 00 00 40 |.......E|N..!...@|
|00000580| 00 00 00 b5 00 5f 00 28 | 00 0c 00 eb 09 07 20 53 |....._.(|...... S|
|00000590| 46 f1 09 00 01 00 00 00 | 00 00 00 02 00 02 00 e2 |F.......|........|
|000005a0| 00 70 00 00 00 47 52 f6 | 09 00 00 00 00 02 04 00 |.p...GR.|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 05 0a 05 00 53 |........|.......S|
|000005c0| 54 00 00 00 00 00 00 20 | 00 00 00 06 00 17 00 aa |T...... |........|
|000005d0| 00 0a 00 00 00 b9 07 45 | 4e 00 00 21 01 00 00 40 |.......E|N..!...@|
|000005e0| 00 00 00 b5 00 15 00 28 | 00 0c 00 e6 07 07 20 47 |.......(|...... G|
|000005f0| 52 12 0a 00 00 00 00 08 | 04 00 00 00 00 00 00 00 |R.......|........|
|00000600| 00 00 00 00 00 fb 07 03 | 00 53 54 22 0a 00 00 00 |........|.ST"....|
|00000610| 00 20 00 00 00 06 00 26 | 00 af 00 0a 00 00 00 1c |. .....&|........|
|00000620| 08 45 4e 2c 0a 20 01 00 | 00 d2 01 00 00 b5 00 24 |.EN,. ..|.......$|
|00000630| 00 28 00 0c 00 b4 08 9c | 08 2b 03 07 20 72 08 01 |.(......|.+.. r..|
|00000640| 00 56 45 64 08 fb 00 00 | 00 00 00 00 00 00 00 00 |.VEd....|........|
|00000650| 00 00 00 45 4e 00 00 21 | 01 00 00 42 00 00 00 b5 |...EN..!|...B....|
|00000660| 00 24 00 28 00 0c 00 e4 | 08 cf 08 06 20 47 52 3e |.$.(....|.... GR>|
|00000670| 0a 00 00 00 00 02 04 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 48 0a 04 00 53 | 4c 00 00 00 00 00 00 00 |...H...S|L.......|
|00000690| 00 00 00 06 00 33 00 d8 | 00 01 00 00 00 53 54 54 |.....3..|.....STT|
|000006a0| 0a 00 00 00 00 20 00 00 | 00 06 00 38 00 96 00 0a |..... ..|...8....|
|000006b0| 00 00 00 b1 09 45 4e 00 | 00 21 01 00 00 40 00 00 |.....EN.|.!...@..|
|000006c0| 00 b5 00 36 00 28 00 0c | 00 eb 09 07 20 53 46 00 |...6.(..|.... SF.|
|000006d0| 00 00 01 00 00 00 00 00 | 00 02 00 02 00 e2 00 45 |........|.......E|
|000006e0| 00 00 00 47 52 5d 0a 00 | 00 00 00 02 04 00 00 00 |...GR]..|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 f2 08 05 00 47 52 67 |........|.....GRg|
|00000700| 0a 00 00 00 00 08 04 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000710| 00 00 00 10 09 03 00 53 | 54 7b 0a 00 00 00 00 20 |.......S|T{..... |
|00000720| 00 00 00 06 00 35 00 96 | 00 0a 00 00 00 40 09 45 |.....5..|.....@.E|
|00000730| 4e 89 0a 23 01 00 00 42 | 00 00 00 b5 00 33 00 28 |N..#...B|.....3.(|
|00000740| 00 0c 00 97 05 cf 08 07 | 20 45 4e 9c 0a 20 01 00 |........| EN.. ..|
|00000750| 00 d2 00 00 00 b5 00 33 | 00 28 00 0c 00 fc 05 9c |.......3|.(......|
|00000760| 08 30 03 07 20 d3 05 53 | 4c 00 00 00 00 00 00 00 |.0.. ..S|L.......|
|00000770| 00 00 00 06 00 42 00 d8 | 00 01 00 00 00 53 54 b0 |.....B..|.....ST.|
|00000780| 0a 00 00 00 00 20 00 00 | 00 06 00 47 00 96 00 0a |..... ..|...G....|
|00000790| 00 00 00 b1 09 45 4e be | 0a 21 01 00 00 40 00 00 |.....EN.|.!...@..|
|000007a0| 00 b5 00 45 00 28 00 0c | 00 eb 09 07 20 53 46 00 |...E.(..|.... SF.|
|000007b0| 00 00 01 00 00 00 00 00 | 00 02 00 02 00 e2 00 55 |........|.......U|
|000007c0| 00 00 00 00 00 00 00 7f | 00 71 00 1d a2 00 00 00 |........|.q......|
|000007d0| 00 09 00 03 00 0c 00 10 | 00 1b 00 13 00 22 00 28 |........|.....".(|
|000007e0| 00 32 00 3d 00 00 53 6f | 4c 65 69 73 74 56 65 72 |.2.=..So|LeistVer|
|000007f0| 6c 75 73 74 00 22 53 6f | 6e 73 74 69 67 65 20 4c |lust."So|nstige L|
|00000800| 65 69 73 74 75 6e 67 65 | 6e 20 22 2b 69 66 28 70 |eistunge|n "+if(p|
|00000810| 65 72 73 6f 6e 3d 3d 30 | 2c 5b 2f 2e 24 39 30 2e |erson==0|,[/.$90.|
|00000820| 24 31 30 37 2e 24 31 33 | 30 5d 2c 5b 2f 2e 24 39 |$107.$13|0],[/.$9|
|00000830| 31 2e 24 31 30 37 2e 24 | 31 33 30 5d 29 2b 22 3a |1.$107.$|130])+":|
|00000840| 20 56 65 72 6c 75 73 74 | 76 65 72 72 65 63 68 6e | Verlust|verrechn|
|00000850| 75 6e 67 20 22 00 22 73 | 6f 6c 65 69 73 74 2e 66 |ung "."s|oleist.f|
|00000860| 72 77 22 00 69 66 28 21 | 5b 2f 2e 24 39 30 2e 24 |rw".if(!|[/.$90.$|
|00000870| 31 30 37 2e 24 31 31 37 | 2e 24 34 34 33 38 5d 2c |107.$117|.$4438],|
|00000880| 22 66 6f 72 6d 73 6f 31 | 2e 66 72 77 22 2c 69 66 |"formso1|.frw",if|
|00000890| 28 70 65 72 73 6f 6e 3d | 3d 30 2c 22 66 6f 72 6d |(person=|=0,"form|
|000008a0| 73 6f 6d 31 2e 66 72 77 | 22 2c 22 66 6f 72 6d 73 |som1.frw|","forms|
|000008b0| 6f 66 31 2e 66 72 77 22 | 29 29 00 69 66 28 5b 5e |of1.frw"|)).if([^|
|000008c0| 2e 24 34 30 38 5d 3c 30 | 2e 63 2c 5b 24 33 34 34 |.$408]<0|.c,[$344|
|000008d0| 36 5d 3c 3d 5b 24 33 34 | 34 35 5d 2c 7e 54 29 00 |6]<=[$34|45],~T).|
|000008e0| 22 45 73 20 6b 61 6e 6e | 20 6d 61 78 69 6d 61 6c |"Es kann| maximal|
|000008f0| 20 64 65 72 20 69 6d 20 | 4a 61 68 72 20 22 2b 73 | der im |Jahr "+s|
|00000900| 56 4a 61 68 72 2b 22 20 | 65 6e 74 73 74 61 6e 64 |VJahr+" |entstand|
|00000910| 65 6e 65 20 56 65 72 6c | 75 73 74 20 69 6e 20 64 |ene Verl|ust in d|
|00000920| 61 73 20 56 6f 72 6a 61 | 68 72 20 7a 75 72 fc 63 |as Vorja|hr zur.c|
|00000930| 6b 67 65 74 72 61 67 65 | 6e 20 77 65 72 64 65 6e |kgetrage|n werden|
|00000940| 2e 5c 6e 20 5c 6e 42 69 | 74 74 65 20 6b 6f 72 72 |.\n \nBi|tte korr|
|00000950| 69 67 69 65 72 65 6e 20 | 53 69 65 20 49 68 72 65 |igieren |Sie Ihre|
|00000960| 20 41 6e 67 61 62 65 6e | 2e 22 00 22 56 65 72 6c | Angaben|."."Verl|
|00000970| 75 73 74 72 fc 63 6b 74 | 72 61 67 20 7a 75 20 68 |ustr.ckt|rag zu h|
|00000980| 6f 63 68 21 22 00 69 66 | 28 5b 5e 2e 24 34 30 38 |och!".if|([^.$408|
|00000990| 5d 3e 30 2e 63 26 5b 24 | 33 34 34 31 5d 2c 5b 24 |]>0.c&[$|3441],[$|
|000009a0| 33 34 34 33 5d 3c 3d 5b | 24 33 34 33 39 5d 2c 7e |3443]<=[|$3439],~|
|000009b0| 54 29 00 22 45 73 20 6b | 61 6e 6e 20 6d 61 78 69 |T)."Es k|ann maxi|
|000009c0| 6d 61 6c 20 64 65 72 20 | 69 6d 20 4a 61 68 72 20 |mal der |im Jahr |
|000009d0| 22 2b 73 74 72 69 6e 67 | 28 56 4a 61 68 72 2b 31 |"+string|(VJahr+1|
|000009e0| 29 2b 22 20 65 6e 74 73 | 74 61 6e 64 65 6e 65 20 |)+" ents|tandene |
|000009f0| 56 65 72 6c 75 73 74 20 | 7a 75 72 fc 63 6b 67 65 |Verlust |zur.ckge|
|00000a00| 74 72 61 67 65 6e 20 77 | 65 72 64 65 6e 2e 5c 6e |tragen w|erden.\n|
|00000a10| 20 5c 6e 42 69 74 74 65 | 20 6b 6f 72 72 69 67 69 | \nBitte| korrigi|
|00000a20| 65 72 65 6e 20 53 69 65 | 20 49 68 72 65 20 41 6e |eren Sie| Ihre An|
|00000a30| 67 61 62 65 6e 2e 22 00 | 69 66 28 5b 5e 2e 24 34 |gaben.".|if([^.$4|
|00000a40| 30 38 5d 3e 30 2e 63 26 | 5b 24 33 34 34 31 5d 2c |08]>0.c&|[$3441],|
|00000a50| 5b 24 33 34 34 33 5d 3c | 3d 5b 24 33 34 34 35 5d |[$3443]<|=[$3445]|
|00000a60| 2c 7e 54 29 00 22 44 65 | 72 20 65 69 6e 67 65 67 |,~T)."De|r eingeg|
|00000a70| 65 62 65 6e 65 20 56 65 | 72 6c 75 73 74 72 fc 63 |ebene Ve|rlustr.c|
|00000a80| 6b 74 72 61 67 20 61 75 | 73 20 64 65 6d 20 4a 61 |ktrag au|s dem Ja|
|00000a90| 68 72 20 22 2b 73 74 72 | 69 6e 67 28 56 4a 61 68 |hr "+str|ing(VJah|
|00000aa0| 72 2b 31 29 2b 22 20 69 | 73 74 20 68 f6 68 65 72 |r+1)+" i|st h.her|
|00000ab0| 20 61 6c 73 20 64 65 72 | 20 47 65 77 69 6e 6e 20 | als der| Gewinn |
|00000ac0| 64 65 73 20 4a 61 68 72 | 65 73 20 22 2b 73 56 4a |des Jahr|es "+sVJ|
|00000ad0| 61 68 72 2b 22 2e 5c 6e | 20 5c 6e 42 69 74 74 65 |ahr+".\n| \nBitte|
|00000ae0| 20 6b 6f 72 72 69 67 69 | 65 72 65 6e 20 53 69 65 | korrigi|eren Sie|
|00000af0| 20 49 68 72 65 20 41 6e | 67 61 62 65 6e 2e 22 00 | Ihre An|gaben.".|
|00000b00| 69 66 28 5b 5e 2e 24 34 | 30 38 5d 3e 30 2e 63 26 |if([^.$4|08]>0.c&|
|00000b10| 5b 24 33 34 34 31 5d 26 | 5b 24 33 31 35 35 5d 3e |[$3441]&|[$3155]>|
|00000b20| 30 2e 63 26 5b 24 33 34 | 34 33 5d 3e 30 2e 63 2c |0.c&[$34|43]>0.c,|
|00000b30| 5b 24 33 31 35 35 5d 2b | 5b 24 33 34 34 33 5d 3c |[$3155]+|[$3443]<|
|00000b40| 3d 5b 24 33 34 34 35 5d | 2c 7e 54 29 00 22 44 65 |=[$3445]|,~T)."De|
|00000b50| 72 20 69 6e 73 67 65 73 | 61 6d 74 20 69 6e 20 64 |r insges|amt in d|
|00000b60| 61 73 20 4a 61 68 72 20 | 22 2b 73 56 4a 61 68 72 |as Jahr |"+sVJahr|
|00000b70| 2b 22 20 76 6f 72 20 2d | 62 7a 77 2e 20 7a 75 72 |+" vor -|bzw. zur|
|00000b80| fc 63 6b 67 65 74 72 61 | 67 65 6e 65 20 56 65 72 |.ckgetra|gene Ver|
|00000b90| 6c 75 73 74 20 69 73 74 | 20 68 f6 68 65 72 20 61 |lust ist| h.her a|
|00000ba0| 6c 73 20 64 65 72 20 47 | 65 77 69 6e 6e 2e 5c 6e |ls der G|ewinn.\n|
|00000bb0| 20 5c 6e 42 69 74 74 65 | 20 6b 6f 72 72 69 67 69 | \nBitte| korrigi|
|00000bc0| 65 72 65 6e 20 53 69 65 | 20 49 68 72 65 20 41 6e |eren Sie| Ihre An|
|00000bd0| 67 61 62 65 6e 2e 22 00 | 22 56 65 72 6c 75 73 74 |gaben.".|"Verlust|
|00000be0| 76 6f 72 2d 20 72 fc 63 | 6b 74 72 61 67 20 7a 75 |vor- r.c|ktrag zu|
|00000bf0| 20 68 6f 63 68 21 22 00 | 67 72 70 47 65 77 69 6e | hoch!".|grpGewin|
|00000c00| 6e 00 69 66 28 70 65 72 | 73 6f 6e 3d 3d 30 2c 5b |n.if(per|son==0,[|
|00000c10| 2f 2e 24 39 30 2e 24 31 | 36 36 2e 24 34 30 31 2e |/.$90.$1|66.$401.|
|00000c20| 24 34 30 36 2e 24 34 36 | 39 33 5d 3e 3d 30 2e 63 |$406.$46|93]>=0.c|
|00000c30| 2c 5b 2f 2e 24 39 30 2e | 24 31 36 36 2e 24 34 30 |,[/.$90.|$166.$40|
|00000c40| 31 2e 24 34 30 36 2e 24 | 34 36 39 34 5d 3e 3d 30 |1.$406.$|4694]>=0|
|00000c50| 2e 63 29 00 73 74 75 65 | 62 65 72 73 63 68 72 69 |.c).stue|berschri|
|00000c60| 66 74 00 22 56 65 72 72 | 65 63 68 6e 75 6e 67 20 |ft."Verr|echnung |
|00000c70| 64 65 72 20 70 6f 73 69 | 74 69 76 65 6e 20 45 69 |der posi|tiven Ei|
|00000c80| 6e 6b fc 6e 66 74 65 20 | 22 2b 73 56 4a 61 68 72 |nk.nfte |"+sVJahr|
|00000c90| 00 65 69 67 65 6e 41 6e | 67 61 62 65 00 22 69 6e |.eigenAn|gabe."in|
|00000ca0| 20 6f 70 74 69 6d 61 6c | 65 72 20 48 f6 68 65 22 | optimal|er H.he"|
|00000cb0| 00 22 61 75 66 67 72 75 | 6e 64 20 65 69 67 65 6e |."aufgru|nd eigen|
|00000cc0| 65 72 20 45 69 6e 67 61 | 62 65 22 00 24 33 34 34 |er Einga|be".$344|
|00000cd0| 31 00 73 74 47 65 77 69 | 6e 6e 00 22 45 69 6e 6b |1.stGewi|nn."Eink|
|00000ce0| fc 6e 66 74 65 20 22 2b | 73 56 4a 61 68 72 2b 22 |.nfte "+|sVJahr+"|
|00000cf0| 20 28 76 6f 72 20 56 65 | 72 6c 75 73 74 76 65 72 | (vor Ve|rlustver|
|00000d00| 72 65 63 68 6e 75 6e 67 | 29 22 00 47 65 77 69 6e |rechnung|)".Gewin|
|00000d10| 6e 00 5e 2e 24 34 36 39 | 33 00 70 65 72 73 6f 6e |n.^.$469|3.person|
|00000d20| 3d 3d 30 00 5e 2e 24 34 | 36 39 34 00 70 65 72 73 |==0.^.$4|694.pers|
|00000d30| 6f 6e 3d 3d 31 00 67 72 | 70 56 65 72 6c 56 6f 72 |on==1.gr|pVerlVor|
|00000d40| 74 72 61 67 00 74 78 74 | 56 65 72 6c 56 6f 72 6a |trag.txt|VerlVorj|
|00000d50| 00 22 56 65 72 6c 75 73 | 74 20 22 2b 73 74 72 69 |."Verlus|t "+stri|
|00000d60| 6e 67 28 56 4a 61 68 72 | 2d 31 29 00 56 65 72 6c |ng(VJahr|-1).Verl|
|00000d70| 56 6f 72 6a 61 68 72 4b | 6f 6e 76 00 24 33 34 33 |VorjahrK|onv.$343|
|00000d80| 35 00 5b 24 33 34 33 38 | 5d 26 21 5b 24 33 34 34 |5.[$3438|]&![$344|
|00000d90| 31 5d 00 56 65 72 6c 56 | 6f 72 6a 61 68 72 45 69 |1].VerlV|orjahrEi|
|00000da0| 67 65 6e 00 21 28 5b 24 | 33 34 33 38 5d 26 21 5b |gen.!([$|3438]&![|
|00000db0| 24 33 34 34 31 5d 29 00 | 69 66 28 73 65 6c 66 2d |$3441]).|if(self-|
|00000dc0| 66 6c 6f 6f 72 28 73 65 | 6c 66 29 3e 30 2e 63 2c |floor(se|lf)>0.c,|
|00000dd0| 63 65 69 6c 28 73 65 6c | 66 29 2c 73 65 6c 66 29 |ceil(sel|f),self)|
|00000de0| 00 24 33 34 33 36 00 74 | 78 74 56 6f 72 74 72 61 |.$3436.t|xtVortra|
|00000df0| 67 00 22 64 61 76 6f 6e | 20 56 65 72 6c 75 73 74 |g."davon| Verlust|
|00000e00| 76 6f 72 74 72 61 67 22 | 00 56 6f 72 74 72 61 67 |vortrag"|.Vortrag|
|00000e10| 00 24 33 31 35 35 00 74 | 78 74 56 65 72 6c 46 6f |.$3155.t|xtVerlFo|
|00000e20| 6c 67 65 6a 00 22 56 65 | 72 6c 75 73 74 20 22 2b |lgej."Ve|rlust "+|
|00000e30| 73 74 72 69 6e 67 28 56 | 4a 61 68 72 2b 31 29 00 |string(V|Jahr+1).|
|00000e40| 56 65 72 6c 46 6f 6c 67 | 65 6a 61 68 72 00 24 33 |VerlFolg|ejahr.$3|
|00000e50| 34 33 39 00 22 64 61 76 | 6f 6e 20 56 65 72 6c 75 |439."dav|on Verlu|
|00000e60| 73 74 72 fc 63 6b 74 72 | 61 67 22 00 52 75 65 63 |str.cktr|ag".Ruec|
|00000e70| 6b 49 6e 56 4a 61 68 72 | 00 21 5b 24 33 34 34 31 |kInVJahr|.![$3441|
|00000e80| 5d 00 24 33 34 34 30 00 | 65 69 67 65 6e 52 75 65 |].$3440.|eigenRue|
|00000e90| 63 6b 74 72 61 67 00 5b | 24 33 34 34 31 5d 00 24 |cktrag.[|$3441].$|
|00000ea0| 33 34 34 33 00 74 78 74 | 45 69 6e 6b 00 22 45 69 |3443.txt|Eink."Ei|
|00000eb0| 6e 6b fc 6e 66 74 65 20 | 61 75 73 20 73 6f 6e 73 |nk.nfte |aus sons|
|00000ec0| 74 69 67 65 6e 20 4c 65 | 69 73 74 75 6e 67 65 6e |tigen Le|istungen|
|00000ed0| 22 00 45 69 6e 6b 6e 61 | 63 68 56 65 72 6c 00 24 |".Einkna|chVerl.$|
|00000ee0| 33 34 34 34 00 67 72 70 | 56 65 72 6c 75 73 74 00 |3444.grp|Verlust.|
|00000ef0| 69 66 28 70 65 72 73 6f | 6e 3d 3d 30 2c 5b 2f 2e |if(perso|n==0,[/.|
|00000f00| 24 39 30 2e 24 31 36 36 | 2e 24 34 30 31 2e 24 34 |$90.$166|.$401.$4|
|00000f10| 30 36 2e 24 34 36 39 33 | 5d 3c 30 2e 63 2c 5b 2f |06.$4693|]<0.c,[/|
|00000f20| 2e 24 39 30 2e 24 31 36 | 36 2e 24 34 30 31 2e 24 |.$90.$16|6.$401.$|
|00000f30| 34 30 36 2e 24 34 36 39 | 34 5d 3c 30 2e 63 29 00 |406.$469|4]<0.c).|
|00000f40| 74 78 74 55 65 62 65 72 | 73 63 68 72 56 65 72 6c |txtUeber|schrVerl|
|00000f50| 00 22 45 72 6d 69 74 74 | 6c 75 6e 67 20 64 65 73 |."Ermitt|lung des|
|00000f60| 20 76 65 72 62 6c 65 69 | 62 65 6e 64 65 6e 20 56 | verblei|benden V|
|00000f70| 65 72 6c 75 73 74 65 73 | 22 00 67 72 70 4b 6f 6e |erlustes|".grpKon|
|00000f80| 76 65 72 74 00 5b 24 33 | 34 33 35 5d 3e 30 2e 63 |vert.[$3|435]>0.c|
|00000f90| 00 65 69 67 65 6e 41 6e | 67 61 62 65 32 00 22 56 |.eigenAn|gabe2."V|
|00000fa0| 65 72 6c 75 73 74 20 61 | 75 73 20 73 6f 6e 73 74 |erlust a|us sonst|
|00000fb0| 69 67 65 6e 20 4c 65 69 | 73 74 75 6e 67 65 6e 22 |igen Lei|stungen"|
|00000fc0| 00 56 65 72 6c 56 4a 61 | 68 72 00 24 33 34 34 35 |.VerlVJa|hr.$3445|
|00000fd0| 00 67 72 70 47 65 77 69 | 6e 6e 56 4a 61 68 72 00 |.grpGewi|nnVJahr.|
|00000fe0| 56 4a 61 68 72 3e 3d 32 | 30 30 30 26 5b 24 33 34 |VJahr>=2|000&[$34|
|00000ff0| 33 37 5d 3e 30 2e 63 00 | 74 78 74 52 75 65 63 6b |37]>0.c.|txtRueck|
|00001000| 00 22 64 61 76 6f 6e 20 | 77 65 72 64 65 6e 20 6e |."davon |werden n|
|00001010| 61 63 68 20 22 2b 73 74 | 72 69 6e 67 28 56 4a 61 |ach "+st|ring(VJa|
|00001020| 68 72 2d 31 29 2b 22 20 | 7a 75 72 fc 63 6b 67 65 |hr-1)+" |zur.ckge|
|00001030| 74 72 61 67 65 6e 22 00 | 52 75 65 63 6b 4e 61 63 |tragen".|RueckNac|
|00001040| 68 56 6f 72 6a 61 68 72 | 00 73 65 6c 66 3c 3d 5b |hVorjahr|.self<=[|
|00001050| 24 33 34 34 35 5d 00 69 | 66 28 73 65 6c 66 2d 66 |$3445].i|f(self-f|
|00001060| 6c 6f 6f 72 28 73 65 6c | 66 29 3e 30 2e 63 2c 66 |loor(sel|f)>0.c,f|
|00001070| 6c 6f 6f 72 28 73 65 6c | 66 29 2c 73 65 6c 66 29 |loor(sel|f),self)|
|00001080| 00 21 28 5b 24 33 34 33 | 35 5d 3e 30 2e 63 26 21 |.!([$343|5]>0.c&!|
|00001090| 5b 24 33 34 34 31 5d 29 | 00 24 33 34 34 36 00 52 |[$3441])|.$3446.R|
|000010a0| 75 65 63 6b 4e 61 63 68 | 56 6f 72 6a 61 68 72 4b |ueckNach|VorjahrK|
|000010b0| 6f 6e 76 00 5b 24 33 34 | 33 35 5d 3e 30 2e 63 26 |onv.[$34|35]>0.c&|
|000010c0| 21 5b 24 33 34 34 31 5d | 00 24 33 34 34 37 00 67 |![$3441]|.$3447.g|
|000010d0| 72 70 32 30 30 30 00 56 | 4a 61 68 72 3e 3d 32 30 |rp2000.V|Jahr>=20|
|000010e0| 30 30 00 67 72 70 56 65 | 72 6c 75 73 74 56 6f 72 |00.grpVe|rlustVor|
|000010f0| 6a 61 68 72 00 5b 24 33 | 34 34 36 5d 3e 30 2e 63 |jahr.[$3|446]>0.c|
|00001100| 26 21 28 5b 24 33 34 33 | 35 5d 3e 30 2e 63 26 21 |&!([$343|5]>0.c&!|
|00001110| 5b 24 33 34 34 31 5d 29 | 00 74 78 74 56 65 72 6c |[$3441])|.txtVerl|
|00001120| 56 6f 72 4a 00 22 7a 75 | 6d 20 33 31 2e 31 32 2e |VorJ."zu|m 31.12.|
|00001130| 22 2b 73 74 72 69 6e 67 | 28 56 4a 61 68 72 2d 31 |"+string|(VJahr-1|
|00001140| 29 2b 22 20 67 65 73 6f | 6e 64 65 72 74 20 66 65 |)+" geso|ndert fe|
|00001150| 73 74 67 65 73 74 65 6c | 6c 74 65 72 20 56 65 72 |stgestel|lter Ver|
|00001160| 6c 75 73 74 22 00 56 65 | 72 6c 56 6f 72 6a 61 68 |lust".Ve|rlVorjah|
|00001170| 72 4b 6f 6e 76 32 00 56 | 65 72 6c 56 6f 72 6a 61 |rKonv2.V|erlVorja|
|00001180| 68 72 45 69 67 65 6e 32 | 00 74 78 74 56 65 72 6c |hrEigen2|.txtVerl|
|00001190| 56 4a 61 68 72 00 22 56 | 65 72 62 6c 65 69 62 65 |VJahr."V|erbleibe|
|000011a0| 6e 64 65 72 20 56 65 72 | 6c 75 73 74 20 7a 75 6d |nder Ver|lust zum|
|000011b0| 20 33 31 2e 31 32 2e 22 | 2b 73 56 4a 61 68 72 00 | 31.12."|+sVJahr.|
|000011c0| 67 65 73 66 65 73 74 56 | 65 72 6c 75 73 74 32 00 |gesfestV|erlust2.|
|000011d0| 24 33 34 34 38 00 4b 6f | 6e 76 00 67 72 70 4f 68 |$3448.Ko|nv.grpOh|
|000011e0| 6e 65 4b 6f 6e 76 65 72 | 74 00 5b 24 33 34 33 35 |neKonver|t.[$3435|
|000011f0| 5d 3d 3d 30 2e 63 00 67 | 72 70 47 65 77 69 6e 6e |]==0.c.g|rpGewinn|
|00001200| 56 4a 61 68 72 32 00 74 | 78 74 52 75 65 63 6b 32 |VJahr2.t|xtRueck2|
|00001210| 00 52 75 65 63 6b 4e 61 | 63 68 56 6f 72 6a 61 68 |.RueckNa|chVorjah|
|00001220| 72 32 00 67 72 70 31 39 | 39 39 5f 32 00 56 4a 61 |r2.grp19|99_2.VJa|
|00001230| 68 72 3d 3d 31 39 39 39 | 00 74 78 74 56 65 72 6c |hr==1999|.txtVerl|
|00001240| 32 00 67 72 70 32 30 30 | 30 5f 32 00 67 72 70 56 |2.grp200|0_2.grpV|
|00001250| 65 72 6c 75 73 74 56 6f | 72 6a 61 68 72 5f 32 00 |erlustVo|rjahr_2.|
|00001260| 74 78 74 56 65 72 6c 56 | 6f 72 4a 5f 32 00 56 65 |txtVerlV|orJ_2.Ve|
|00001270| 72 6c 56 6f 72 6a 61 68 | 72 4b 6f 6e 76 32 5f 32 |rlVorjah|rKonv2_2|
|00001280| 00 56 65 72 6c 56 6f 72 | 6a 61 68 72 45 69 67 65 |.VerlVor|jahrEige|
|00001290| 6e 32 5f 32 00 74 78 74 | 56 65 72 6c 56 4a 61 68 |n2_2.txt|VerlVJah|
|000012a0| 72 32 00 67 65 73 66 65 | 73 74 56 65 72 6c 75 73 |r2.gesfe|stVerlus|
|000012b0| 74 32 5f 32 00          |                         |t2_2.   |        |
+--------+-------------------------+-------------------------+--------+--------+