vfp-自定义函数
lygcw9602
这个作者很懒,什么都没留下…
展开
-
VFP中取得汉字的简拼或全拼
PARAMETERS C,N**** 如果N=1 转换为简拼,N=2 转换为全拼*OLDGZQ=SELECT() && 保存当前工作区STORE "" TO CPY,ZFFOR I=1 TO LEN(ALLTRIM(C)) IF ASC(SUBSTR(ALLTRIM(C),I,1))>128 ZF=SUBSTR(ALLTRIM(C),原创 2012-01-20 11:24:30 · 2273 阅读 · 1 评论 -
中文日期的生成方法[VFP6.0代码]
*********************************** 中文日期的生成方法[VFP6.0代码] ***********************************CLEARdDate=DATE()* 年?CHRTRANC(TRANSFORM(YEAR(dDate)),[0123456789],[〇一二三四五六七八九])+[年]* 月lcMonth原创 2014-03-23 08:51:36 · 1225 阅读 · 0 评论 -
人民币小写转大写[修正版]
PARAMETERS RMBIF VARTYPE(RMB)!=[N] OR LEN(TRANSFORM(INT(RMB*100)))>15 MESSAGEBOX([非数值型数据或数据长度超出范围],64,[系统信息]) RETURN []ENDIFRMB=TRANSFORM(INT(RMB*100))NLEN=LEN(RMB)DXSJ=[零壹贰叁肆伍陆柒捌玖原创 2012-09-23 12:26:10 · 735 阅读 · 0 评论 -
去掉小数点后多余的0,VFP9.0专用
PARAMETERS NUMIF VARTYPE(NUM)="N" RETURN IIF("."$TRANSFORM(NUM),RTRIM(TRANSFORM(NUM),"0"),TRANSFORM(NUM))ELSE MESSAGEBOX("非数值型数据",64,"系统信息") RETURNENDIF原创 2012-08-30 14:16:52 · 1946 阅读 · 0 评论 -
数字日期转换为中文文字日期
CLEAR*----年C_YEAR=CHRTRANC(TRANSFORM(YEAR(DATE())),"0123456789","〇一二三四五六七八九")+"年"*----月CMONTH=TRANSFORM(MONTH(DATE()))CMONTH1=IIF(RIGHT(CMONTH,1)="0","",RIGHT(CMONTH,1))C_MONTH=IIF(LEN(CMO原创 2012-05-13 12:57:33 · 1753 阅读 · 0 评论 -
倒序取字符串函数
PARAMETERS cCLEARP=SPACE(0)I=1DO WHILE I<=LEN(C) x=ASC(SUBSTR(C,I,1)) IF x>127 P=SUBSTR(C,I,2)+P I=I+1 ELSE P=SUBSTR(C,I,1)+P ENDIF I=I+1ENDDO *原创 2012-02-19 18:06:30 · 1926 阅读 · 0 评论 -
日期转大写函数
PARAMETERS DDATEB="零壹贰叁肆伍陆柒捌玖"A=DTOS(DDATE)STORE "" TO C,D,EFOR I=1 TO LEN(A) N=VAL(SUBSTR(A,I,1)) IF BETWEEN(I,1,4) C=C+SUBSTR(B,N*2+1,2)+IIF(I=4,"年","")原创 2012-01-20 11:10:03 · 1947 阅读 · 0 评论 -
身份证第18位校验码验证
* 函数功能:身份证第18位校验码验证**********************************************************PARAMETER SFZHMDYZ="79X584216379X5842" &&与身份证前17位相对应的码。X代表10YZZ="0123456789X" &&X代表10XYM="10X98765432" &&校验码原创 2012-01-22 02:41:49 · 1785 阅读 · 0 评论 -
如何计算年龄
**************************************** 函数名称:JCNL* 函数功能:检查年龄是否周岁***************************************PARAMETERS DDATENL=YEAR(DATE())-YEAR(DDATE)+IIF(MONTH(DATE())-MONTH(DDATE)>0,0,IIF(DAY原创 2012-01-14 14:51:25 · 1369 阅读 · 2 评论 -
返回设定日期对应月份的上月月初(末)日期
******************************************** 函数名称:* 函数功能:返回设定日期对应月份的上月月初日期*******************************************PARAMETERS dDate RETURN GOMONTH(dDate-Day(dDate)+1,-1)*****************原创 2012-01-23 13:39:41 · 863 阅读 · 0 评论 -
阿拉伯数字转人民币大写测试版
SET CONSOLE OFF text说明整数位:最多12位,小数位:最多2位调用方法:rmbdx(100000000000.30)endtextMessageBox(rmbdx(100200000000.30))Function rmbdxlparameters count1z1="仟佰拾亿仟佰拾万仟佰拾元角分"z2="零壹贰叁肆伍陆柒捌玖"lcstr=Alltrim(原创 2015-02-02 19:23:19 · 991 阅读 · 0 评论