#include <system.hpp>
#include <stdio.h>
#include <math.h>

void dt( AnsiString &str, int m1 , int m2, int m3, int flag )
{
    switch( m1 )
    {
        case  1 :
            str+="сто ";
            break;
        case  2 :
            str+="двести ";
            break;
        case  3 :
            str+="триста ";
            break;
        case  4 :
            str+="четыреста ";
            break;
        case  5 :
            str+="пятьсот ";
            break;
        case  6 :
            str+="шестьсот ";
            break;
        case  7 :
            str+="семьсот ";
            break;
        case  8 :
            str+="восемьсот ";
            break;
        case  9 :
            str+="девятьсот ";
            break;
    }
    if( m2 ==  0  || m2 >  1  )
    {
        if( m2 >  1  )
        {
            switch( m2 )
            {
                case  2 :
                    str+="двадцать ";
                    break;
                case  3 :
                    str+="тридцать ";
                    break;
                case  4 :
                    str+="сорок ";
                    break;
                case  5 :
                    str+="пятьдесят ";
                    break;
                case  6 :
                    str+="шестьдесят ";
                    break;
                case  7 :
                    str+="семьдесят ";
                    break;
                case  8 :
                    str+="восемьдесят ";
                    break;
                case  9 :
                    str+="девяносто ";
                    break;
            }
        }
        switch( m3 )
        {
            case  1 :
                if( flag ==  2  ) str+="одна ";
                else str+="один ";
                break;
            case  2 :
                if( flag ==  2  ) str+="две ";
                else str+="два ";
                break;
            case  3 :
                str+="три ";
                break;
            case  4 :
                str+="четыре ";
                break;
            case  5 :
                str+="пять ";
                break;
            case  6 :
                str+="шесть ";
                break;
            case  7 :
                str+="семь ";
                break;
            case  8 :
                str+="восемь ";
                break;
            case  9 :
                str+="девять ";
                break;
        }
    }
    else if( m2 ==  1  )
    {
        switch( m3 )
        {
            case  0 :
                str+="десять ";
                break;
            case  1 :
                str+="одиннадцать ";
                break;
            case  2 :
                str+="двенадцать ";
                break;
            case  3 :
                str+="тринадцать ";
                break;
            case  4 :
                str+="четырнадцать ";
                break;
            case  5 :
                str+="пятнадцать ";
                break;
            case  6 :
                str+="шестнадцать ";
                break;
            case  7 :
                str+="семнадцать ";
                break;
            case  8 :
                str+="восемнадцать ";
                break;
            case  9 :
                str+="девятнадцать ";
                break;
        }
    }
    if( flag ==  1  )
    {
        if( m3 ==  0  && m2 ==  0  && m1 ==  0  ) str+="";
        else if( m2 ==  1  )
        {
            str+="миллионов ";
        }
        else
        {
                if( m3 ==  1  ) str+="миллион ";
                else if( m3 >=  2  && m3 <=  4  ) str+="миллиона ";
                else str+="миллионов ";
        }
    }
    else if( flag ==  2  )
    {
        if( m3 ==  0  && m2 ==  0  && m1 ==  0  ) str+="";
        else if( m2 ==  1  )
        {
            str+="тысяч ";
        }
        else
        {
                if( m3 ==  1  ) str+="тысяча ";
                else if( m3 >=  2  && m3 <=  4  ) str+="тысячи ";
                else str+="тысяч ";
        }
    }
    else
    {
        if( m3 ==  0  && m2 ==  0  && m1 ==  0  ) str+="ноль рублей ";
        else if( m2 ==  1  )
        {
            str+="рублей ";
        }
        else
        {
                if( m3 ==  1  ) str+="рубль ";
                else if( m3 >=  2  && m3 <=  4  ) str+="рубля ";
                else str+="рублей ";
        }
    }
}

void MoneyToString( AnsiString &str, double money )
{
    int m1, m2, m3;
    int sum=money;
    unsigned char c;

    str="";

    m1=sum/ 100000000 ;
    m2=sum/ 10000000 -(sum/ 100000000 )* 10 ;
    m3=sum/ 1000000 -(sum/ 10000000 )* 10 ;
    dt( str, m1, m2, m3,  1  );

    m1=sum/ 100000 -(sum/ 1000000 )* 10 ;
    m2=sum/ 10000 -(sum/ 100000 )* 10 ;
    m3=sum/ 1000 -(sum/ 10000 )* 10 ;
    dt( str, m1, m2, m3,  2  );

    m1=sum/ 100 -(sum/ 1000 )* 10 ;
    m2=sum/ 10 -(sum/ 100 )* 10 ;
    m3=sum/ 1 -(sum/ 10 )* 10 ;
    dt( str, m1, m2, m3,  3  );

    c=str[ 1 ];
    c-= 32 ;
    str[ 1 ]=c;

    char buf[ 30 ];
    sprintf( buf, "%0.2f ", money );
    str=str+( strchr( buf, '.' )+ 1  )+" коп.";
}