早年学习VFP时的一些涵数，正则表达式的应用，内存监测，日期转换，农历公历转换等

Function CheckExp(patrn) PRIVATE cStr cStr=patrn regEx = CreateObject("VBScript.RegExp") &&建立正则表达式对象 *!* regEx.Pattern = "^(?=.*\d)(?=.*[a-z])[a-zA-Z\d]{6,20}$" &&设置模式由数字或字母组成 regEx.Pattern="^(?!0(\d|\.0+$|$))\d+(\.\d{1,2})?$" *!* regEx.Pattern="^[A-Za-z0-9]+$" &&设置模式只能由数字或字母组成 regEx.IgnoreCase = .T. &&设置是否区分字符大小写 regEx.Global = .T. &&设置全局可用性 *!* Return regEx.Test(strng) &&执行搜索 RETURN regEx.Test(cStr) ENDFUNC