vfp-自定义函数
lygcw9602
这个作者很懒,什么都没留下…
展开
-
VFP中取得汉字的简拼或全拼
PARAMETERS C,N **** 如果N=1 转换为简拼,N=2 转换为全拼 *OLDGZQ=SELECT() && 保存当前工作区 STORE "" TO CPY,ZF FOR I=1 TO LEN(ALLTRIM(C)) IF ASC(SUBSTR(ALLTRIM(C),I,1))>128 ZF=SUBSTR(ALLTRIM(C),原创 2012-01-20 11:24:30 · 2320 阅读 · 1 评论 -
中文日期的生成方法[VFP6.0代码]
********************************** * 中文日期的生成方法[VFP6.0代码] * ********************************** CLEAR dDate=DATE() * 年 ?CHRTRANC(TRANSFORM(YEAR(dDate)),[0123456789],[〇一二三四五六七八九])+[年] * 月 lcMonth原创 2014-03-23 08:51:36 · 1246 阅读 · 0 评论 -
人民币小写转大写[修正版]
PARAMETERS RMB IF VARTYPE(RMB)!=[N] OR LEN(TRANSFORM(INT(RMB*100)))>15 MESSAGEBOX([非数值型数据或数据长度超出范围],64,[系统信息]) RETURN [] ENDIF RMB=TRANSFORM(INT(RMB*100)) NLEN=LEN(RMB) DXSJ=[零壹贰叁肆伍陆柒捌玖原创 2012-09-23 12:26:10 · 748 阅读 · 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 · 1967 阅读 · 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 · 1776 阅读 · 0 评论 -
倒序取字符串函数
PARAMETERS c CLEAR P=SPACE(0) I=1 DO 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+1 ENDDO *原创 2012-02-19 18:06:30 · 1965 阅读 · 0 评论 -
日期转大写函数
PARAMETERS DDATE B="零壹贰叁肆伍陆柒捌玖" A=DTOS(DDATE) STORE "" TO C,D,E FOR 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 · 1965 阅读 · 0 评论 -
身份证第18位校验码验证
* 函数功能:身份证第18位校验码验证 ********************************************************** PARAMETER SFZHM DYZ="79X584216379X5842" &&与身份证前17位相对应的码。X代表10 YZZ="0123456789X" &&X代表10 XYM="10X98765432" &&校验码原创 2012-01-22 02:41:49 · 1823 阅读 · 0 评论 -
如何计算年龄
*************************************** * 函数名称:JCNL * 函数功能:检查年龄是否周岁 *************************************** PARAMETERS DDATE NL=YEAR(DATE())-YEAR(DDATE)+IIF(MONTH(DATE())-MONTH(DDATE)>0,0,IIF(DAY原创 2012-01-14 14:51:25 · 1390 阅读 · 2 评论 -
返回设定日期对应月份的上月月初(末)日期
******************************************* * 函数名称: * 函数功能:返回设定日期对应月份的上月月初日期 ******************************************* PARAMETERS dDate RETURN GOMONTH(dDate-Day(dDate)+1,-1) *****************原创 2012-01-23 13:39:41 · 873 阅读 · 0 评论 -
阿拉伯数字转人民币大写测试版
SET CONSOLE OFF text 说明 整数位:最多12位,小数位:最多2位 调用方法:rmbdx(100000000000.30) endtext MessageBox(rmbdx(100200000000.30)) Function rmbdx lparameters count1 z1="仟佰拾亿仟佰拾万仟佰拾元角分" z2="零壹贰叁肆伍陆柒捌玖" lcstr=Alltrim(原创 2015-02-02 19:23:19 · 1005 阅读 · 0 评论