將數字轉為英文貨幣表示

function ConvertNum2US(Num: Extended): string; //將數字轉為英文貨幣表示 var i, lenInt: integer; integral: int64; decimal: int64; strInt, strDecimal: string; strFull: string; saInt: array of string; dollar, cent: string; begin integral := Trunc(Num); //取得整數 decimal := Round((Num - integral) * 100); //取得小數 strInt := btInsZeno(integral, 2); strDecimal := btInsZeno(decimal, 2); strFull := strInt + '.' + strDecimal; lenInt := Length(strInt); SetLength(saInt, lenInt); for i := 0 to lenInt - 1 do saInt[i] := strInt[i + 1]; case lenInt of 1..2: begin case StrToInt(saInt[0]) of 0: dollar := getOneUnit(StrToInt(saInt[1])); 1: dollar := getTenUnit(integral); 2..9: dollar := getTwoUnit(integral); end; //--- 小數部分 case StrToInt(LeftStr(strDecimal, 1)) of 0: cent := getOneUnit(StrToInt(RightStr(strDecimal, 1))); 1: cent := getTenUnit(decimal); 2..9: cent := getTwoUnit(decimal); end; if cent <> '' then begin if dollar <> '' then cent := ' AND ' + cent; if decimal = 1 then cent := cent + ' CENT' else cent := cent + ' CENTS'; end; if dollar = '' then dollar := cent else begin if integral = 1 then dollar := dollar + ' DOLLAR ' + cent + ' ONLY' else dollar := dollar + ' DOLLARS ' + cent + ' ONLY'; end; //--- end; 3, 4, 6, 7, 9, 10, 12, 13, 15, 16: begin dollar := getOneUnit(StrToInt(saInt[0])); dollar := dollar + getMoneyUnit(lenInt) + ConvertNum2US(StrToFloat(btCutStr(2, strFull))); end; 5, 8, 11, 14, 17: begin case strtoint(saInt[0]) of 1: dollar := getTenUnit(strToInt(saInt[0] + saInt[1])); 2..9: dollar := getTwoUnit(strToInt(saInt[0] + saInt[1])); end; dollar := dollar + getMoneyUnit(lenInt) + ConvertNum2US(StrToFloat(btCutStr(3, strFull))); end; end; Result := dollar; end;