常用函数的用法

1、转换函数

? str(123.5678,8,2)     &&**123.57  *为空格

? str(123.5678,6,3)     &&123.57

? val("123.45")+100     &&223.45

? val("12a3.45")        &&12

? val("a1212a3.45")     &&0  第1个字符不是数字也不是+-号，返回0

set date to usa         &&设置日期的显示格式为美国日期格式

? ctod("04-16-05")      &&{^2005-4-16}

? ctod("04-16-05")+1    &&{^2005-4-17}

? dtoc(date())          &&将系统日期转换为字符格式

17.宏替换函数

x="123"

? &x+100                 && 223    &&相当于？ 123+100

? x+"100"                && 123100 

18.iif()函数

x=100

? iif(x>100,x-50,x+50)       &&150

? iif(x<0,-1,iif(x=0,0,1))   &&1

   19.数据类型测试函数type()、vartype()

? type("123")          &&N       

? type("04/06/09")     &&N

? type("time()")       &&C        

? vartype(123)         &&N

? vartype(“123”)         &&C     

? vartype($123)            &&Y 

? vartype(Datetime())      &&T

   ? vartype({^2005-04-19})   &&D

   ? vartype(3>5)             &&L

思考题：如何用IIF()函数实现SIGN()的功能？

（提示：IIF(X>0,1,IIF( x=0  ,0,-1))）

20.测试函数bof()、eof()、recno()

use zgda

? bof()     &&.f.

? recno()   &&1     刚刚打开的表，指针指向首记录

skip –1    &&      指针向上移动一条记录

? bof()     &&.t.     

? recno()   &&1   表可访问的最小记录号为1

go bottom   && 指针指向尾记录

? eof()     &&.f.             

? recno()   &&8  假设表中只有8条记录，指针指向首记录

skip        &&指针向下移动一条记录

? eof()     &&.t.

? recno()   &&9    表可访问的最大记录号为记录总数+1, 假设表中只有8条记录

? reccount()  &&8  假设表中只有8条记录

21.信息窗口函数MessageBox()

格式：MESSAGEBOX(信息文本， [,对话框类型数值 [,标题栏文本]])

例子：MESSAGEBOX（“您好，VFP!”,64,“提示信息”）