怎样将数字的年月日转换成文字的年月日????? 怎样将数字的年月日转换成文字的年月日?????例如:2002-05-06 要转换成 贰零零贰年伍月陆日要怎么办? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这比货币大小写转换要简单写。先按你的格式把分隔符转换成年、月、日,再把数字小写转大写。函数候补:StringReplace,用法简单。 (续)<< 例如: // s := 要转换的小写字符串 s := StringReplace(s, '-', '年', []); s := StringReplace(s, '-', '月', []); s := StringReplace(s, '0', '零', [rfReplaceAll]); s := StringReplace(s, '1', '壹', [rfReplaceAll]); s := StringReplace(s, '2', '贰', [rfReplaceAll]); s := StringReplace(s, '3', '叁', [rfReplaceAll]); // ... 其余类似 s := s + '日';至于其他细节问题你再考虑,如对于2002-01-09中的月日部分0的取舍等。 关于FileWrite的问题 请问如何可以在TEdit控件中输入多行文本? 招全/兼职Delphi网页数据采集系统制作人员 关于登陆窗体,退出是出错的问题,,好久了,想不出办法 请教个数据统计的问题! 大家快点帮我呵呵!!!急死了呵!!!(能帮我的马上结帐给分呵!) 一个简单的图像问题 怎么注册一个COM+服务器,客户端怎么连接COM+服务器~ 三层下的怪问题. 全局变量在哪里声明?? 怎样调用VC写的DLL? 菜鸟问题!如何卸载组件?
先按你的格式把分隔符转换成年、月、日,
再把数字小写转大写。
函数候补:StringReplace,用法简单。
<< 例如:
// s := 要转换的小写字符串
s := StringReplace(s, '-', '年', []);
s := StringReplace(s, '-', '月', []);
s := StringReplace(s, '0', '零', [rfReplaceAll]);
s := StringReplace(s, '1', '壹', [rfReplaceAll]);
s := StringReplace(s, '2', '贰', [rfReplaceAll]);
s := StringReplace(s, '3', '叁', [rfReplaceAll]);
// ... 其余类似
s := s + '日';
至于其他细节问题你再考虑,如对于2002-01-09中的月日部分0的取舍等。