| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2217 人关注过本帖
标题:vfp中年月转大写,用什么函授,求回复。
只看楼主 加入收藏
蝈蝈大叔
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2022-1-12
结帖率:0
收藏
已结贴  问题点数:20 回复次数:17 
vfp中年月转大写,用什么函授,求回复。
现在做报表打印,其中,字符型的阿拉伯数字年月日,需转换成大写打印,如何解决。如   1984  需要打印成一九八四
搜索更多相关主题的帖子: vfp 打印 转换 大写 年月 
2022-01-12 09:26
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:66
帖 子:1049
专家分:2565
注 册:2015-12-30
收藏
得分:4 
这是要打证书啊
这种函数好像没见到现成的,自己做一个吧
2022-01-12 09:36
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:66
帖 子:1049
专家分:2565
注 册:2015-12-30
收藏
得分:0 
程序代码:
FUNCTION numtoc
LPARAMETERS Pnum
LOCAL xretu,xcchr,ii,xnum,xpos
xcchr = '一二三四五六七八九0'

xretu = ''
xnum = TRANSFORM(Pnum)
FOR ii=1 TO LEN(xnum)
    xpos = VAL(SUBSTR(xnum,ii,1))
    IF xpos=0
        xpos = 10
    ENDIF
    
    xretu = xretu + SUBSTR(xcchr,xpos*2-1,2)
ENDFOR

RETURN xretu


其中的0如果不合适可以修改 xcchr = '一二三四五六七八九0' 中的0的字符

[此贴子已经被作者于2022-1-12 09:46编辑过]

2022-01-12 09:44
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10527
专家分:42899
注 册:2014-5-20
收藏
得分:4 
程序代码:
ALINES(arr,"○,一,二,三,四,五,六,七,八,九",",")
?fun("1984")
?fun("1990")

FUNCTION fun(ds)
    ret = ""
    FOR i=1 TO LEN(ds)
        ch = SUBSTR(ds,i,1)
        IF BETWEEN(ch,"0","9")
            ret = ret + arr[VAL(ch)+1]
        ELSE
            RETURN ""
        ENDIF
    ENDFOR 
    RETURN ret
ENDFUNC
2022-01-12 10:47
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9781
专家分:26837
注 册:2012-2-5
收藏(2)
得分:4 
?Chrtranc(Transform(1980),"0123456789","〇一二三四五六七八九")+"年"

坚守VFP最后的阵地
2022-01-12 18:22
kangss
Rank: 6Rank: 6
等 级:贵宾
威 望:14
帖 子:218
专家分:464
注 册:2014-6-12
收藏
得分:4 
学习了!谢谢!
2022-01-13 15:58
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:66
帖 子:1049
专家分:2565
注 册:2015-12-30
收藏
得分:0 
5楼方法最简洁
2022-01-14 08:08
schtg
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:https://t.me/pump_upp
等 级:贵宾
威 望:67
帖 子:1526
专家分:2981
注 册:2012-2-29
收藏
得分:4 
学习啦,谢谢!
2022-01-14 12:23
huasinstamps
Rank: 2
等 级:论坛游民
帖 子:59
专家分:24
注 册:2017-6-1
收藏
得分:0 
学习了
2022-01-20 22:13
独木星空
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:777
专家分:680
注 册:2016-6-29
收藏
得分:0 
回复 楼主 蝈蝈大叔
我在Excel做过阿拉伯数字转换成汉语大写金额(到元,角分不用)

素数问题的解决是我学习编程永恒的动力。
2022-01-21 07:45
快速回复:vfp中年月转大写,用什么函授,求回复。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017757 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved