| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 将阿拉伯数字转换为小写中文格式 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11933) |
| -- 作者：雨中的泪 -- 发布时间：2011/8/17 12:24:00 -- 将阿拉伯数字转换为小写中文格式 将阿拉伯数字转换为小写中文格式,如何实现。 谢谢 |
| -- 作者：狐狸爸爸 -- 发布时间：2011/8/17 12:28:00 -- 没有小写中文格式，只有大些中文格式。 我想有有了大写，想转为小写，应该难不倒你。 |
| -- 作者：雨中的泪 -- 发布时间：2011/8/17 12:31:00 -- 1 一 2 二 . . . 22 二十二 |
| -- 作者：雨中的泪 -- 发布时间：2011/8/17 12:32:00 -- 如何实现？谢谢 |
| -- 作者：狐狸爸爸 -- 发布时间：2011/8/17 14:23:00 -- 不过就是把壹替换为一，把贰替换为二而已 |
| -- 作者：雨中的泪 -- 发布时间：2011/8/17 15:38:00 -- 还要判断位数 |
| -- 作者：狐狸爸爸 -- 发布时间：2011/8/17 15:47:00 -- Dim s1 As String = "一二三四五六七八九十百千万" Dim s2 As String = "壹贰叁肆伍陆柒捌玖拾佰仟万" Dim s3 As String = CUNumber(123456) For i As Integer =0 To s1.Length - 1 s3 = s3.replace(s2(i),s1(i)) Next output.show(s3) [此贴子已经被作者于2011-8-17 15:47:46编辑过]
|
| -- 作者：ddh5856 -- 发布时间：2018/1/24 15:42:00 -- CLNum 将阿拉伯数字转换为中文小写格式，只能处理整数。 语法 CLNum(Value) Value：要转换的阿拉伯数字。 例如： Output.Show(CLNum(123)) 输出为：一二三 |