SL/Num2text.pm

   1 #=====================================================================
   2 # LX-Office ERP
   3 # Copyright (C) 2004
   4 # Based on SQL-Ledger Version 2.1.9
   5 # Web http://www.lx-office.org
   6 #
   7 #=====================================================================
   8 # SQL-Ledger Accounting
   9 # Copyright (C) 2001
  10 #
  11 #  Author: Dieter Simader
  12 #   Email: dsimader@sql-ledger.org
  13 #     Web: http://www.sql-ledger.org
  14 #
  15 #  Contributors:
  16 #
  17 # This program is free software; you can redistribute it and/or modify
  18 # it under the terms of the GNU General Public License as published by
  19 # the Free Software Foundation; either version 2 of the License, or
  20 # (at your option) any later version.
  21 #
  22 # This program is distributed in the hope that it will be useful,
  23 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  24 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25 # GNU General Public License for more details.
  26 # You should have received a copy of the GNU General Public License
  27 # along with this program; if not, write to the Free Software
  28 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
  29 # MA 02110-1335, USA.
  30 #=====================================================================
  31 #
  32 # this is the default code for the Check package
  33 #
  34 #=====================================================================
  35
  36 use strict;
  37
  38 sub init {
  39   my $self = shift;
  40
  41   %{ $self->{numbername} } = (0      => 'Zero',
  42                               1      => 'One',
  43                               2      => 'Two',
  44                               3      => 'Three',
  45                               4      => 'Four',
  46                               5      => 'Five',
  47                               6      => 'Six',
  48                               7      => 'Seven',
  49                               8      => 'Eight',
  50                               9      => 'Nine',
  51                               10     => 'Ten',
  52                               11     => 'Eleven',
  53                               12     => 'Twelve',
  54                               13     => 'Thirteen',
  55                               14     => 'Fourteen',
  56                               15     => 'Fifteen',
  57                               16     => 'Sixteen',
  58                               17     => 'Seventeen',
  59                               18     => 'Eighteen',
  60                               19     => 'Nineteen',
  61                               20     => 'Twenty',
  62                               30     => 'Thirty',
  63                               40     => 'Forty',
  64                               50     => 'Fifty',
  65                               60     => 'Sixty',
  66                               70     => 'Seventy',
  67                               80     => 'Eighty',
  68                               90     => 'Ninety',
  69                               10**2  => 'Hundred',
  70                               10**3  => 'Thousand',
  71                               10**6  => 'Million',
  72                               10**9  => 'Billion',
  73                               10**12 => 'Trillion',);
  74
  75 }
  76
  77 sub num2text {
  78   my ($self, $amount) = @_;
  79
  80   return $self->{numbername}{0} unless $amount;
  81
  82   my @textnumber = ();
  83
  84   # split amount into chunks of 3
  85   my @num = reverse split //, $amount;
  86   my @numblock = ();
  87   my @a;
  88   my $i;
  89
  90   while (@num) {
  91     @a = ();
  92     for (1..3) {
  93       push(@a, shift(@num));
  94     }
  95     push(@numblock, join(" ", reverse @a));
  96   }
  97
  98   while (@numblock) {
  99
 100     $i   = $#numblock;
 101     @num = split(//, $numblock[$i]);
 102
 103     if ($numblock[$i] == 0) {
 104       pop @numblock;
 105       next;
 106     }
 107
 108     if ($numblock[$i] > 99) {
 109
 110       # the one from hundreds
 111       push(@textnumber, $self->{numbername}{ $num[0] });
 112
 113       # add hundred designation
 114       push(@textnumber, $self->{numbername}{ 10**2 });
 115
 116       # reduce numblock
 117       $numblock[$i] -= $num[0] * 100;
 118
 119     }
 120
 121     $numblock[$i] *= 1;
 122
 123     if ($numblock[$i] > 9) {
 124
 125       # tens
 126       push(@textnumber, $self->format_ten($numblock[$i]));
 127     } elsif ($numblock[$i] > 0) {
 128
 129       # ones
 130       push(@textnumber, $self->{numbername}{ $numblock[$i] });
 131     }
 132
 133     # add thousand, million
 134     if ($i) {
 135       my $num = 10**($i * 3);
 136       push(@textnumber, $self->{numbername}{$num});
 137     }
 138
 139     pop(@numblock);
 140
 141   }
 142
 143   join(' ', @textnumber);
 144
 145 }
 146
 147 sub format_ten {
 148   my ($self, $amount) = @_;
 149
 150   my $textnumber = "";
 151   my @num        = split(//, $amount);
 152
 153   if ($amount > 20) {
 154     $textnumber = $self->{numbername}{ $num[0] * 10 };
 155     $amount     = $num[1];
 156   } else {
 157     $textnumber = $self->{numbername}{$amount};
 158     $amount     = 0;
 159   }
 160
 161   $textnumber .= " " . $self->{numbername}{$amount} if $amount;
 162
 163   $textnumber;
 164
 165 }
 166
 167 1;
 168