_diarydate 系统内存变量示例

在下面的程序示例中，用选定的 March，28，2001 打开“日历／日记”，_DIARYDATE 的值显示在下面。将 July，4，1776 存入 _DIARTDATE，重新显示_DIARYDATE。然后该程序使用 DATE( ) 函数选择当前日期，并显示_DIARYDATE。

set century on
store {^2001-03-28} to _diarydate
=messagebox(dtoc(_diarydate),64)
activate window calendar
=messagebox("change date to july 4, 1776",48))
store {^1776-07-04} to _diarydate
=messagebox(dtoc(_diarydate),64)
=messagebox("change date to today's date",48)
store date( ) to _diarydate
=messagebox(dtoc(_diarydate),64)
release window calendar