Search options

Thank you very much. I want to translate to Vietnamese language. I try to add 1 billion, 2 billion then result running is correct, but if I add 3 billion then result come out is not correct. Please help me to check.

function HundredAtATime(TheAmount: Extended): string;
begin
  Result := '';
  TheAmount := Abs(TheAmount);
  while TheAmount > 0 do
  begin
      if TheAmount >= 2000000000 then                 /// Note: If input more than 2,2 billion then program not running correct
    begin
      Result := Result + 'Hai tỷ ';
      TheAmount := TheAmount - 2000000000;
    end;
      if TheAmount >= 1000000000 then
    begin
      Result := Result + 'Một tỷ ';
      TheAmount := TheAmount - 1000000000;           ///I try to increase more than 1 billion, from 1 biilion to 2,2 billion program runing Ok
    end;

    if TheAmount >= 900 then
    begin
      Result := Result + 'Chín trăm ';
      TheAmount := TheAmount - 900;
    end;
....

Thank you very much for your answer. If in case using your software in some country need to using more than billion (Ex: 50 Billion) how to change in your script?