📄 015.htm
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI专题文档－程序应用-->也谈Delphi中的日期输入</TITLE>
<META NAME="keywords" CONTENT=" DELPHI专题文档－程序应用 也谈Delphi中的日期输入">
<META NAME="description" CONTENT=" - DELPHI专题文档－程序应用 - 也谈Delphi中的日期输入">
<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<a href="index6.html">返回</a>
<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>
<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">也谈Delphi中的日期输入</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">----
日 期 输 入 虽 然 是 小 事， 但 却 几 乎 每 一 个 程 序 里 都 会 碰
到， 处 理 不 好 也 会 惹 出 许 多 麻 烦（2000 年 问 题 即 是 日 期
引 起 的 世 界 性 麻 烦）。 现 谈 一 谈 笔 者 在Delphi 编 程 中 对
日 期 处 理 的 一 些 经 验 和 感 受， 请 大 家 指 正。 </font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">----
在 程 序 中 使 用 现 成 的 控 件 是 现 在 编 程 的 一 种 趋 势， 其
实，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）， 考 虑 到 跨 世 纪 问 题， 短 日 期 要 慎 用。 但
长 日 期 型 的 值 不 可 直 接 作 为 日 期 值 赋 给 日 期 型 的 变
量， 要 做 一 点 转 换 工 作， 举 例 如 下： </font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">procedure
Tform1.DateTimePicker1CloseUp</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">(Sender:
TObject);</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">var</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">Year,
Month, Day: Word; </font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">Datetime:TDatetime;</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">begin</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">DecodeDate(DateTimePicker1.datetime,</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">Year,
Month, Day);</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">//将DateTimePicker1的年月日的值分别赋给</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">Year,
Month, Day</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">EditDATE.Text:=inttostr(year)+'-'</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">+inttostr(Month)+'-'+inttostr(Day);
</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">//
EditDATE为TDBEdit型的编辑框，</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">对应一个日期型的数据表字段</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">//若将其变为短日期型的，</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">可以发现Delphi把短日期即00--99年都解释</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">//为1900--1999年，</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">而不受Windows控制面板中区域设置中格式的控制</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">Datetime:=EncodeDate(Year,Month,Day);
</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">//把年月日合成为日期值</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">end;</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">----
上 面 这 个 小 程 序 中，form1 的DateTimePicker1 的Dateformat 属 性 为dfLong，Datamode
的 属 性 为dmComboBox。 DateTimePicker1CloseUp 为 日 期 输 入 对 话 框 缩
起 时 发 生 的 事 件， 也 可 以 用OnChang 事 件， 即DateTimePicker 发 生
变 化 时 触 发， 则Datamode 属 性 无 论 取 何 值 都 可 使 用。 </font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">----
可 见 对DateTimePicker 控 件 只 要 稍 加 处 理 即 可 美 观 快 捷 地 解
决 日 期 输 入 问 题。， 默 许 状 态 下 日 期 只 能 在1752 年9 月14
日 至2999 年12 月31 日 之 间， 但 可 以 通 过 对 其mindate 和maxdate 赋
值 扩 大 选 择 范 围。 </font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">----
但 是 该 控 件 也 有 一 点 缺 憾， 对1899 年12 月30 日 以 前 的 数 值
录 入 须 小 心， 容 易 出 错。 这 倒 引 入 了 另 一 个 话 题， 即Delphi
中 的 日 期 型（ 即Tdate 型 ） 的 定 义 为：type TDate = type TDateTime; 而TdateTime
型 的 定 义 为：type TDateTime = type Double; 可 见 日 期 型 归 根 到 底
是 双 精 度 浮 点 型（Double 型），Delphi 规 定 其 整 数 部 分 为1899
年12 月30 日 以 来 的 天 数， 小 数 部 分 则 为24 小 时 按 比 例 分
割 存 储， 例 如： </font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">0
12/30/1899 12:00 am 2.75 1/1/1900 6:00 pm</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">-1.25
12/29/1899 6:00 am 35065 1/1/1996 12:00 am</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">----
（12:00 am 即 为 凌 晨0 点，11:00 am 即 为 早 晨11 点，12:00 pm 即 为 中
午12 点，1:00 pm 即 为 中 午1 点） </font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">----
而 在Delphi1.0 中， 其 整 数 部 分 为 公 元1 年 以 来 的 天 数， 之
所 以 这 样 改 动 是 为 了 更 好 地 与OLE2.0 相 兼 容。 对 于 日 期
的 运 算 一 定 得 注 意 类 型 的 匹 配， 而 且 由 于 日 期 型 实 则
为Double 型， 所 以 可 对 其 进 行 加 减 乘 除 运 算， 现 举 例 如
下： </font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">procedure
TForm1.Table1CalcFields(DataSet: TDataset);</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">var</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">t1,
t2: tDateTime; </font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">begin</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">table1d1.asDateTime
:= Date + 2;</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">{or
table1d1.value := date + 2;} // Date为系统日期</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">table1d2.asDateTime
:= Date - 2;</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">//d1,d2为表table1中date
or dateTime型字段。</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">t1
:= table1d1.asDateTime;</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">t2
:= table1d2.asDateTime;</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">table1d3.asInteger
:= trunc(double(t1) - double(t2));</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">//
trunc为取整函数，d3为表table1</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">中integer型字段，结果为日期d1和d2的差。</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">end;</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">----
另 外， 在Delphi 中 可 以 方 便 地 显 示 系 统 时 间， 只 要 利 用DateToStr（Date）
及TimeToStr（Time） 函 数 即 可 实 现。 也 可 以 通 过 调 用WindowsAPI
函 数 来 实 现 对 系 统 时 间 的 设 置， 具 体 方 法 如 下： </font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">procedure
TForm1.Button1Click(Sender: TObject);</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">begin</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">Edit1.Text:='1998-12-12
12:00 am';</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">end;</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">//可在运行时，也可在Edit1中重新键入日期，</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">但须注意格式。</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">procedure
TForm1.Button2Click(Sender: TObject);</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">var</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">systemtime:Tsystemtime;</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">DateTime:TDateTime;</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">begin</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">DateTime:=StrToDateTime(Edit1.text);</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">DateTimeToSystemTime(DateTime,systemtime);</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">SetLocalTime(SystemTime);</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">GetLocalTime(SystemTime);//读取北京东8区时间</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">DateTime:=SystemTimeToDateTime(SystemTime);</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">Edit2.Text:=DateTimeToStr(DateTime);</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">end;</font></span></p>
<BR>
<p ALIGN="JUSTIFY"><span style="font-size: 9pt"><font lang="ZH-CN" face="宋体" size="3">//Button2点激后，系统时间就变为Edit1中的时间了。</font></span></p>
<BR>
<hr color="#EE9B73" size="1" width="94%">
</TD>
</TR>
</table>
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -