Delphi Tips
0261 D1 D2 D3 D4 D5 D6 D7 3.1 95 98 作成: 1999/09/15 osamu rev 1.1 B1 B3 B4 B5 B6 B7 NT3 NT4 2K XP 更新: 1999/09/15 osamu 編集
漢数字で位取り表示
数字を漢数字で位取り表示(4桁単位)する関数を作ってみました。
function RhKnjNumber(const Num: Currency): string;
begin
Result := FormatFloat('####"兆"####"億"####"万"####円', Num);
while True do {余計な文字を取り去る}
if ByteType(Result, 1) = mbLeadByte then
Result := Copy(Result, 3, Length(Result) - 2)
else
Break;
end;
参照: [Delphi-ML:34500] <文字列> <PASCAL>
[新規作成] [最新の情報に更新]
How To
Lounge
KeyWords
Osamu Takeuchi osamu@big.or.jp
Tips
Delphi
Home