在你程序的开始部分(如表单的init事件中)写如下语句:
set date YMD 即可