問題:如何利用微軟提供的標準日歷控件來獲得時間、日期?
答案:微軟標準日歷控件“Microsoft Date and Time Picker Control 6.0(SP4)”可以提供日期、時間兩種格式,通過此控件獲得日期、時間、星期。
工具/原料
- 組態王6.55
- 計算機一臺
方法/步驟
-
新建工程,
定義8個內存整數變量年、月、日、時、分、秒、星期、周;
定義2個內存字符串變量:日期、時間;
-
制作畫面:
新建畫面,名為:日歷控件。
點擊工具箱“插入通用控件”,
選擇“Microsoft Date and Time Picker Control 6.0(SP4)”;
如圖所示:
-
畫出矩形的日歷控件,雙擊控件,命名為:“ADate”。
畫出時間日歷控件,雙擊控件,命名為:“ATime”;
選中“ATime”控件,右擊選擇“控件屬性”,
進行“格式”設置,4種格式,
選擇“2-dtpTime”,確定。
"ATime"控件由日期變為時間。
-
控件屬性介紹:
常用控件屬性和事件:
屬性:FLOAT型--Day、Month、Year、DayOfWeek(周)、Hour、Minute、Second、
BOOL型--Enableed;
事件:Change()--在選擇時間的時候使用;
CloseUp()--在選擇日期的時候使用;
Enabled屬性控制此控件是否允許被使用。
如圖所示:
-
控件使用:
在動畫連接屬性,選擇“事件”,雙擊“CloseUp”事件的關聯函數,彈出“控件事件函數編輯框”。
-
函數聲明處為函數命名,如“CloseUp()”;
在命令語言編輯框中編寫腳本程序,
點擊編輯窗口下方“控件”按鈕,彈出“控件屬性和控件方法”,
在控件名稱中選擇“ADate”日歷控件;
在查看類型中選擇“控件屬性”;
在屬性或方法中選擇“Year”。
-
腳本程序分享如下:(請投票)
日期:
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;
-
保存畫面,
運行系統
如圖所示:
END
注意事項
- 注意動畫連接屬性的相關設置
- 日期時間選擇合適的


返回頂部
刷新頁面
下到頁底