/ com!online 2002 February / comcd0202.iso / geld / akad / Steuerprogramm / data.z / HaHiAufw.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 a8 02 00 00 |ADB 4.04|........|
|00000010| 79 03 00 00 32 07 00 00 | 18 00 00 00 4a 01 00 00 |y...2...|....J...|
|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 48 61 48 69 41 75 66 | 77 00 00 00 00 00 00 00 |.HaHiAuf|w.......|
|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 ee 00 00 00 0a | 00 02 00 56 57 eb 00 6a |........|...VW..j|
|000000f0| 01 68 02 05 00 00 00 00 | 00 00 00 00 00 56 57 9f |.h......|.....VW.|
|00000100| 02 1e 03 60 04 05 00 00 | 00 00 00 00 00 00 00 03 |...`....|........|
|00000110| 00 42 43 8a 04 00 00 00 | 00 30 00 00 00 06 00 07 |.BC.....|.0......|
|00000120| 00 d6 00 0c 00 b6 04 51 | 03 99 04 47 52 bc 04 00 |.......Q|...GR...|
|00000130| 00 00 00 02 04 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 c6 04 08 00 54 41 cf | 04 08 00 00 00 00 04 00 |.....TA.|........|
|00000150| 00 06 00 18 00 be 00 aa | 00 d7 04 03 00 54 54 dc |........|.....TT.|
|00000160| 04 01 01 08 00 20 00 00 | 00 00 00 00 00 90 01 00 |..... ..|........|
|00000170| 00 ea 04 e2 04 54 4e f0 | 04 20 01 00 00 70 00 00 |.....TN.|. ...p..|
|00000180| 00 00 00 00 00 2c 01 00 | 00 00 05 4e 03 f7 04 04 |.....,..|...N....|
|00000190| 20 54 4e 04 05 20 01 00 | 00 70 00 00 00 00 00 00 | TN.. ..|.p......|
|000001a0| 00 2c 01 00 00 19 05 4d | 03 0d 05 04 20 53 54 1e |.,.....M|.... ST.|
|000001b0| 05 00 00 00 00 20 00 00 | 00 08 00 c8 00 78 00 0a |..... ..|.....x..|
|000001c0| 00 00 00 26 05 45 4e 39 | 05 21 01 00 00 40 00 00 |...&.EN9|.!...@..|
|000001d0| 00 56 00 c6 00 2c 00 0c | 00 45 05 06 20 45 4e 4b |.V...,..|.E.. ENK|
|000001e0| 05 21 01 00 00 40 00 00 | 00 8c 00 c6 00 2c 00 0c |.!...@..|.....,..|
|000001f0| 00 59 05 06 20 53 4c 00 | 00 00 00 00 00 00 00 00 |.Y.. SL.|........|
|00000200| 00 08 00 d6 00 b6 00 01 | 00 00 00 53 54 5f 05 00 |........|...ST_..|
|00000210| 00 00 00 20 00 00 00 08 | 00 de 00 78 00 0a 00 00 |... ....|...x....|
|00000220| 00 68 05 45 4e 84 05 21 | 01 00 00 40 00 00 00 8c |.h.EN..!|...@....|
|00000230| 00 dc 00 2c 00 0c 00 8b | 05 06 20 53 46 00 00 00 |...,....|.. SF...|
|00000240| 01 00 00 00 00 00 00 02 | 00 02 00 e2 00 ec 00 00 |........|........|
|00000250| 00 47 52 91 05 00 00 00 | 00 02 04 00 00 00 00 00 |.GR.....|........|
|00000260| 00 00 00 00 00 00 00 9a | 05 0a 00 53 54 00 00 00 |........|...ST...|
|00000270| 00 00 00 20 00 00 00 06 | 00 19 00 90 00 0a 00 00 |... ....|........|
|00000280| 00 a2 05 45 4e c8 05 20 | 01 00 00 d0 00 00 00 a8 |...EN.. |........|
|00000290| 00 17 00 2c 00 0c 00 fc | 05 4f 03 06 20 d3 05 53 |...,....|.O.. ..S|
|000002a0| 54 02 06 00 00 00 00 20 | 00 00 00 06 00 29 00 90 |T...... |.....)..|
|000002b0| 00 0a 00 00 00 0b 06 45 | 4e 34 06 20 01 00 00 d0 |.......E|N4. ....|
|000002c0| 00 00 00 a8 00 27 00 2c | 00 0c 00 6b 06 50 03 06 |.....'.,|...k.P..|
|000002d0| 20 41 06 53 4c 00 00 00 | 00 00 00 00 00 00 00 06 | A.SL...|........|
|000002e0| 00 37 00 cd 00 01 00 00 | 00 53 54 00 00 00 00 00 |.7......|.ST.....|
|000002f0| 00 20 00 00 00 06 00 3c | 00 90 00 0a 00 00 00 71 |. .....<|.......q|
|00000300| 06 45 4e 98 06 21 01 00 | 00 40 00 00 00 a8 00 3b |.EN..!..|.@.....;|
|00000310| 00 2c 00 0c 00 a7 06 06 | 20 53 54 00 00 00 60 00 |.,......| ST...`.|
|00000320| 00 21 00 00 00 1e 00 5c | 00 a6 00 1e 00 00 00 00 |.!.....\|........|
|00000330| 08 ad 06 53 46 00 00 00 | 01 00 00 00 00 00 00 02 |...SF...|........|
|00000340| 00 02 00 e2 00 82 00 00 | 00 53 46 00 00 00 01 00 |........|.SF.....|
|00000350| 00 00 00 00 00 0e 00 55 | 00 c6 00 2a 00 00 00 00 |.......U|...*....|
|00000360| 00 00 00 26 00 1b 00 85 | 67 00 00 00 00 05 00 01 |...&....|g.......|
|00000370| 00 05 00 06 00 10 00 12 | 00 00 48 61 48 69 41 75 |........|..HaHiAu|
|00000380| 66 77 00 22 48 61 75 73 | 68 61 6c 74 73 68 69 6c |fw."Haus|haltshil|
|00000390| 66 65 22 00 22 68 61 68 | 69 2e 66 72 77 22 00 69 |fe"."hah|i.frw".i|
|000003a0| 66 28 5b 24 31 35 35 33 | 5d 3d 3d 30 2e 63 26 5b |f([$1553|]==0.c&[|
|000003b0| 24 31 35 35 36 5d 3e 30 | 2e 63 2c 69 66 28 4d 6f |$1556]>0|.c,if(Mo|
|000003c0| 64 75 73 21 3d 32 2c 69 | 66 28 21 5b 2f 2e 24 39 |dus!=2,i|f(![/.$9|
|000003d0| 30 2e 24 31 30 37 2e 24 | 31 31 37 2e 24 34 34 33 |0.$107.$|117.$443|
|000003e0| 38 5d 2c 22 66 6f 72 6d | 6d 34 2e 66 72 77 22 2c |8],"form|m4.frw",|
|000003f0| 22 66 6f 72 6d 6d 6d 34 | 2e 66 72 77 22 29 2c 22 |"formmm4|.frw"),"|
|00000400| 66 6f 72 6d 61 6c 65 35 | 2e 66 72 77 22 29 2c 69 |formale5|.frw"),i|
|00000410| 66 28 4d 6f 64 75 73 21 | 3d 32 2c 69 66 28 21 5b |f(Modus!|=2,if(![|
|00000420| 2f 2e 24 39 30 2e 24 31 | 30 37 2e 24 31 31 37 2e |/.$90.$1|07.$117.|
|00000430| 24 34 34 33 38 5d 2c 22 | 66 6f 72 6d 6d 33 2e 66 |$4438],"|formm3.f|
|00000440| 72 77 22 2c 22 66 6f 72 | 6d 6d 6d 33 2e 66 72 77 |rw","for|mmm3.frw|
|00000450| 22 29 2c 22 66 6f 72 6d | 61 6c 65 35 2e 66 72 77 |"),"form|ale5.frw|
|00000460| 22 29 29 00 69 66 28 21 | 5b 24 33 36 39 34 5d 26 |")).if(!|[$3694]&|
|00000470| 5b 24 33 36 39 35 5d 3e | 30 2e 63 26 28 5b 5e 2e |[$3695]>|0.c&([^.|
|00000480| 24 37 36 36 5d 21 3d 30 | 64 26 5b 5e 2e 24 37 36 |$766]!=0|d&[^.$76|
|00000490| 37 5d 21 3d 30 64 29 2c | 74 62 6c 46 69 72 73 74 |7]!=0d),|tblFirst|
|000004a0| 49 6e 64 65 78 28 5b 5e | 2e 24 31 35 34 33 5d 2c |Index([^|.$1543],|
|000004b0| 5b 24 31 35 33 33 5d 29 | 3c 3d 74 62 6c 46 69 72 |[$1533])|<=tblFir|
|000004c0| 73 74 49 6e 64 65 78 28 | 5b 5e 2e 24 31 35 34 33 |stIndex(|[^.$1543|
|000004d0| 5d 2c 5b 24 33 37 30 32 | 5d 3e 30 2e 63 29 2c 7e |],[$3702|]>0.c),~|
|000004e0| 54 29 00 22 53 69 65 20 | 68 61 62 65 6e 20 66 fc |T)."Sie |haben f.|
|000004f0| 72 20 64 65 6e 20 4d 6f | 6e 61 74 20 22 2b 5b 24 |r den Mo|nat "+[$|
|00000500| 31 38 33 2e 30 2e 24 32 | 33 39 30 5d 23 32 3d 28 |183.0.$2|390]#2=(|
|00000510| 74 62 6c 46 69 72 73 74 | 49 6e 64 65 78 28 5b 5e |tblFirst|Index([^|
|00000520| 2e 24 31 35 34 33 5d 2c | 5b 24 33 37 30 32 5d 3e |.$1543],|[$3702]>|
|00000530| 30 2e 63 29 29 2b 22 20 | 4b 6f 73 74 65 6e 20 65 |0.c))+" |Kosten e|
|00000540| 69 6e 67 65 67 65 62 65 | 6e 2c 20 6f 62 77 6f 68 |ingegebe|n, obwoh|
|00000550| 6c 20 53 69 65 20 64 69 | 65 20 48 61 75 73 68 61 |l Sie di|e Hausha|
|00000560| 6c 74 73 68 69 6c 66 65 | 20 65 72 73 74 20 61 62 |ltshilfe| erst ab|
|00000570| 20 22 2b 5b 24 31 38 33 | 2e 30 2e 24 32 33 39 30 | "+[$183|.0.$2390|
|00000580| 5d 23 32 3d 28 74 62 6c | 46 69 72 73 74 49 6e 64 |]#2=(tbl|FirstInd|
|00000590| 65 78 28 5b 5e 2e 24 31 | 35 34 33 5d 2c 5b 24 31 |ex([^.$1|543],[$1|
|000005a0| 35 33 33 5d 29 29 2b 22 | 20 62 65 73 63 68 e4 66 |533]))+"| besch.f|
|000005b0| 74 69 67 74 20 68 61 62 | 65 6e 2e 5c 6e 20 5c 6e |tigt hab|en.\n \n|
|000005c0| 57 6f 6c 6c 65 6e 20 53 | 69 65 20 49 68 72 65 20 |Wollen S|ie Ihre |
|000005d0| 41 6e 67 61 62 65 6e 20 | e4 6e 64 65 72 6e 3f 22 |Angaben |.ndern?"|
|000005e0| 00 22 41 75 66 77 65 6e | 64 75 6e 67 65 6e 20 61 |."Aufwen|dungen a|
|000005f0| 75 df 65 72 68 61 6c 62 | 20 64 65 73 20 42 65 73 |u.erhalb| des Bes|
|00000600| 63 68 e4 66 74 69 67 75 | 6e 67 73 7a 65 69 74 72 |ch.ftigu|ngszeitr|
|00000610| 61 75 6d 65 73 3f 22 00 | 69 66 28 21 5b 24 33 36 |aumes?".|if(![$36|
|00000620| 39 34 5d 26 5b 24 33 36 | 39 35 5d 3e 30 2e 63 26 |94]&[$36|95]>0.c&|
|00000630| 28 5b 5e 2e 24 37 36 36 | 5d 21 3d 30 64 26 5b 5e |([^.$766|]!=0d&[^|
|00000640| 2e 24 37 36 37 5d 21 3d | 30 64 29 2c 74 62 6c 46 |.$767]!=|0d),tblF|
|00000650| 69 72 73 74 49 6e 64 65 | 78 28 5b 5e 2e 24 31 35 |irstInde|x([^.$15|
|00000660| 34 33 5d 2c 5b 24 31 35 | 33 33 5d 29 3e 3d 74 62 |43],[$15|33])>=tb|
|00000670| 6c 46 69 72 73 74 49 6e | 64 65 78 28 5b 5e 2e 24 |lFirstIn|dex([^.$|
|00000680| 31 35 34 33 5d 2c 5b 24 | 33 37 30 32 5d 3e 30 2e |1543],[$|3702]>0.|
|00000690| 63 29 2c 7e 54 29 00 22 | 53 69 65 20 68 61 62 65 |c),~T)."|Sie habe|
|000006a0| 6e 20 64 69 65 20 48 61 | 75 73 68 61 6c 74 73 68 |n die Ha|ushaltsh|
|000006b0| 69 6c 66 65 20 61 62 20 | 22 2b 5b 24 31 38 33 2e |ilfe ab |"+[$183.|
|000006c0| 30 2e 24 32 33 39 30 5d | 23 32 3d 28 74 62 6c 46 |0.$2390]|#2=(tblF|
|000006d0| 69 72 73 74 49 6e 64 65 | 78 28 5b 5e 2e 24 31 35 |irstInde|x([^.$15|
|000006e0| 34 33 5d 2c 5b 24 31 35 | 33 33 5d 29 29 2b 22 20 |43],[$15|33]))+" |
|000006f0| 62 65 73 63 68 e4 66 74 | 69 67 74 2c 20 6a 65 64 |besch.ft|igt, jed|
|00000700| 6f 63 68 20 66 fc 72 20 | 64 69 65 73 65 6e 20 4d |och f.r |diesen M|
|00000710| 6f 6e 61 74 20 6b 65 69 | 6e 65 20 4b 6f 73 74 65 |onat kei|ne Koste|
|00000720| 6e 20 65 69 6e 67 65 67 | 65 62 65 6e 2e 5c 6e 20 |n eingeg|eben.\n |
|00000730| 5c 6e 42 69 74 74 65 20 | 62 65 61 63 68 74 65 6e |\nBitte |beachten|
|00000740| 20 53 69 65 3a 5c 6e 45 | 73 20 73 69 6e 64 20 6a | Sie:\nE|s sind j|
|00000750| 65 77 65 69 6c 73 20 64 | 69 65 20 4b 6f 73 74 65 |eweils d|ie Koste|
|00000760| 6e 20 61 6e 7a 75 67 65 | 62 65 6e 2c 20 64 69 65 |n anzuge|ben, die|
|00000770| 20 46 dc 52 20 65 69 6e | 65 6e 20 4d 6f 6e 61 74 | F.R ein|en Monat|
|00000780| 20 67 65 7a 61 68 6c 74 | 20 77 75 72 64 65 6e 20 | gezahlt| wurden |
|00000790| 2d 20 75 6e 61 62 68 e4 | 6e 67 69 67 20 76 6f 6d |- unabh.|ngig vom|
|000007a0| 20 5a 61 68 6c 75 6e 67 | 73 7a 65 69 74 70 75 6e | Zahlung|szeitpun|
|000007b0| 6b 74 21 5c 6e 20 5c 6e | 57 6f 6c 6c 65 6e 20 53 |kt!\n \n|Wollen S|
|000007c0| 69 65 20 49 68 72 65 20 | 41 6e 67 61 62 65 6e 20 |ie Ihre |Angaben |
|000007d0| e4 6e 64 65 72 6e 3f 22 | 00 22 4b 65 69 6e 65 20 |.ndern?"|."Keine |
|000007e0| 41 75 66 77 65 6e 64 75 | 6e 67 65 6e 20 74 72 6f |Aufwendu|ngen tro|
|000007f0| 74 7a 20 42 65 73 63 68 | e4 66 74 69 67 75 6e 67 |tz Besch|.ftigung|
|00000800| 3f 22 00 45 69 6e 67 61 | 62 65 45 69 6e 66 61 63 |?".Einga|beEinfac|
|00000810| 68 00 22 20 45 69 6e 67 | 61 62 65 20 61 6c 73 20 |h." Eing|abe als |
|00000820| 4a 61 68 72 65 73 62 65 | 74 72 e4 67 65 22 00 24 |Jahresbe|tr.ge".$|
|00000830| 33 36 39 34 00 67 72 70 | 45 69 6e 7a 65 6c 00 21 |3694.grp|Einzel.!|
|00000840| 5b 24 33 36 39 34 5d 00 | 74 62 6c 41 75 66 77 00 |[$3694].|tblAufw.|
|00000850| 24 31 38 33 00 4d 6f 6e | 61 74 00 22 4d 6f 6e 61 |$183.Mon|at."Mona|
|00000860| 74 22 00 24 32 33 39 30 | 00 4b 6f 73 74 65 6e 00 |t".$2390|.Kosten.|
|00000870| 22 4b 6f 73 74 65 6e 22 | 00 24 33 37 00 5a 75 73 |"Kosten"|.$37.Zus|
|00000880| 63 68 75 73 73 00 22 5a | 75 73 63 68 fc 73 73 65 |chuss."Z|usch.sse|
|00000890| 22 00 24 34 38 35 00 73 | 74 53 75 6d 6d 65 00 22 |".$485.s|tSumme."|
|000008a0| 53 75 6d 6d 65 20 28 67 | 65 72 75 6e 64 65 74 29 |Summe (g|erundet)|
|000008b0| 22 00 53 75 6d 6d 65 4b | 6f 73 74 65 6e 00 24 33 |".SummeK|osten.$3|
|000008c0| 36 39 35 00 53 75 6d 6d | 65 5a 75 73 63 68 75 73 |695.Summ|eZuschus|
|000008d0| 73 00 24 33 36 39 36 00 | 73 74 47 65 73 61 6d 74 |s.$3696.|stGesamt|
|000008e0| 00 22 61 62 7a 75 67 73 | 66 e4 68 69 67 65 20 41 |."abzugs|f.hige A|
|000008f0| 75 66 77 65 6e 64 75 6e | 67 65 6e 22 00 47 65 73 |ufwendun|gen".Ges|
|00000900| 61 6d 74 00 24 33 37 30 | 30 00 67 72 70 53 75 6d |amt.$370|0.grpSum|
|00000910| 6d 65 00 5b 24 33 36 39 | 34 5d 00 22 49 6d 20 4a |me.[$369|4]."Im J|
|00000920| 61 68 72 20 22 2b 73 56 | 4a 61 68 72 2b 22 20 67 |ahr "+sV|Jahr+" g|
|00000930| 65 74 72 61 67 65 6e 65 | 20 4b 6f 73 74 65 6e 22 |etragene| Kosten"|
|00000940| 00 4b 6f 73 74 65 6e 4a | 61 68 72 00 69 66 28 73 |.KostenJ|ahr.if(s|
|00000950| 65 6c 66 2d 66 6c 6f 6f | 72 28 73 65 6c 66 29 3e |elf-floo|r(self)>|
|00000960| 30 2e 63 2c 63 65 69 6c | 28 73 65 6c 66 29 2c 73 |0.c,ceil|(self),s|
|00000970| 65 6c 66 29 00 24 33 36 | 39 37 00 74 78 74 7a 75 |elf).$36|97.txtzu|
|00000980| 73 63 68 00 22 49 6d 20 | 4a 61 68 72 20 22 2b 73 |sch."Im |Jahr "+s|
|00000990| 56 4a 61 68 72 2b 22 20 | 65 72 68 61 6c 74 65 6e |VJahr+" |erhalten|
|000009a0| 65 20 5a 75 73 63 68 fc | 73 73 65 22 00 5a 75 73 |e Zusch.|sse".Zus|
|000009b0| 63 68 75 73 73 4a 61 68 | 72 00 69 66 28 73 65 6c |chussJah|r.if(sel|
|000009c0| 66 2d 66 6c 6f 6f 72 28 | 73 65 6c 66 29 3e 30 2e |f-floor(|self)>0.|
|000009d0| 63 2c 66 6c 6f 6f 72 28 | 73 65 6c 66 29 2c 73 65 |c,floor(|self),se|
|000009e0| 6c 66 29 00 24 33 36 39 | 38 00 22 47 65 73 61 6d |lf).$369|8."Gesam|
|000009f0| 74 65 20 41 75 66 77 65 | 6e 64 75 6e 67 65 6e 20 |te Aufwe|ndungen |
|00000a00| 69 6d 20 4a 61 68 72 20 | 22 2b 73 56 4a 61 68 72 |im Jahr |"+sVJahr|
|00000a10| 00 41 75 66 77 61 6e 64 | 45 69 6e 66 61 63 68 00 |.Aufwand|Einfach.|
|00000a20| 24 33 36 39 39 00 22 47 | 65 62 65 6e 20 53 69 65 |$3699."G|eben Sie|
|00000a30| 20 4b 6f 73 74 65 6e 20 | 75 6e 64 20 5a 75 73 63 | Kosten |und Zusc|
|00000a40| 68 fc 73 73 65 20 6e 75 | 72 20 64 61 6e 6e 20 61 |h.sse nu|r dann a|
|00000a50| 6c 73 20 4a 61 68 72 65 | 73 62 65 74 72 e4 67 65 |ls Jahre|sbetr.ge|
|00000a60| 20 65 69 6e 2c 20 77 65 | 6e 6e 20 64 69 65 20 4b | ein, we|nn die K|
|00000a70| 6f 73 74 65 6e 20 69 6e | 20 6d 6f 6e 61 74 6c 69 |osten in| monatli|
|00000a80| 63 68 20 67 6c 65 69 63 | 68 62 6c 65 69 62 65 6e |ch gleic|hbleiben|
|00000a90| 64 65 72 20 48 f6 68 65 | 20 61 6e 67 65 66 61 6c |der H.he| angefal|
|00000aa0| 6c 65 6e 20 73 69 6e 64 | 2e 22 00                |len sind|.".     |
+--------+-------------------------+-------------------------+--------+--------+