日期函数

CDOW( ) 从给定日期或日期时间表达式中返回星期值。 CMONTH( ) 返回给定日期或日期时间表达式的月份名称。 CTOD( ) 把字符表达式转换成日期表达式。 返回一个日期时间值。

DATE() 返回由操作系统控件的当前系统日期，或创建一个与2000年兼容的日期值。 DATETIME() 以日期时间值返回当前的日期和时间, 或创建一个 2000 兼容的日期时间值。 DAY() 以数值型返回给定日期表达式或日期时间表达式是某月中的第几天。

DMY() 从一个日期型或日期时间型表达式返回一个“日-月-年”格式的字符表达式(例如，31 May 1995)。月名不缩写。

DTOC() 由日期或日期时间表达式返回字符型日期。

DTOS() 从指定日期或日期时间表达式中返回 yyyymmdd 格式的字符串日期。 DTOT() 从日期型表达式返回日期时间型值。 GOMONTH() 对于给定的式的小时部分。

MDY() 以“月-日-年”格式返回指定日期或日期时间表达式，其中月份名不缩写。

MINUTE() 返回日期时间日期表达式或日期时间表达式，返回指定月份数目以前或以后的日期。 HOUR() 返回日期时间表达型表达式中的分钟部分。 MONTH() 返回给定日期或日期时间表达式的月份值。 QUARTER() 返回一个日期或日期时间表达式中的季度值。 SEC() 返回日期时间型表达式中的秒钟部分。 SECONDS() 以秒为单位返回自午夜以来经过的时间。 SYS(1) 以日期数字字符串的形式返回当前系统日期。 SYS(2) 返回自午夜零点开始以来的时间，按秒计算。 SYS(10) 将 (Julian) 日期转换成一个字符串。

SYS(11) 将日期格式表示的日期表达式或字符串转换成 (Julian) 日期。 TIME() 以 24 小时制、8 位字符串(时：分：秒)格式返回当前系统时间。 TTOC() 从日期时间表达式中返回一个字符值。 TTOD() 从日期时间表达式中返回一个日期值。

WEEK() 从日期表达式或日期时间表达式中返回代表一年中第几周的数值。 YEAR() 从指定的日期表达式中返回年份。

1、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）

编写程序，要求在屏幕的第10行，第10列输入设备编号BH；在SB表中查找编号字段为BH的记录，若找到，则将该记录的价格改为原价格的90%，若没有找到，则在屏幕上显示\"不存在要修改的记录！\"。

评析：

Set talk off Clear Use SB

BH=space(4)

@10,10 say \"输入设备编号：\" get BH Read

Loca for 编号==bh If found()

Repl 价格 with 价格*0.9 Else

@11,10 say \"不存在要修改的记录！\" Use Return

2、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）

编写程序，要求在屏幕的第10行，第10列输入整数X；第11行，第10列输入整数Y，将SB表中X<=价格<=Y的记录的名称，价格字段显示在屏幕上。

评析：

Set talk off Clear Use SB

@10,10 say \"价格下限为：\" get X defa 0 @10,11 say \"价格上限为：\" get Y defa 0 Read

Disp for 价格<=y .and. 价格>=x Use return

3、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）

编写程序，要求在屏幕的第10行，第10列输入整数X；第11行，第10列输入整数Y，将SB表中X<=价格<=Y的记录复制到TSB表中并按编号建立索引，索引标为BH。

评析：

Set talk off Clear Use SB

@10,10 say \"价格下限为：\" get X defa 0 @10,11 say \"价格上限为：\" get Y defa 0 Read

Copy to TSB for 价格<=y .and. 价格>=x Use TSB

Index on 编号 tag BH Use Return

4、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）

编写程序，要求在屏幕的第10行，第10列输入整数X；第11行，第10列输入整数Y，将SB表中X<=价格<=Y的记录删除。

评析：

Set talk off Clear Use SB

@10,10 say \"价格下限为：\" get X defa 0 @10,11 say \"价格上限为：\" get Y defa 0 Read

Dele for 价格<=y .and. 价格>=x Pack Use return

5、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）

编写程序，要求在屏幕的第10行，第10列输入整数X；第11行，第10列输入整数Y，计算SB表中X<=价格<=Y的记录的条数，平均价格，最高价格。

评析：

Set talk off Clear Use SB

@10,10 say \"价格下限为：\" get X defa 0 @10,11 say \"价格上限为：\" get Y defa 0 Read

select count(),avg(价格),max(价格) from SB where 价格<=y .and. 价格>=x Use return

6、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）

编写程序，要求在屏幕的第10行，第10列输入整数Y表示日期的年份；将SB表中启用日期在Y年以前启用的设备的新旧标志字段改为.F.，其它记录的新旧标志字段改为.T.。

评析：

Set talk off Clear Use SB

@10,10 say \"年份：\" get Y defa 0 Read

Repl 新旧标志 with .T. for year(启用日期)=y Use Retu

7、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）

编写程序，要求在屏幕的第10行，第10列输入整数Y表示日期的年份；将SB表中启用日期在Y年以前启用的设备记录的名称，价格字段显示在屏幕上。

评析：

Set talk off Clear Use SB

@10,10 say \"年份：\" get Y defa 0 Read

Disp fiel 名称,字段 for year(启用日期)8、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）

编写程序，要求在屏幕的第10行，第10列输入整数Y表示日期的年份；将SB表中启用日期在Y年以前启用的设备记录复制到TSB表中并按编号建立索引，索引标识为BH。

评析：

Set talk off Clear Use SB

@10,10 say \"年份：\" get Y defa 0 Read

Copy to TSB for year(启用日期)Index on 编号 tag bh retu

9、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）

编写程序，要求在屏幕的第10行，第10列输入整数Y表示日期的年份；将SB表中启用日期在Y年以前启用的设备记录删除。

评析：

Set talk off Clear Use SB

@10,10 say \"年份：\" get Y defa 0 Read

dele for year(启用日期)10、设有设备表SB（编号C（4），名称C（10），启用日期D，价格N（10，2），新旧标志L）

编写程序，要求在屏幕的第10行，第10列输入整数Y表示日期的年份；计算SB表中启用日期在Y年以前启用的设备记录的记录的条数，平均价格，最高价格。

评析：

Set talk off Clear Use SB

@10,10 say \"年份：\" get Y defa 0 Read

select count(),avg(价格),max(价格) from SB where year(启用日期)11、输入圆的半经，计算圆的面积和周长。

评析：

input \"r=\" to r s=3.1415*r*r c=3.1415*2*r \"s=\

\"c=\

12、输入三角形的底和高，计算三角形的面积。

评析：

input \"a=\" to a input \"b=\" to b s=(a*b)/2 \"s=\

13、编写一个程序，求三个数中的最大值。

评析：

Input \"a=\" to a input \"b=\" to b input \"c=\" to c max=a if max\"max=\

14、编写一个程序，求三个数中的最小值。

评析：

Input \"a=\" to a input \"b=\" to b input \"c=\" to c min=a if min>b min=b endif if min>c min=c endif

\"min=\

15、用do while循环编程计算p=1*2*3*...*20。

评析： p=1 k=1

do while k<=20 p=p*k k=k+1 enddo

\"1*2*3*……*20=\

16、用for循环编程计算s=1+2+3+4+...+100。

评析： s=0

for i=1 to 100 s=s+i next

\"1+2+3+4+……+100=\

17、用do case－endcase语句编程计算

评析：

input \"x=\" to x do case case x<0 y=x*x case x=0 y=0

case x>0 .and. x<10 y=x+1 case x>=10 y=2*x endcase \"y=\

18、用if－else－endif语句编程计算

评析：

input \"x=\" to x if x<0 y=x*x+1 else

if x=0 y=0 else

if x<5 y=x else

y=2*x+1 endif endif endif \"y=\

19、编程计算1－100之间能被3整除的数的和。

评析： s=0

for k=1 to 100

if int(k/3)=k/3 s=s+k endif next \"s=\

20、编程计算1－100之间能被7整除的数的积。

评析： p=1

for k=1 to 100 if int(k/7)=k/7 p=p*k endif next \"p=\