{"id":248,"date":"2007-03-13T10:02:23","date_gmt":"2007-03-13T09:02:23","guid":{"rendered":"http:\/\/www.navision-blog.de\/2007\/03\/13\/betrag-in-worten-angeben-zb-fr-einen-verrechnungsscheck\/"},"modified":"2007-04-26T15:22:14","modified_gmt":"2007-04-26T13:22:14","slug":"betrag-in-worten-angeben-zb-fr-einen-verrechnungsscheck","status":"publish","type":"post","link":"http:\/\/www.navision-blog.de\/blog\/2007\/03\/13\/betrag-in-worten-angeben-zb-fr-einen-verrechnungsscheck\/","title":{"rendered":"Betrag in Worten angeben (z.B. für einen Verrechnungsscheck)"},"content":{"rendered":"<\/p>\n

Will man beispielsweise einen Scheck bedrucken, so steht man vor der Problem einen Geldbetrag (z.b. 123,-) in Worten (also “Einhundertdreiundzwanzig”) angeben zu müssen. Der folgende Quellcode tut dies für Zahlen bis zu 100 Milliarden.
Die Idee dahinter ist die Ziffern der Zahl immer in Dreierblöcke zu zerlegen und dann diese Dreierblöcke als einzelne Gruppen zwischen 0 und 999 zu behandeln. Im Anschluss wird dann eine “Nachsilbe” (z.b. “tausend”) an den Block angefügt. So lassen sich auch sehr große Zahlen (die leider nur selten auf meinen Schecks stehen) leicht in Text umwandeln.<\/p>\n

\n
PROCEDURE<\/span> GetAmountInWords\r\n  <\/span>@1105400001<\/span>(p_Amount<\/span>@1105400000<\/span> : <\/span>Integer<\/span>) \r\n  r_Result : <\/span>Text<\/span>[<\/span>1024<\/span>]<\/span>;\r\n<\/span>VAR<\/span>\r\n  l_TempAmount<\/span>@1105400001<\/span> : <\/span>Text<\/span>[<\/span>1024<\/span>]<\/span>;\r\n<\/span>BEGIN<\/span>\r\n  <\/span>IF<\/span> p_Amount <\/span>=<\/span> <\/span>0<\/span> <\/span>THEN<\/span>\r\n    <\/span>EXIT<\/span>(<\/span>'<\/span>Null<\/span>'<\/span>);\r\n\r\n  l_TempAmount :<\/span>=<\/span> FORMAT(p_Amount);\r\n\r\n  r_Result :<\/span>=<\/span> GetGroup(l_TempAmount,<\/span>0<\/span>);\r\n  <\/span>IF<\/span> STRLEN(l_TempAmount) <\/span>>=<\/span> <\/span>1<\/span> <\/span>THEN<\/span>\r\n    r_Result :<\/span>=<\/span> GetGroup(l_TempAmount,<\/span>1<\/span>) <\/span>+<\/span> r_Result;\r\n  <\/span>IF<\/span> STRLEN(l_TempAmount) <\/span>>=<\/span> <\/span>1<\/span> <\/span>THEN<\/span>\r\n    r_Result :<\/span>=<\/span> GetGroup(l_TempAmount,<\/span>2<\/span>) <\/span>+<\/span> r_Result;\r\n  <\/span>IF<\/span> STRLEN(l_TempAmount) <\/span>>=<\/span> <\/span>1<\/span> <\/span>THEN<\/span>\r\n    r_Result :<\/span>=<\/span> GetGroup(l_TempAmount,<\/span>3<\/span>) <\/span>+<\/span> r_Result;\r\n  <\/span>IF<\/span> STRLEN(l_TempAmount) <\/span>>=<\/span>1<\/span> <\/span>THEN<\/span>\r\n    ERROR(<\/span>'<\/span>Betrag wird nicht unterst\u0081tzt.<\/span>'<\/span>);\r\n\r\n  r_Result :<\/span>=<\/span> UPPERCASE(COPYSTR(r_Result,<\/span>1<\/span>,<\/span>1<\/span>)) <\/span>+<\/span>\r\n    COPYSTR(r_Result,<\/span>2<\/span>,STRLEN(r_Result));\r\n<\/span>END<\/span>;\r\n\r\n<\/span>PROCEDURE<\/span> GetGroup\r\n  <\/span>@1105400003<\/span>(<\/span>VAR<\/span> v_Text<\/span>@1105400003<\/span> : <\/span>Text<\/span>[<\/span>1024<\/span>]<\/span>;\r\n  p_Group<\/span>@1105400006<\/span> : <\/span>Integer<\/span>)\r\n  r_Result : <\/span>Text<\/span>[<\/span>1024<\/span>]<\/span>;\r\n<\/span>VAR<\/span>\r\n  l_H<\/span>@1105400000<\/span> : <\/span>Text<\/span>[<\/span>250<\/span>]<\/span>;\r\n  l_T<\/span>@1105400001<\/span> : <\/span>Text<\/span>[<\/span>250<\/span>]<\/span>;\r\n  l_O<\/span>@1105400002<\/span> : <\/span>Text<\/span>[<\/span>250<\/span>]<\/span>;\r\n  l_Value<\/span>@1105400004<\/span> : <\/span>Integer<\/span>;\r\n  l_Group<\/span>@1105400005<\/span> : <\/span>Text<\/span>[<\/span>3<\/span>]<\/span>;\r\n<\/span>BEGIN<\/span>\r\n  FillGroup(v_Text);\r\n  l_Group :<\/span>=<\/span> COPYSTR(v_Text,\r\n    STRLEN(v_Text)<\/span>-<\/span>2<\/span>,STRLEN(v_Text));\r\n  EVALUATE(l_Value,COPYSTR(l_Group,<\/span>1<\/span>,<\/span>1<\/span>));\r\n  <\/span>IF<\/span> l_Value <\/span>><\/span> <\/span>0<\/span> <\/span>THEN<\/span>\r\n    <\/span>IF<\/span> l_Value <\/span>=<\/span> <\/span>1<\/span> <\/span>THEN<\/span>\r\n      l_H :<\/span>=<\/span> <\/span>'<\/span>einhundert<\/span>'<\/span>\r\n    <\/span>ELSE<\/span>\r\n      l_H :<\/span>=<\/span> GetDigit(l_Value) <\/span>+<\/span> <\/span>'<\/span>hundert<\/span>'<\/span>;\r\n\r\n  EVALUATE(l_Value,COPYSTR(l_Group,<\/span>2<\/span>,<\/span>2<\/span>));\r\n\r\n  <\/span>IF<\/span> (l_Value <\/span>>=<\/span> <\/span>10<\/span>) <\/span>AND<\/span> (l_Value <\/span><<\/span> <\/span>20<\/span>) <\/span>THEN<\/span>\r\n    l_O :<\/span>=<\/span> GetTenToTwenty(l_Value)\r\n  <\/span>ELSE<\/span> <\/span>BEGIN<\/span>\r\n    EVALUATE(l_Value,COPYSTR(l_Group,<\/span>2<\/span>,<\/span>1<\/span>));\r\n    <\/span>IF<\/span> l_Value <\/span>><\/span> <\/span>1<\/span> <\/span>THEN<\/span>\r\n      l_T :<\/span>=<\/span> GetTens(l_Value);\r\n\r\n    EVALUATE(l_Value,COPYSTR(l_Group,<\/span>3<\/span>,<\/span>1<\/span>));\r\n    <\/span>IF<\/span> l_Value <\/span>><\/span> <\/span>0<\/span> <\/span>THEN<\/span> <\/span>BEGIN<\/span>\r\n      <\/span>IF<\/span> l_T <\/span>=<\/span> <\/span>''<\/span> <\/span>THEN<\/span>\r\n        l_O :<\/span>=<\/span> GetDigit(l_Value)\r\n      <\/span>ELSE<\/span> <\/span>BEGIN<\/span>\r\n        <\/span>IF<\/span> l_Value <\/span>=<\/span> <\/span>1<\/span> <\/span>THEN<\/span>\r\n          l_O :<\/span>=<\/span> <\/span>'<\/span>einund<\/span>'<\/span>\r\n        <\/span>ELSE<\/span>\r\n          l_O :<\/span>=<\/span> GetDigit(l_Value) <\/span>+<\/span> <\/span>'<\/span>und<\/span>'<\/span>;\r\n      <\/span>END<\/span>;\r\n    <\/span>END<\/span>;\r\n  <\/span>END<\/span>;\r\n\r\n  RemoveGroup(v_Text);\r\n  r_Result :<\/span>=<\/span> l_H <\/span>+<\/span> l_O <\/span>+<\/span> l_T;\r\n  <\/span>IF<\/span> p_Group <\/span>=<\/span> <\/span>1<\/span> <\/span>THEN<\/span> <\/span>BEGIN<\/span>\r\n    <\/span>IF<\/span> r_Result <\/span>=<\/span> <\/span>'<\/span>eins<\/span>'<\/span> <\/span>THEN<\/span>\r\n      r_Result :<\/span>=<\/span> <\/span>'<\/span>eintausend<\/span>'<\/span>\r\n    <\/span>ELSE<\/span>\r\n      r_Result :<\/span>=<\/span> r_Result <\/span>+<\/span> <\/span>'<\/span>tausend<\/span>'<\/span>;\r\n  <\/span>END<\/span>;\r\n  <\/span>IF<\/span> p_Group <\/span>=<\/span> <\/span>2<\/span> <\/span>THEN<\/span> <\/span>BEGIN<\/span>\r\n    <\/span>IF<\/span> r_Result <\/span>=<\/span> <\/span>'<\/span>eins<\/span>'<\/span> <\/span>THEN<\/span>\r\n      r_Result :<\/span>=<\/span> <\/span>'<\/span>einemillion<\/span>'<\/span>\r\n    <\/span>ELSE<\/span>\r\n      r_Result :<\/span>=<\/span> r_Result <\/span>+<\/span> <\/span>'<\/span>millionen<\/span>'<\/span>;\r\n  <\/span>END<\/span>;\r\n  <\/span>IF<\/span> p_Group <\/span>=<\/span> <\/span>3<\/span> <\/span>THEN<\/span> <\/span>BEGIN<\/span>\r\n    <\/span>IF<\/span> r_Result <\/span>=<\/span> <\/span>'<\/span>eins<\/span>'<\/span> <\/span>THEN<\/span>\r\n      r_Result :<\/span>=<\/span> <\/span>'<\/span>einemilliarde<\/span>'<\/span>\r\n    <\/span>ELSE<\/span>\r\n      r_Result :<\/span>=<\/span> r_Result <\/span>+<\/span> <\/span>'<\/span>milliarden<\/span>'<\/span>;\r\n  <\/span>END<\/span>;\r\n<\/span>END<\/span>;\r\n\r\n<\/span>PROCEDURE<\/span> GetDigit\r\n  <\/span>@1105400004<\/span>(p_Value<\/span>@1105400000<\/span> : <\/span>Integer<\/span>) : <\/span>Text<\/span>[<\/span>30<\/span>]<\/span>;\r\n<\/span>BEGIN<\/span>\r\n  <\/span>CASE<\/span> p_Value <\/span>OF<\/span>\r\n    <\/span>0<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>null<\/span>'<\/span>);\r\n    <\/span>1<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>eins<\/span>'<\/span>);\r\n    <\/span>2<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>zwei<\/span>'<\/span>);\r\n    <\/span>3<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>drei<\/span>'<\/span>);\r\n    <\/span>4<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>vier<\/span>'<\/span>);\r\n    <\/span>5<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>f\u0081nf<\/span>'<\/span>);\r\n    <\/span>6<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>sechs<\/span>'<\/span>);\r\n    <\/span>7<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>sieben<\/span>'<\/span>);\r\n    <\/span>8<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>acht<\/span>'<\/span>);\r\n    <\/span>9<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>neun<\/span>'<\/span>);\r\n    <\/span>ELSE<\/span>\r\n      ERROR(<\/span>'<\/span>%1 ist kein Einer<\/span>'<\/span>,p_Value);\r\n  <\/span>END<\/span>;\r\n<\/span>END<\/span>;\r\n\r\n<\/span>PROCEDURE<\/span> GetTenToTwenty\r\n  <\/span>@1105400005<\/span>(p_Value<\/span>@1105400000<\/span> : <\/span>Integer<\/span>) : <\/span>Text<\/span>[<\/span>30<\/span>]<\/span>;\r\n<\/span>BEGIN<\/span>\r\n  <\/span>CASE<\/span> p_Value <\/span>OF<\/span>\r\n    <\/span>10<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>zehn<\/span>'<\/span>);\r\n    <\/span>11<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>elf<\/span>'<\/span>);\r\n    <\/span>12<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>zwölf<\/span>'<\/span>);\r\n    <\/span>13<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>dreizehn<\/span>'<\/span>);\r\n    <\/span>14<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>vierzehn<\/span>'<\/span>);\r\n    <\/span>15<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>fünfzehn<\/span>'<\/span>);\r\n    <\/span>16<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>sechzehn<\/span>'<\/span>);\r\n    <\/span>17<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>siebzehn<\/span>'<\/span>);\r\n    <\/span>18<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>achtzehn<\/span>'<\/span>);\r\n    <\/span>19<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>neunzehn<\/span>'<\/span>);\r\n    <\/span>ELSE<\/span>\r\n      ERROR(<\/span>'<\/span>%1 ist nicht zwischen 10 und 20<\/span>'<\/span>,p_Value);\r\n  <\/span>END<\/span>;\r\n<\/span>END<\/span>;\r\n\r\n<\/span>PROCEDURE<\/span> GetTens\r\n  <\/span>@1105400006<\/span>(p_Value<\/span>@1105400000<\/span> : <\/span>Integer<\/span>) : <\/span>Text<\/span>[<\/span>30<\/span>]<\/span>;\r\n<\/span>BEGIN<\/span>\r\n  <\/span>CASE<\/span> p_Value <\/span>OF<\/span>\r\n    <\/span>2<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>zwanzig<\/span>'<\/span>);\r\n    <\/span>3<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>dreizig<\/span>'<\/span>);\r\n    <\/span>4<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>vierzig<\/span>'<\/span>);\r\n    <\/span>5<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>fünfzig<\/span>'<\/span>);\r\n    <\/span>6<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>sechzig<\/span>'<\/span>);\r\n    <\/span>7<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>siebzig<\/span>'<\/span>);\r\n    <\/span>8<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>achtzig<\/span>'<\/span>);\r\n    <\/span>9<\/span>: <\/span>EXIT<\/span>(<\/span>'<\/span>neunzig<\/span>'<\/span>);\r\n    <\/span>ELSE<\/span>\r\n      ERROR(<\/span>'<\/span>%1 ist keine Zehner<\/span>'<\/span>,p_Value);\r\n  <\/span>END<\/span>;\r\n<\/span>END<\/span>;\r\n\r\n<\/span>PROCEDURE<\/span> FillGroup\r\n  <\/span>@1105400007<\/span>(<\/span>VAR<\/span> v_String<\/span>@1105400000<\/span> : <\/span>Text<\/span>[<\/span>30<\/span>]<\/span>);\r\n<\/span>BEGIN<\/span>\r\n  <\/span>WHILE<\/span> STRLEN(v_String) <\/span><<\/span> <\/span>3<\/span> DO\r\n    v_String :<\/span>=<\/span> <\/span>'<\/span>0<\/span>'<\/span> <\/span>+<\/span> v_String;\r\n<\/span>END<\/span>;\r\n\r\n<\/span>PROCEDURE<\/span> RemoveGroup\r\n  <\/span>@1105400000<\/span>(<\/span>VAR<\/span> v_String<\/span>@1105400000<\/span> : <\/span>Text<\/span>[<\/span>1024<\/span>]<\/span>);\r\n<\/span>BEGIN<\/span>\r\n  v_String :<\/span>=<\/span> COPYSTR(v_String,<\/span>1<\/span>,STRLEN(v_String) <\/span>-<\/span> <\/span>3<\/span>);\r\n<\/span>END<\/span>;<\/span><\/div><\/pre>\n<\/div>\n","protected":false},"excerpt":{"rendered":"
Will man beispielsweise einen Scheck bedrucken, so steht man vor der Problem einen Geldbetrag (z.b. 123,-) in Worten (also “Einhundertdreiundzwanzig”) angeben zu müssen. Der folgende Quellcode tut dies für Zahlen bis zu 100 Milliarden. Die Idee dahinter ist die Ziffern der Zahl immer in Dreierblöcke zu zerlegen und dann diese Dreierblöcke als einzelne Gruppen zwischen 0 und 999 zu […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[5],"tags":[635],"_links":{"self":[{"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/posts\/248"}],"collection":[{"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/comments?post=248"}],"version-history":[{"count":0,"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/posts\/248\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/media?parent=248"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/categories?post=248"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.navision-blog.de\/blog\/wp-json\/wp\/v2\/tags?post=248"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}