問題：如何利用微軟提供的標準日歷控件來獲得時間、日期？

答案：微軟標準日歷控件“Microsoft Date and Time Picker Control 6.0(SP4)”可以提供日期、時間兩種格式，通過此控件獲得日期、時間、星期。

 

工具/原料

• 組態王6.55
• 計算機一臺

方法/步驟

1. 新建工程，

   定義8個內存整數變量年、月、日、時、分、秒、星期、周；

   定義2個內存字符串變量：日期、時間；

   
    

2. 制作畫面：

   新建畫面，名為：日歷控件。

   點擊工具箱“插入通用控件”，

   選擇“Microsoft Date and Time Picker Control 6.0(SP4)”；

   如圖所示：

    

3. 畫出矩形的日歷控件，雙擊控件，命名為：“ADate”。

   畫出時間日歷控件，雙擊控件，命名為：“ATime”；

   選中“ATime”控件，右擊選擇“控件屬性”，

   進行“格式”設置，4種格式，

   選擇“2-dtpTime”，確定。

   "ATime"控件由日期變為時間。

   

4. 控件屬性介紹：

   常用控件屬性和事件：

   屬性：FLOAT型--Day、Month、Year、DayOfWeek（周）、Hour、Minute、Second、

   BOOL型--Enableed；

   事件：Change（）--在選擇時間的時候使用；

   CloseUp（）--在選擇日期的時候使用；

   Enabled屬性控制此控件是否允許被使用。

   如圖所示：

   
   

5. 控件使用：

   在動畫連接屬性，選擇“事件”，雙擊“CloseUp”事件的關聯函數，彈出“控件事件函數編輯框”。

   

6. 函數聲明處為函數命名，如“CloseUp()”；

   在命令語言編輯框中編寫腳本程序，

   點擊編輯窗口下方“控件”按鈕，彈出“控件屬性和控件方法”，

   在控件名稱中選擇“ADate”日歷控件；

   在查看類型中選擇“控件屬性”；

   在屬性或方法中選擇“Year”。

   

7. 腳本程序分享如下：（請投票）

   日期：

   string temp;

   \\本站點\年=ADate.Year;

   \\本站點\月=ADate.Month;

   \\本站點\日=ADate.Day;

   \\本站點\周=ADate.DayOfWeek;

   temp=StrFromInt(\\本站點\年,10);

   if(\\本站點\月<10)

   temp=temp+"/0"+StrFromInt(\\本站點\月,10);//一位數要加零

   else

   temp=temp+"/"+StrFromInt(\\本站點\月,10);

   if(\\本站點\日<10)

   temp=temp+"/0"+StrFromInt(\\本站點\日,10);

   else

   temp=temp+"/"+StrFromInt(\\本站點\日,10);

   \\本站點\日期=temp;

   if(\\本站點\周==1)

   \\本站點\星期="星期日";

   if(\\本站點\周==2)

   \\本站點\星期="星期一";

   if(\\本站點\周==3)

   \\本站點\星期="星期二";

   if(\\本站點\周==4)

   \\本站點\星期="星期三";

   if(\\本站點\周==5)

   \\本站點\星期="星期四";

   if(\\本站點\周==6)

   \\本站點\星期="星期五";

   if(\\本站點\周==7)

   \\本站點\星期="星期六";

   時間：

   string temp;

   \\本站點\時=ATime.Hour;

   \\本站點\分=ATime.Minute;

   \\本站點\秒=ATime.Second;

   if(\\本站點\時<10)

   temp="0"+StrFromInt(\\本站點\時,10);//10是十進制的樣子；

   else

   temp=StrFromInt(\\本站點\時,10);

   if(\\本站點\分<10)

   temp=temp+":0"+StrFromInt(\\本站點\分,10);

   else

   temp=temp+":"+StrFromInt(\\本站點\分,10);

   if(\\本站點\秒<10)

   temp=temp+":0"+StrFromInt(\\本站點\秒,10);

   else

   temp=temp+":"+StrFromInt(\\本站點\秒,10);

   \\本站點\時間=temp;

   

8. 保存畫面，

   運行系統

   如圖所示：

   
   
   END

注意事項

• 注意動畫連接屬性的相關設置
• 日期時間選擇合適的