Delphi 人民币大小写转换
Delphi 人民币大小写转换
时间:2011-5-24 来源:yang 作者: peng 点击: 745 次
function TPrintfrm.NumToChar(n: Real): wideString; // 可以
到万亿,并可随便扩大
const
cNum: WideString = ‘零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟
佰拾万仟佰拾元角分‘;
cCha: array[0..1, 0..11] of string =
((‘零仟‘,‘零佰‘,‘零拾‘,‘零零零‘,‘零零‘,
‘零亿‘,‘零万‘,‘零元‘,‘亿万‘,‘零角‘,‘零分‘,‘零整‘),
( ‘零‘,‘零‘,‘零‘,‘零‘,‘零‘,‘亿‘,‘万‘,‘元‘,‘亿‘,‘零‘,‘整‘,‘整‘));
var
i: Integer;
sNum :WideString;
begin
Result := ‘‘;
//n := Round(n*10)/10;
//FormatFloat(‘0.0‘,)
sNum := FormatFloat(‘0‘,n*100);