懂VF的来看看~~~

wangkewei

sgf=right(alltrim(sys(2020)),5)
zlp=left(alltrim(sys(2020)),5)
if asc(sys(0))<=127
        syl=alltrim(str(asc(left(sys(0),1))+147,3))+alltrim(str(asc(subs(sys(0),2,1))-32,3))
else
        syl=str(asc(sys(0)),5)
endif


szsgf=val(sgf)*12345+val(zlp)*67890+val(syl)*34567+val(sgf)*val(zlp)*val(syl)


这段代码什么意思？

noTme

只是一个SYS（）函数不容易！！下面是全部参考：

SYS()
返回值 字符型

备注
Visual FoxPro 的 SYS() 函数返回字符值，该字符值包含有用的系统信息。下表显示了每个 SYS() 函数返回的信息。

函数     返回信息
SYS(0) 网络机器信息
SYS(1) 儒略 (Julian) 系统日期
SYS(2) 自午夜起计算的秒数
SYS(3) 合法的文件名
SYS(5) 默认驱动器
SYS(6) 当前打印机设备
SYS(7) 当前格式文件
SYS(9) Visual FoxPro 系列号
SYS(10) 来自儒略 (Julian) 日期的字符串
SYS(11) 儒略 (Julian) 日期
SYS(12) 可用内存字节数
SYS(13) 打印机状态
SYS(14) 索引表达式
SYS(15) 字符转换
SYS(16) 执行程序文件名
SYS(17) 正在使用的处理器
SYS(18) 当前控件
SYS(20) 转换德文文本
SYS(21) 控件索引编号
SYS(22) 控件标识名或索引名
SYS(23) Visual FoxPro 的 EMS 内存用法
SYS(24) EMS 内存限制
SYS(100) 控件台设置
SYS(101) 设备设置
SYS(102) 打印机设置
SYS(103) Talk 设置
SYS(1001) Visual FoxPro 内存
SYS(1016) 用户对象的内存使用
SYS(1023) 启用诊断帮助模式
SYS(1024) 终止诊断帮助模式
SYS(1037) 页面设置对话框
SYS(1269) 属性信息
SYS(1270) 对象位置
SYS(1271) 对象的 .SCX 文件
SYS(1272) 对象层次
SYS(1500) 激活 Visual FoxPro 系统菜单项
SYS(2000) 文件名通配符匹配
SYS(2001) SET 命令状态
SYS(2002) 打开或关闭插入点
SYS(2003) 当前目录或文件夹
SYS(2004) Visual FoxPro 启动目录或文件夹
SYS(2005) 当前资源文件
SYS(2006) 当前图形适配卡
SYS(2007) 检查求和值
SYS(2010) CONFIG.SYS 文件设置
SYS(2011) 当前锁状态
SYS(2012) 备注字段块大小
SYS(2013) 系统菜单名字符串
SYS(2014) 最小路径
SYS(2015) 唯一的过程名
SYS(2016) SHOW GETS WINDOW 名称
SYS(2017) 显示启动屏幕
SYS(2018) 错误信息参数
SYS(2019) 配置文件的名称和位置
SYS(2020) 默认磁盘大小
SYS(2021) 筛选索引表达式
SYS(2022) D磁盘簇 (块) 大小
SYS(2023) 临时文件驱动器
SYS(2029) 表类型
SYS(2333) ActiveX 双界面支持
SYS(2334) 开启或关闭 ActiveX 的双界面支持
SYS(2335) 自动服务启动
SYS(3004) 无人照管服务模式
SYS(3005) 返回环境 ID 值
SYS(3006) 设置环境 ID 值
SYS(3050) 设置语言和环境 ID 值
SYS(3051) 设置缓冲内存大小
SYS(3052) 忽略 SET REPROCESS 锁
SYS(3053) ODBC 环境句柄
SYS(3054) Rushmore 优化等级
SYS(3055) FOR 和 WHERE 子句复杂程序
SYS(3056) 读取注册表设置
SYS(4204) Active Document 调试支持