说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Delphi中日期时间输入的简洁方法

HTML文档下载 WORD文档下载 PDF文档下载
Delphi中日期时间输入的简洁方法

请看程序:

var

Form1: TForm1;

systemtime: Tsystemtime;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

Datetimepicker1.date:=now;

datetimepicker2.Time:=now;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin { Timer1.Interval=1000ms }

Datetimepicker1.date:=now;

datetimepicker2.Time:=now;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin { 确认修改 }

DatetimeToSystemtime(trunc(Datetimepicker1.date)

+Frac(Datetimepicker2.Time)

systemtime);

SetLocalTime(systemtime);

Timer1.Enabled:=true;

end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);

begin

Timer1.Enabled:=false;

end;

procedure TForm1.DateTimePicker2Change(Sender: TObject);

begin

Timer1.Enabled:=false;

end;

end.

再做少许说明:

一. 建立两个DateTimePicker控件,第一个kind属性设置为dtkDate用于日期,第二个kind设置为dtkTime用于时间。两个DateTimePicker均由定时器Timer1控制,每秒刷新一次。当用户修改日期或时间,发生DateTimePicker1Change或DateTimePicker2Change事件,Tmer1.Enabled置为False

停止每秒一次的触发,日期时间显示静止,便于用户修改和确认;点击Button1后(更改确认),系统日期时间被修改,同时Timer1.Enabled重新置为True, 两个DateTimePicker控件上的日期时间就又一秒一次的刷新,这样有动有静使界面显的生动一些。

二. Delphi中控件DateTimePicker的属性Date、Time

获取系统时间的函数Now,其类型本质上都是双精度浮点型,用整数部分表示日期,小数部分表示时间。可以用Now函数直接向DateTimePicker的属性Date或Time赋值,用DateTimePicker显示系统当前时间,这样比另外在用Edit或Label输入、显示要简洁一些.

三.用DateTimePicker.Date和Time的值设置系统时钟时要注意,Date的小数部分和Time的整数部分是随机数。因此Date要用trunc取整,Time要用frac取小数。(忽略了这一点就会产生意想不到的结果) 然后再相加、转换(DatetimeToSystemtime)、设置(SetLocalTime)。

四. 过程FormCreate是为了使两个DateTimePicker第一次显示的就是系统当前时间。如果你不计较第一次显示的是你编程日期时刻的话,这一过程可以省去。再考虑到午夜12点前后修改系统时间的可能性极小,过程DateTimePicker1Change也可省略。

你看,只要写几条语句就能做出一个实用生动的日期时间显示输入程序,Delphi真好。

疯狂谷歌建广告天网:电冰箱、汽车仪表盘、恒温器、眼镜和手表 开发者眼中的编程语言…… 寻下一突破口?黑莓推Project Ion项目,正式进军物联网 无人驾驶汽车真的要来了:飞思卡尔研制视觉芯片 支持物联网开发! Qt发布5.3版与嵌入式企业版 5月23日:Java已经19岁啦! Google发布Dart1.4版本,新增Observatory工具 《近匠》Mixtile:跑在盒子中的嵌入式平台 从研发、平台化到营销:移动时代,汽车厂商如何升级? CTO俱乐部“云计算创新与实践”沙龙:云计算的发展趋势与那些“坑” 一周消息树:大型网站系统与Java中间件 良心推荐:6款基于云的移动应用开发工具 Google Project Tango第二弹:可生成3D图像的平板电脑 API企业化战略部署三部曲(一) 高通产品市场经理刘晓光:详解骁龙Android SDK 苹果史上最大交易:斥资30亿美元收购Beats 微软是否应该提高Windows版本的推送频率? 咸鱼大翻身?索尼将发展可穿戴游戏设备 popping:基于Facebook Pop引擎的iOS动画库 《近匠》专访极路由CTO康神 真正智能中心应当这样做 为什么说Android才是游戏开发者的乐土? 开发移动医疗应用必知的10个掘金点 个推CTO叶新江:云推送技术如何助力产品开发 《近匠》Face++:漫谈人脸识别 无线充电技术赛高:随意走动也能电量满格 体验至上!移动Web应用JavaScript UI库App.js 专访中国国航:传统行业的“轻应用观” 开发者找众筹,哪些网站更靠谱? 48小时脑力激荡 中美青年创客大赛英特尔北京选拔赛 “微应用+大平台”推动企业软件走向碎片化 浅谈Hive vs. HBase ado.net 我发现JSP一个奇怪的问题???想要看看吗???进来呀!!! 昨晚2点多一个mm突然打电话找我聊天,各位觉得我有戏没? 哪里有完整的MINE解码组件 为什么我装完FreeBSD系统启动时Sendmail启动的特别慢,telnet时也很慢。 小弟初学JSP,想搞点源代码来学习学习。 难搞的MIDAS 局域网的问题,急死了, vb中继承及分辨率问题 ASP里有没有带下拉框的输入框? 象素数据和图象数据 公司的一个数据库被人del,现在想查查是谁什么时候做的? 为什么我的窗口无法操作 关于oracle数据库增量备份土土的一问。 ArrayList问题 请教:在CB6下面怎么用 TMediaPlayer 控件来录音? 南开的vb习题集!!! 请问:如何在servlet中获得当前时间和当前日期?菜鸟问题,请见谅。 为什么我的opendialog不能返回filename,而返回了一个 $符号 大家对购买tcl笔记本等国产笔记本有没有什么建议? 第一次用vfp,新手提问? 请问哪位大虾知道,Crystal 7.0如何记忆上次打印该报表的打印机 纸张大小 纸张方向 边界设定等 如何自动生成新页? 显示器问题!! [代码发布]使用 Lostinet.SqlScope 4.0 实现高效的SQL SERVER应用程序 关于Decode函数的问题 WIN2000下的关机问题?请高手们想想办法! 寻找一个叫dingke的朋友,我将把邮箱给你,但我不小心弄丢了你的联系信箱,请速与我联系 请问:Dialog中可以重载LButtonDown事件吗? 如何用pb实现远程关机!!求救! 高分请教:zip密码遗忘 如何显示一个word 格式的文档,分不够可以再加 怎么获取本机IP。 ★★★★★调查最好的旅游地点!!★★★★★ 高分请教:zip密码遗忘 OUTLOOK公佈網路資料夾的問題 为什么我作的程序都无法运行呢?帮帮忙,多谢多谢 "select * from db where dm='000001' and scbz<>1 order by fsrq desc"为何会出错? 大家对购买tcl笔记本等国产笔记本有没有什么建议? WAP2.0与之前的版本有何不同? SQL2000如何解决还原数据库时的错误 工作台上打开数据库对话框中服务器项中的记忆性值...? 挑战无处不在!!!!!!!!!!!!!!!!!!!!! 这个程序是什么意思啊?? 请教:xml 不支持无值属性,以下我该怎么办。急,在线等。100分恭候 jb整合resin出现的难题! 永远的秋天 为什么我的openoffice中打的汉字无法在页面上显示? 请解释下面的问题 怎样把字符窜(edit.Text)转化为十六进制数 寻求PHP开发人员合作 哪里能下载3元一个5元两个叫卖声 唐朝与日本、天竺交往最具有影响的两位使者的名字?宋朝对外贸易兴盛,政府设置的对外贸易机构是什么?其 下列事例与化学有关的是利用生物技术研制新药物白色污染石油炼制合成纤维精致服装面料农药、化肥的生产现代建筑、交通、军事等领域中的各种新型材料 谁能帮我做下危险品从业单位安全标准化学品考核评价标准的文件 一道离子反应题目1.向硫酸铝铵溶液中滴加氢氧化钠溶液,毫无疑问,氢氧化钠先和三价铝反应,然后问题出来了当铝离子完全转化为氢氧化铝沉淀后,氢氧化钠先和铵根反应还是先和氢氧化铝反 谁能帮我把这写详细点? 在三角形ABC中,a:b:c=2:4:5,则(sinA-sinB)/sinC的值为 遗传物质的载体可以是线粒体或叶绿体吗 谁能给我写个比较长的新年贺词啊 明天要在全家人面前念 要长一点的我实在是不知道怎么写了 求高手给代写或推荐一篇 我国甘肃玉门关以西,葱岭以东,新疆天山一带古时候被称为西域.请问,西域正式归属于中国中央政府管辖是在哪个朝代? 甘肃省玉门市的海拔高度是多少? 伊朗边境发生武装冲突 14名边防人员哥伦比亚妇女售卖12个女儿“初夜权”漏洞百出的“全球奴役指数”美媒曝谷歌或正秘密建造海上数据中心哥伦比亚妇女售卖12个女儿初夜权牟利白俄总统错坐普京座位 发现后起身让座伊朗边境发生武装冲突 14名边防人员朝鲜纪念中国志愿军赴朝参战63周年 世界浙商大会开幕 夏宝龙赞浙商是最倚人感染H7N9禽流感病毒疫苗株在杭州马尼拉巿长据报拟下月赴香港就人质事件建材超市先行明码实价明码实价还有多远?销售提成不错 顺便还能学中文价格比平时便宜四成以上到规划展览馆看东西德建筑南京网友:花25万包电影场 为证前女演出门票最低仅为65元射击有望诞生中国青奥代表团首金老拳师习武41年冲击世界杯 从喝蒙牛早餐奶开始拿什么拯救你,我的女儿
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘