delphi 数字转换成中文

获取当前日期，日期为数字。将数字转换成中文。

function TForm1.GetCNDay():string;       //result是function默认的返回值变量
varstr,strYear,strMonth,strDay,e,n,s : string;year,month,day,v_index,v_len,i : Integer;
begine:='0123456789';n:='〇一二三四五六七八九';v_index:=1;Result:='';strYear:=formatDateTime('yyyy',Now());strMonth:= formatDateTime('mm',Now());strDay:= formatDateTime('dd',Now());year:=StrToInt(strYear);month:=StrToInt(strMonth);day:=StrToInt(strDay);if month<10 thenstrMonth:=IntToStr(month)elseif month =10 thenstrMonth:='十'elseif month>10 thenstrMonth:='十' + IntToStr(month-10);strMonth:=strMonth+'月';if day <10 thenstrDay:=inttostr(day)elseif(day = 10) thenstrDay:='十'elseif(day>10) and (day<20)thenstrDay:='十'+ inttostr(day-10)elseif(day = 20)thenstrDay:='二十'elseif(day>20) and (day < 30)thenstrDay:='二十'+ inttostr(day-20)elseif(day =30)thenstrDay:='三十'elseif(day=31)thenstrDay:='三十一';str:= strYear +'年'+ strMonth + strDay+'日';v_len:=Length(str);for i:=1 to v_len dobegins:=MidStr(str,i,1);if Pos(s,e)>0 thenResult:=Result+MidStr(n,Pos(s,e),1)elseResult:=Result+s;end;end;

delphi 数字转换成中文相关推荐

中文格式_财务必会Excel技巧，将数字转换成中文的5种方式
你还在纠结如何把数字转换成中文大小写吗?下面和大家一起来学习把数字转换成中文的5种方法. 方式一:NUMBERSTRING函数语法=NUMBERSTRING(数值,选项) 数值:被转换为中文字符串的 ...
js将数字转换成中文大写
//完成将 toChineseNum, 可以将数字转换成中文大写的表示,处理到万级别,例如 toChineseNum(12345),返回一万二千三百四十五.const toChinesNum = ( ...
C语言-如何将用户输入的金额数字转换成中文大写？
实战: 如何将用户输入的金额数字转换成中文大写? #include <stdio.h>int main() {// 输入金额转换成大写int money; // 输入数字int money ...
JavaScript：将输入的一串数字转换成中文大写，最高可写12位（千亿）
将输入的一串数字转换成中文大写,最高可写12位(千亿) 例:输入:10000,输出:壹万输入:10010,输出:壹万零壹拾源码: function toChineseBig(num) {// 将接 ...
将数字转换成中文大写的算法
//名称:ConvertSignCap //参数:number //返回:CapNumber //描述:将传入的单个数字转换成中文大写形式 //创建人:刘权 2004-11-16 ...
python数字转换成中文大写
python数字转换成中文大写代码 #-*- coding:utf-8 -*- count_map = {1:1, 2:10, 3:100, 4:1000, 5:10000} #用来统计传入数值的级 ...
Java实现将数字转换成中文大写
/** *程序功能:支持将仟亿数字转换成中文数字表示,如(110.12 转换成壹佰壹拾元壹角贰分) *算法思路:将数字,分成整数部分和小数部分(小数部分四舍五入到两位),分别进行转换,然后将转换后的结 ...
将数字转换成中文数字
将阿拉伯数字转换成中文数字,大家可以看我的测试数据,应该没有BUG. /** * 将数字转换成中文数字 * @author Prosper * */ public class IntToCN { pu ...
将数字转换成中文金额的大写形式
package com.unteck.fms.web.businessdata.controller; import org.springframework.beans.factory.annotat ...

delphi 数字转换成中文

delphi 数字转换成中文相关推荐

最新文章

热门文章