Перевод числа в пропись

[SashOkSerg]

Столкнулся с такой проблемой... я разработал программу которая печатает товарно-транспортную накладную (ТТН)... но в один прекрасный момент мне сказали что бланк ТТН изменился и теперь надо чтобы тоннаж кроме цифр также выводился и прописью... На одном из форумов я нашел рабочий код который переводит числа в рубли... я смог чуть его подправить и теперь он выводит это:



Но есть нюанс как видно на картинке он вместо двести килограмм вывел двадцать, + в поле я не могу ввести число 34,2 приходиться вводит через ctrl+v

код программы ниже:

PHP код:

#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
System::WideChar DecimalSeparator;
AnsiString edk(int bvk)
{
AnsiString res="";//возвращаемое значение
int q, r;//частное и остаток
q=div(bvk, 10).quot;
r=div(bvk, 10).rem;
if (q!=1)
{
 switch (r)
  {
   case 1: res="одна"; break;
   case 2: res="две"; break;
   case 3: res="три"; break;
   case 4: res="четыре"; break;
   case 5: res="пять"; break;
   case 6: res="шесть"; break;
   case 7: res="семь"; break;
   case 8: res="восемь"; break;
   case 9: res="девять"; break;
  }
}
else
 res="";
return (res);
}
//----------------
AnsiString des (int inp)
{
AnsiString res="";//возвращаемое значение
int q, r;//частное и остаток
q=div(inp, 10).quot;
r=div(inp, 10).rem;
if (q==0) return ("");
switch (q)
 {
  case 1:
  switch (r)
   {
    case 0: res="десять"; break;
    case 1: res="одиннадцать"; break;
    case 2: res="двенадцать"; break;
    case 3: res="тринадцать"; break;
    case 4: res="четырнадцать"; break;
    case 5: res="пятнадцать"; break;
    case 6: res="шестнадцать"; break;
    case 7: res="семнадцать"; break;
    case 8: res="восемнадцать"; break;
    case 9: res="девятнадцать"; break;
   }
  break;
  case 2: res="двадцать"; break;
  case 3: res="тридцать"; break;
  case 4: res="сорок"; break;
  case 5: res="пятьдесят"; break;
  case 6: res="шестьдесят"; break;
  case 7: res="семьдесят"; break;
  case 8: res="восемдесят"; break;
  case 9: res="девяносто"; break;
 }
return (res);
}
//-----------------
AnsiString kop (int bvk)
{
AnsiString res=des(bvk)+" "+edk(bvk);
if (res==" ")
 return("ноль кг.");
else
 return (res+" кг.");
}
//-------------------
AnsiString edr(int bvr)
{
AnsiString res="";//возвращаемое значение
int q, r;//частное и остаток
q=div(bvr, 10).quot;
r=div(bvr, 10).rem;
if (q!=1)
{
 switch (r)
  {
   case 1: res="один"; break;
   case 2: res="два"; break;
   case 3: res="три"; break;
   case 4: res="четыре"; break;
   case 5: res="пять"; break;
   case 6: res="шесть"; break;
   case 7: res="семь"; break;
   case 8: res="восемь"; break;
   case 9: res="девять"; break;
  }
}
else
 res="";
return (res);
}
//--------------------
AnsiString sot (int bvr)
{
AnsiString res="";
int q=div(bvr, 100).quot;
if (q!=0)
 {
  switch (q)
   {
    case 1: res="сто"; break;
    case 2: res="двести"; break;
    case 3: res="триста"; break;
    case 4: res="четыреста"; break;
    case 5: res="пятьсот"; break;
    case 6: res="шестьсот"; break;
    case 7: res="семьсот"; break;
    case 8: res="восемьсот"; break;
    case 9: res="девятьсот"; break;
   }
  return (res+" ");
 }
else
 return ("");
}
//---------------------
AnsiString tis (int bvr)
{
AnsiString res=sot((bvr%1000000)/1000)+des((bvr%100000)/1000)+" "+edk((bvr%100000)/1000);
if (res==" ")
 return("");
else
 return (res+" тыс.");
}
//----------------------
AnsiString rub (int bvr)
{
AnsiString res=tis(bvr)+" "+sot(bvr%1000)+des(bvr%100)+" "+edr(bvr%100);
if (res==" ")
 return("ноль кг.");
else
 return (res+" тон.");
}
//----------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//--------------------
int myround (double h)
{
if (h>=(int(h)+0.5))
 h=ceil(h);
else
 h=floor(h);
return (h);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString r, k;
r=k=0;
double bv=(Edit1->Text).ToDouble();//исходное число
int bvr, bvk;//рубли и копейки
bvr=bvk=0;
bvr=int(bv);
double h=0;
h=(bv-int(bv))*100;
bvk=myround(h);
k="";
r=rub(bvr);//рубли
k=kop(bvk);//копейки
Edit2->Text=r+" "+k;
k="";
}
//-----------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key)
{
if ((Key>='0') && (Key<='9'))
 return;
if (Key == DecimalSeparator)
 {
  if ((Edit1->Text).Pos(DecimalSeparator)!=0)
   Key=0;
  return;
 }
if (Key==VK_BACK)
 return;
if (Key==VK_RETURN)
 {
  Button1->SetFocus();
  return;
 }
Key=0;
}
//------------- 


На форме расположены Edit1, Edit2, Button1

[Serge_Bliznykov]

ну, очень похоже, что Вы взяли готовый и рабочий код, который переводил дробное число в рубли и копейки, бездумно заменили рубли на тонны, копейки на килограммы, совершенно не подумав о том, что в рубле 100 копеек (поэтому 34.2 это 34 рубля и ДВАДЦАТЬ копеек), а в тонне 1000 кг ( поэтому 34.2 это 34 тонны и ДВЕСТИ килограмм)

исправьте так:

h=(bv-int(bv))*1000; 
bvk=myround(h);

дисклеймер. я пишу прямо в браузере, код, разумеется, не проверял...

[SashOkSerg]

исправил, но программа теперь не видит число после запятой!

[SashOkSerg]

В функции kop изменил ряд:

PHP код:

AnsiString res=des(bvk)+" "+edk(bvk); 


на

PHP код:

AnsiString res=sot(bvk)+des(bvk%100)+" "+edk(bvk); 


и заработало... + нашел выход из ситуации почему не мог ввести запятую:

в свойствах Edit1 OnKeyPress дописал условие

PHP код:

(Key>='0') && (Key<='9') || (Key == ',') 


и сразу заработала запятая!

Спасибо за помощь!

[SashOkSerg]

Приходится, к сожалению, снова поднять эту неприятную тему. Столкнулся с такой проблемой - необходимо чтобы программа умела переводить в пропись числа такого формата (0,97 т. т.е. ноль т. дев'ятсот семьдесят кг.) На данный момент код переводит числа в пропись все что выше 1 т. и только десятую часть, а необходимо чтобы она переводила и сотую часть. Помогите пожалуйста доделать код чтобы программа переводила числа которые меньше "1 т." и сотую часть числа.

Исходник