大哥哥最近要寫到讓使用者挑選日期與日期判斷的搜尋程式,發現這篇文章大概就可以得知日期基本處理的技巧,趕快紀錄下來,畢竟大家現在都沒在學delphi....^^"

http://www.twbbs.net.tw/1305277.html

也 談Delphi 中 的 日 期 輸 入
---- 日 期 輸 入 雖 然 是 小 事, 但 卻 幾 乎 每 一 個 程 序 裏 都 會 碰
到, 處 理 不 好 也 會 惹 出 許 多 麻 煩(2000 年 問 題 即 是 日 期 引 起
的 世 界 性 麻 煩)。 現 談 一 談 筆 者 在Delphi 編 程 中 對 日 期 處 理
的 一 些 經 驗 和 感 受, 請 大 家 指 正。
---- 在 程 序 中 使 用 現 成 的 控 件 是 現 在 編 程 的 一 種 趨 勢, 其
實,DateTimePicker 就 是 一 個 很 好 的 控 件, 關 鍵 是 如 何 靈 活 變 通
地 運 用。DateTimePicker 是Microsoft 向Windows95 通 用 控 件 庫 新 添 的
控 件, 是 輸 入 日 期 和 時 間 的 簡 單 工 具, 具 有 良 好 的 圖 形 界
面。 該 控 件 在Delphi 名 為Win32 的 控 件 面 板 中, 對 其kind 屬 性 的
選 擇 可 以 確 定 是 輸 入 時 間 還 是 日 期, 在 日 期 輸 入 中 又 有
一 些 屬 性 可 供 不 同 的 選 擇, 其 中Datamode 有dmUpDown 和dmComboBox
兩 個 選 項, 選 擇 前 者, 就 可 以 在 輸 入 日 期 時, 用 鼠 標 點 激
向 上 或 向 下 按 鈕, 從 而 可 以 非 常 方 便 地 對 年、 月、 日 進 行
遞 增 或 遞 減; 選 擇 後 者, 在 運 行 時 用 鼠 標 點 激, 就 會 彈 出
一 個 界 面 友 好 的 對 話 框, 從 而 可 以 從 中 選 取 日 期, 這 時 日
是 從 相 應 的 月 曆 表 中 選 取, 年 和 月 則 仍 是 通 過 按 箭 頭 按
鈕 遞 增 或 遞 減。 但 不 管 是dmUpDown 還 是dmComboBox, 都 可 以 在 其
上 直 接 輸 入 年 月 日 的 值, 並 且 自 動 地 保 證 日 期 的 有 效 性(
如 閏 年 問 題 等), 因 此 完 全 涵 蓋 了《Delphi 中 日 期 輸 入 法 二 則》
一 文 中 自 己 定 制 的 日 期 輸 入 窗 口 的 功 能 和 速 度。Dateformat 屬
性 有dfLong 和dfShort 兩 種 選 擇, 前 者 為 長 日 期 型( 如1999 年2 月16
日, 如 果 得 到 的 不 是 理 想 的 形 式, 可 調 整Windows 控 制 面 板 上
區 域 設 置 中 的 日 期 格 式 以 及DateTimePicker 的Font 屬 性 的Charset
值, 一 般 情 況 取DEFAULT_CHARSET 或GB2312_CHARSET 即 可), 後 者 為
短 日 期 型( 如99-2-16), 考 慮 到 跨 世 紀 問 題, 短 日 期 要 慎 用。
但 長 日 期 型 的 值 不 可 直 接 作 為 日 期 值 賦 給 日 期 型 的 變 量,
要 做 一 點 轉 換 工 作, 舉 例 如 下:
procedure Tform1.DateTimePicker1CloseUp
(Sender: TObject);
var
Year, Month, Day: Word;
Datetime:TDatetime;
begin
DecodeDate(DateTimePicker1.datetime,
Year, Month, Day);
//將DateTimePicker1的年月日的值分別賦給
Year, Month, Day
EditDATE.Text:=inttostr(year)+'-'
+inttostr(Month)+'-'+inttostr(Day);
// EditDATE為TDBEdit型的編輯框,
對應一個日期型的資料表字段
//若將其變為短日期型的,
可以發現Delphi把短日期即00--99年都解釋
//為1900--1999年,
而不受Windows控制面板中區域設置中格式的控制
Datetime:=EncodeDate(Year,Month,Day);
//把年月日合成為日期值
end;
---- 上 面 這 個 小 程 序 中,form1 的DateTimePicker1 的Dateformat 屬 性
為dfLong,Datamode 的 屬 性 為dmComboBox。 DateTimePicker1CloseUp 為 日 期
輸 入 對 話 框 縮 起 時 發 生 的 事 件, 也 可 以 用OnChang 事 件, 即
DateTimePicker 發 生 變 化 時 觸 發, 則Datamode 屬 性 無 論 取 何 值 都
可 使 用。
---- 可 見 對DateTimePicker 控 件 只 要 稍 加 處 理 即 可 美 觀 快 捷 地
解 決 日 期 輸 入 問 題。, 默 許 狀 態 下 日 期 只 能 在1752 年9 月14 日
至2999 年12 月31 日 之 間, 但 可 以 通 過 對 其mindate 和maxdate 賦 值 擴
大 選 擇 範 圍。
---- 但 是 該 控 件 也 有 一 點 缺 憾, 對1899 年12 月30 日 以 前 的 數 值
錄 入 須 小 心, 容 易 出 錯。 這 倒 引 入 了 另 一 個 話 題, 即Delphi 中
的 日 期 型( 即Tdate 型 ) 的 定 義 為:type TDate = type TDateTime; 而
TdateTime 型 的 定 義 為:type TDateTime = type Double; 可 見 日 期 型 歸
根 到 底 是 雙 精 度 浮 點 型(Double 型),Delphi 規 定 其 整 數 部 分
為1899 年12 月30 日 以 來 的 天 數, 小 數 部 分 則 為24 小 時 按 比 例
分 割 存 儲, 例 如:
0 12/30/1899 12:00 am 2.75 1/1/1900 6:00 pm
-1.25 12/29/1899 6:00 am 35065 1/1/1996 12:00 am
---- (12:00 am 即 為 淩 晨0 點,11:00 am 即 為 早 晨11 點,12:00 pm 即 為
中 午12 點,1:00 pm 即 為 中 午1 點)
---- 而 在Delphi1.0 中, 其 整 數 部 分 為 公 元1 年 以 來 的 天 數, 之 所
以 這 樣 改 動 是 為 了 更 好 地 與OLE2.0 相 兼 容。 對 於 日 期 的 運 算
一 定 得 注 意 類 型 的 匹 配, 而 且 由 於 日 期 型 實 則 為Double 型, 所
以 可 對 其 進 行 加 減 乘 除 運 算, 現 舉 例 如 下:
procedure TForm1.Table1CalcFields(DataSet: TDataset);
var
t1, t2: tDateTime;
begin
table1d1.asDateTime := Date + 2;
{or table1d1.value := date + 2;} // Date為系統日期
table1d2.asDateTime := Date - 2;
//d1,d2為表table1中date or dateTime型欄位。
t1 := table1d1.asDateTime;
t2 := table1d2.asDateTime;
table1d3.asInteger := trunc(double(t1) - double(t2));
// trunc為取整函數,d3為表table1
中integer型欄位,結果為日期d1和d2的差。
end;
---- 另 外, 在Delphi 中 可 以 方 便 地 顯 示 系 統 時 間, 只 要 利
用DateToStr(Date) 及TimeToStr(Time) 函 數 即 可 實 現。 也 可 以 通
過 調 用WindowsAPI 函 數 來 實 現 對 系 統 時 間 的 設 置, 具 體 方 法
如 下:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='1998-12-12 12:00 am';
end;
//可在運行時,也可在Edit1中重新鍵入日期,
但須注意格式。
procedure TForm1.Button2Click(Sender: TObject);
var
systemtime:Tsystemtime;
DateTime:TDateTime;
begin
DateTime:=StrToDateTime(Edit1.text);
DateTimeToSystemTime(DateTime,systemtime);
SetLocalTime(SystemTime);
GetLocalTime(SystemTime);//讀取北京東8區時間
DateTime:=SystemTimeToDateTime(SystemTime);
Edit2.Text:=DateTimeToStr(DateTime);
end;
//Button2點激後,系統時間就變為Edit1中的時間

No Money No Hone 發表在 痞客邦 PIXNET 留言(0) 人氣()