unit FrmCustom;

interface

uses
  SysUtils, Controls, Windows, Messages,TlHelp32;

var
  HttpURL: string = 'http://www.yxds.gov.cn/tax/rj/'; //網頁地址
//  HttpURL: string = 'http://194.1.1.1/tax/rj/'; //網頁地址
//  MoneyCaStr: string = '十億仟佰十萬千百十元角分'; //金額標題
  MoneyCaStr: string = '十億仟佰十萬千百十元角分'; //金額標題
  CurrentFP: string; //處于當前的發票
  AppPath: string; //本程序路徑
  DataPath: string; //數據庫路徑
  NowDate: TDate; //當前日期
  CurrenUser: String;  //當前用戶
  IsAdmin: Boolean;    //
  function NtoC(n0: real): string;   //數據轉換大小寫

implementation

//把數字轉為大寫人民幣

function NtoC(n0: real): string;
  function IIF(b: boolean; s1, s2: string): string;
  begin //本函數在VFP和VB中均為系統內部函數
    if b then IIF := s1 else IIF := s2;
  end;
const c = '零壹貳叁肆伍陸柒捌玖◇分角圓拾佰仟萬拾佰仟億拾佰仟萬';
var L, i, n, code: integer;
  Z: boolean;
  s, st, st1: string;
begin
  s := FormatFloat('0.00', n0);
  L := Length(s);
  Z := n0 < 1;
  for i := 1 to L - 3 do
  begin
    Val(Copy(s, L - i - 2, 1), n, code);
    st := IIf((n = 0) and (Z or (i = 9) or (i = 5) or (i = 1)), '', Copy(c, n * 2 + 1, 2))
      + IIf((n = 0) and ((i <> 9) and (i <> 5) and (i <> 1) or Z and (i = 1)), '', Copy(c, (i + 13) * 2 - 1, 2))
      + st;
    Z := (n = 0);
  end;
  Z := False;
  for i := 1 to 2 do
  begin
    Val(Copy(s, L - i + 1, 1), n, code);
    st1 := IIf((n = 0) and ((i = 1) or (i = 2) and (Z or (n0 < 1))), '', Copy(c, n * 2 + 1, 2))
      + IIf((n > 0), Copy(c, (i + 11) * 2 - 1, 2), IIf((i = 2) or Z, '', '整'))
      + st1;
    Z := (n = 0);
  end;
  for i := 1 to Length(st) do if Copy(st, i, 4) = '億萬' then Delete(st, i + 2, 2);
  NtoC := IIf(n0 = 0, '零', st + st1);
end;

end.