day( ) 函数示例

store {03/05/95} to gdbdate
clear
? cdow(gdbdate)  && 显示 sunday
? day(gdbdate)   && 显示 5
? 'that date is ', cmonth(gdbdate),str(day(gdbdate),2)