主题：请网友参加讨论用行动，支持、理解、尊敬答题义工（关于 myww 先生的复贴）
cbl518
[专家分：57140] 发布于 2007-10-21 02:05:00
[url=http://www.programfan.com/club/post-254780.html]点击看原贴：我的答贴在 5楼 myww 先生的复贴在 7 楼。
该程序运行在 vfp 9 环境下，
4楼是运行在 vfp 6 环境下[/url]
[color=0000FF][size=3]敬请各位请网友运行下面代码：[/size][/color]
[color=FF0000]*cbl518老师的程序，如果我赋值“剩余数量=53.035”，显示的大写是零吨。若将剩余数量直接改为53.035，则大写显示“伍拾叁点零叁伍吨”，是我需要的字符。[/color]
剩余数量=53.035 [color=FF0000]&&放在这个位置不行[/color]
LOCAL c数,c名,大写,c1
c数="零壹贰叁肆伍陆柒捌玖"
c名="拾佰仟万"
大写=""
*剩余数量=53.035 [color=FF0000]&&放在这个位置还是不行[/color]
c1=LTRIM(STR(INT(剩余数量),6))[color=FF0000] &&将剩余数量改为53.035就行[/color]
IF VAL(c1)=0
大写="零"
ELSE
FOR i=1 TO LEN(c1)
大写=IIF(INT(VAL(SUBSTRC(c1,i,1)))=0,大写,大写+SUBSTRC(c数,INT(VAL(SUBSTRC(c1,i,1)))+1,1)+SUBSTRC(c名,LEN(c1)-i,1))
ENDFOR
ENDIF
c1=ALLTRIM(STR(剩余数量%1,4,3),1,"0") &&将剩余数量改为53.035就行
IF VAL(c1)>0
大写=大写+CHRTRANC(c1,'.0123456789','点'+c数)
ENDIF
大写=大写+"吨"
*REPLACE DX WITH 大写
?大写
最后更新于：2007-10-21 07:54:00
回复列表 （共41个回复）
11 楼
myww [专家分：1190] 发布于 2007-10-21 16:35:00
这是我在《这个三位小数转换成大写有点烦，请支招捷径》2007.10.21.16：06的回帖：
cbl518老师：
首先，接受您真挚而严厉的批评。
我心里非常清楚，只要我发的帖子，您都及时地为我出主意想办法，为我解决了好几个问题，我非常感激。我学习数据库确有好多年（从1995年开始学习DBASE3)，但这只是业余爱好，没有时间潜心钻研。我从事的工作是企业管理，有时用得着数据库。更由于我喜欢这个，所以编点程序以解决工作之需。但我的水平很差，就是编的程序也是依葫芦画瓢。从我发帖您都看得出，尽是些浅薄的、基础方面的问题，绝对没有检验老师们点子正确与否的意思。每次老师们回复的程序我都要在VFP环境中运行一下，看是否通过，然后才用在我工作的程序上。
的确，我昨天晚上在运行您5楼发布的程序时，确实出现了我在7楼出现的那些问题。但是现在我又运行5楼的程序，确实是对的。感谢您，敬爱的老师，都怪我昨晚运行5楼程序时粗枝大叶，才让我敬爱的老师生气了，对不起，向您--我敬爱的老师表示道歉。以后，在得到老师们的指教后，一定多运行几次，才回复，要更加重视老师们付出的心血。
谢谢您，我敬爱的老师！
在此，再次对CBL518老师的批评表示诚恳接受！并向老师表示道歉！同时感谢所有老师对我的帮助！
谢谢！
12 楼
jinlonggao [专家分：17130] 发布于 2007-10-21 17:16:00
MOZ先生理论水平很高，说起话来一套一套的，这不是这个贴子才表现出来的，以前就表现出色，有才啊！我就喜欢有才的人！
myww的贴子果然如我所想，话说得很中肯，从得分来看chibl老师是很满意的！我要说的是myww与我也有缘，同是ＶＦＰ的爱好者，同是从１９９５年才开始学的，同是从dBaseIII学起，所不同的是，myww从事的是企业管理，而我是事业单位的管理，我老是埋怨事业单位不讲成效，我的VFP技术得不到重用，myww应该很幸运，VFP才能一定能得到尽情的施展！
我有一个电脑拔号程序，只是简单的功能，我想再完善一些，可惜碰到了拦路虎，经过这么长时间了解，我相信chibl老师一定能帮我实现愿望，就想将自已的拙作发给chibl老师，希望帮忙，也不管老师愿不愿意，我这就发，请chibl老师查收．
13 楼
moz [专家分：37620] 发布于 2007-10-21 17:21:00
人就喜欢高帽子,我也不例外,唉......无奈......给人家套了帽子,啥都说不出来......只好两眼泪汪汪:天啊,要是我的领导有你那么开明就好了.
14 楼
myww [专家分：1190] 发布于 2007-10-21 18:19:00
[size=3][color=FF0000]高老师，您好！[/color][/size]
[size=2] [color=0000FF]感谢您和cbl518老师的理解，在此，再次表示对老师的敬意！谢谢您们！
我天生喜好理科，但生不逢时，没有学到理科，却在部队的日子学了文科。回地方
后又在企业，仍没能干我喜欢干的事。好在如工资发放、水电管理、商品信息等还能用
上一点。在这前十几年，全是依别人的程序来为我所用，有时为了一个问题思索万千，
不得其解。在前一个多月，我才发现了这样一个相互交流的绝好平台，得到了这么多恩
师的指教，很是开心。但由于我的粗枝大叶，还使cbl518老师心里不爽，实在内疚啊。
感谢诸多老师和cbl518老师的幽默，才使cbl518老师的心情好一些。
再次感谢老师们的教导！[/color][/size]
15 楼
xyzz008 [专家分：140] 发布于 2007-10-21 20:06:00
各位老师好！自从今年来公司要我学用VF编程，我在论坛上真的像找到了救星一样，每次有了问题到这上面一问不久就会有回答，给我带来了很大的帮助同时也学到了不少的知识，特别要感谢的就是CBL老师无私的精神，他总是不厌其烦的回答我们的问题，我们都从内心感激他。再次感谢CBL老师以及其他老师。谢谢
16 楼
Y4587 [专家分：100] 发布于 2007-10-21 20:17:00
十分尊敬 cbl518老师，不过我以为这里都是年轻人呢。还有老一辈的老师，我说知识这么多，看来我这岁数这么个破水平还有救。再次感谢cbl518老师，以及所有专家们。
17 楼
Y4587 [专家分：100] 发布于 2007-10-21 20:21:00
另外有时候，就是一个没有注意的问题要搞一天。。呵呵。他可能是没有发现。老师别生气。
18 楼
moz [专家分：37620] 发布于 2007-10-21 21:14:00
各位老师好！自从来到这个论坛,得到很多尊敬的老师和可爱的同学们的热心帮助,我在论坛上真的像找到了救星一样，每次有了问题到这上面一问不久就会有回答，给我带来了很大的帮助同时也学到了不少的知识，特别要感谢的就是CBL老师无私的精神，他总是不厌其烦的回答我们的问题，我们都从内心感激他。再次感谢CBL老师以及高老师陈老师乌老师雅老师种子老师李老师林老师张老师王老师何老师周老师马老师梁老师赵老师钱老师孙老师等等其他老师。谢谢!十分尊敬 cbl518老师，不过我以为这里都是年轻人呢。还有老一辈的老师，我说知识这么多，看来我这岁数这么个破水平还有救。再次感谢cbl518老师，以及所有专家们。经过老师们专家们领导的指点,得到长辈们前辈们的关怀,让我在这个热心的论坛版块中学习快速进步,这与专家们老师们高手们高脚们老手们同学们的努力和热情是分不开的,在这个阳光的环境中,使我的知识茁壮成长,事半倍功,学得非常快非常方便非常容易,平常不懂的不认识的不会的不晓得的问题和困难和需求都得到大家男女老少贵宾们的点击和帮助,使得我们的学习热情空前高涨,在这个绝好的平台上,得到专家们高手们老手们老狐狸们的叽叽喳喳叽哩咕噜噼呖啪嘞啰哩啰嗦大半天废话都不知道在干嘛.
19 楼
user886633 [专家分：2400] 发布于 2007-10-21 21:25:00
为了论坛更聚人气，让我们一起努力。
20 楼
yjr3032570 [专家分：3360] 发布于 2007-10-21 21:47:00
大家不要把cbl518老师的脾气宠坏了,这样不好!论编程技巧和助人精神没得说!如果老师的脾气好一点,敢说话的人会更多一点，论谈也将会更开明一点!!
我来回复
您所在位置：