获取数值型数据的整数位数及小数位数

a=1234.567800 a=alltrim(padl(a,20," ")) &&VFP中数值型数据有效长度不会超过20位 ? "整数位数:",len(JUSTSTEM(a)) ? "小数位数:",len(JUSTEXT(a))
2016-01-12 09:27 | 1384次阅读 | 0评

中文数字转字符数字

CLEAR cStr="第一百零七章 好事多磨" =ALINES(Astr,cStr,"第","章") nLen=0 cLstr="" cRstr="" cStr1=astr[2] * 左取两个字符 IF LEFT(cStr1,2)="十" AND LEN(cStr1)>2 cLstr="1" cStr1=cLstr+SUBSTR(astr[2],3) ENDIF * 右取两个字符 DO CASE CASE RIGHT(cStr1,2)="十" AND LEN...
2015-08-21 21:28 | 1677次阅读 | 0评

VFP将指定文件夹下指定类型的文件添加到数据表中

以DBF文件为例 create cursor tt (vfile c(20)) ncnt=adir(aa,"*.dbf") b=1 append from array aa[b,1] browse list memory like aa
2015-05-09 21:56 | 903次阅读 | 0评

数值型数据转日期型数据

有这么一个数值型数据 Num=2015.02 转换为日期型数据:2015-02-01 Set Date Ansi Set Century ON Set Mark To "-" ? Date(Int(Num),(Num-Int(Num))100,1) ? Date(Int(Num),mod(Num100,100),1...
2015-04-09 12:08 | 528次阅读 | 0评

快速计算字符串中有分隔符的数字之和的方法

a="1,2,3,4" ?evaluate(chrtran(a,",","+"))
2015-03-21 13:44 | 726次阅读 | 0评

随机生成1-N之间的N个不重复数据的方法

Clear Rand(-1) lnNum=10 &&生成随机数个数 Dimension nStr[lnNum] N=0 Do While n<lnNum    nItem = Ceiling(lnNum*Rand())    If Ascan(nStr,nItem)=0        n...
2015-03-17 14:17 | 987次阅读 | 0评

区位码生成程序

NOTE 区位码生成程序 CREATE CURSOR T (S N(2)) FOR I=1 TO 94 INSERT INTO T VALUES (I) ENDFOR SELECT PADL(A.S,2,[0])+PADL(B.S,2,[0]) AS QWM,CHR(160+A.S)+CHR(160+B.S) HZ,; TRANSFORM(ASC(CHR(160+A.S)+CHR(160+B.S))) NASC FROM T A INNER JOIN T B ON A.S<=B.S OR A.S...
2015-03-13 14:31 | 778次阅读 | 0评

去掉小数点后面的“0”

? quling(123.00) ? quling(123.100) ? quling(123.010) function quling Parameters lenum lcnum=alltrim(padl(lenum,16," ")) do while right(lcnum,1)="0" lcnum=left(lcnum,len(lcnum)-1) enddo if len(justext(lcnum))=0 lcnum=chrtran(lcnum,".","") endif ...
2015-02-28 12:17 | 476次阅读 | 0评
浏览172829次
最新评论