.版本 2.程序集 窗口程序集1.子程序 _日期框_選擇日期被改變.如果真 (日期框.今天 ＜ 取現行時間 ())  信息框 (“不可選擇以前的日期！”, 16, “提示”, )  日期框.今天 ＝ 取現行時間 ()  返回 ().如果真結束