function 命令示例

下面的示例创建了两个函数：longdate 和 quarter。longdate 函数将日期型变量转换为适于在报表中使用的字符串，quarter 函数根据传递的月份数返回季度值。这两个函数可用来打印报表的标题。 

set century on
@ 5,0 say longdate({02/16/95})
@ 6,5 say quarter(date( ))

function longdate
parameter mdate
return cdow(mdate) + ', ' + mdy(mdate)

function quarter
parameter qdate
do case
case month (qdate) > 9
return 'fourth quarter'
case month (qdate) > 6
return 'third quarter'
case month (qdate) > 3
return 'second quarter'
otherwise
return 'first quarter'
endcase