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

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真好。

【程序员电子刊精选】水火不容?研发人员也是产品经理! 如何打动用户?携程用户体验实践分享 【征文】Java二十周年特别策划——谈谈我与Java的那些年、这些事 Facebook的愿景以及虚拟现实的未来 iBeacons一年回顾 英特尔中国30周年之际 IDF上你需要了解的5件事 OpenCloud 2015参会者的三大特征(附列表) 友盟移动互联网趋势报告解读:垂直领域应用竞争白热化 墨腾动漫CTO吴建学:初创公司的生存之道 亿航与高德达成战略合作 LBS+引爆智能硬件软实力 《近匠》火柴手写码,输不错的验证码利器 Web、App中添加动效设计应遵循的12条原则 越狱与开源:2015移动安全峰会(MSS)纪实 开发者自白:我是如何不花一分钱收获230万应用下载量的! OpenCloud 2015报名超预期 近20位讲师会前采访提前看 硅谷公司人才招聘那些事儿——硅谷“超级面试官”董飞专访 一切为了用户体验:揭秘京东首页改版背后的故事 TIOBE 2015年4月编程语言排行榜:Java王者归来 三大主题技术峰会开幕在即 OpenCloud 2015参会者提醒 《近匠》快码,唯快不破的代码众包平台 打破边界 生态化反!乐视发布三款超级手机 苹果收购LinX:iPhone或将采用双摄像头技术 Google《Android性能优化》学习笔记 Amaze UI 2.3.0版本发布 整合多个第三方插件 专访Layabox创始人谢成鸿:Flash与HTML5结合的背后 高德推“LBS+”开放平台战略 整合位置大数据和云计算 CLion 1.0发布,C/C++跨平台集成开发环境 2015超实用的前端开发指南 期待吗?Linux 4.1将引入大量汇编代码变更! TSMC量产16FF+制程,Apple Watch或将采用Finfet技术 谷歌搜索引擎更新 移动端支持不好的网站排名将受影响 软件发布:华容道 如何用PHP在页面里调用word编辑器,使之能在网页上编辑WORD文档? sql server 数据库ccyy,restore时总出错? DELPHI文本操作得一個小問題,請各位指教!!!! 关于鼠标左键单击与按住不放的区别? 高分求问,数据源的问题! 建议增加我的收藏夹功能 求教包容器问题 一个三层数据库的问题: VB爱好者们,帮小弟个忙!!!谢谢 怎么样动态建立一个新的ADOTable?? 十万火急,关于Unix平台下C编程(FTP传输方面) 我的英文还凑合,那么我应该选择4 中文版,还是 5英文版?(众所周知,5中文版翻译太差) 求开发 ActiveX Libary 的详细步骤! Com Object 与 Automation Object 区别,如何用? 用VB如何处理多个用户同时操作一个DBF文件的错误? 一个进程为VC2.0, 另一个为VC6编的MFC程序。如何控制从第2个控制第一个进程? 请assdeng(山野村夫)看看 pb,delphi,vb三种快速成型的语言都分别适合开发那些软件?欢迎大家来讨论 请问各位同仁如何设置sybase anywhere服务器参数? 串口通讯能否用pb做成动态连接库的形式?(急) 怎样使Response.redirect打开一个新窗口 为什么环境变量替换不正确? 怎么打开foxpro中,通过剪切板考过去的图片,dbimage和image控件都不能打开,显示“bitmap is not valid” vaj中如何使用自己的JAR? 怎样改变当前窗口的大小,是当前窗口最大化? 高手争峰 如何把一个log文件读到数据结构中去 请教一个很菜的问题:) 这个程序有什么问题? 怎样做???? 简单问题,可就是搞不定!! 请问jsp中servelet在win2000中的设置方法,需要下载什么类库文件么? 一个新问题,那就是点击工具栏的退出按钮以后只退出当前打开的窗口,而不是整个应用! 如何在 index.htm 中引用 count.asp ? 远程数据库访问的问题--亟待高手们解答 王国荣的电子信箱是哪里? 我的程序生活 先给50分,稍后在加:我正在做一个系统,需要做到每次开机时提醒用户有哪些事情要做! [Tips]获取Memo&Richedit中光标坐标的最简单方法! 急急,如何才能把图片的底色与窗口的底色自然地融为一体? 如何改变按钮的颜色? 在mtml help workshop 中如何制作带上下文关联ID的帮助 调试程序时,控制台程序与直接建立的C++程序有区别吗? 给菜鸟推荐本书 VB调用外部DLL问题 【洗心革面,重新做人,割发断指,庄严声明】 从今以后 kook 不近女色,不灌疯水,以 panda_w 为榜样,苦练VC,研习汇编,做一个 CSDN 的正面典型! 谁有ULTRAEDIT 的注册码 能否推荐几本关于VB提高和关于VB数据库的书 紧急问题,关于SSL通过MS PROXY String类的问题 连接数据库的东东真是奇怪! 实验小学四3班的48名同学去游乐园春游,中午在餐厅订盒饭.餐厅规定:每买5份就能赠送1份.请你帮他们设计一个最经济的购买方案. 要用一元一次方程解 急就!在五一期间,小明,小亮等同学随家长一同到某公园游玩.其中票价是:成人每张35元,学生按成人五折优惠:团体票16人以上(含16人)按成人票六折优惠.小明爸爸说: 上海教育出版社七年级上寒假生活p27、p30、p45!p27:香烟烟雾对小金鱼的影响p30:乐器与演奏p45:拓展研究 晨光小学六一班有36人到附近公园游玩,售票门口写着:“门票每人8元,40人以上可降价1/5.怎样买票花费最 在五一期间,小明,小亮等同学随家长一同到某公园游玩.其中票价是:成人每张40元,学在五一期间,小明,小亮等同学随家长一同到某公园游玩.其中票价是:成人每张40元,学生按成人五折优惠:团 七年级寒假生活答案(上海教育出版社) 答案 48名同学去游乐园春游,中午在餐厅订盒饭,餐厅规定每买5份赠送一份,设计最经济购买方案 在“五一”期间,小明、小亮等同学随家长一同到某公园游玩,下面是购买门票时话爸爸:大人门票是每张35元,学生门票是五折优惠,我们一共12人,共用350元.小明:爸爸,等一下让我算一算,换一 上海2014七年级寒假生活像科学家那样思考 实验小学四(3)班的48名同学去游乐园春游,中午在餐厅订盒饭.餐厅规定:每买5份就能送一份.请你帮他们设计一个最经济的购买方案.不要方程算式(☆_☆) 在五一期间,小明、小亮等同学随家长一同向某公园游玩,下面是购买门票时,小明与他爸爸的对话票价; 成人每张40元.学生;按成人票5折优惠..团体;【16人以上,含16人】按成人票6折优惠.爸 上海教育出版社 红色封面的!第一单元语文是阅读感悟是荷包蛋第二第三单元的答案 48名同学去春游,中午定盒饭,餐厅规定:没买5份就能赠送1份,怎样购买 星期天爸爸妈妈带小明去游公园,买一张门票一共用去17.5元一张,一张成人票与三个儿童票的价钱相等,一张成人票多少元? 山东版寒假生活p30数学题请帮我一道题.相当于走迷宫.顺序:每一个字都走一遍,一个只能走一次,假 寒 乐 快 乐 快 ←入口快 乐 寒 假 寒 假 →出口乐 快 假 寒 假 寒寒 假 快 乐 快 乐假 寒 乐 关于海底世界的作文 400字 星期天爸爸妈妈带小明去游公园,买门票一共用去17.5元,一张成人票与三张儿童票的价钱相等,一张成人票多少元? 初二寒假生活P30研究题在正三角形ABC所在平面内是否存在这样的点P,使以点P和点A,B,C中任意两点为顶点的三角形都是等腰三角形?如果存在的话,这样的点P有几个? 关于海底世界的作文(100字) 爸爸妈妈带小红游公园,公园门票公用去10.5元,已知一张大人与三张小孩的票价相等 形容寒假生活的成语 关于海底世界的作文(100个字) 六一时,爸爸妈妈带带小明逛公园,买门票共用去10.5元,已知一张大人票价与三张小孩子票价钱数相等.一张大人票多少元? 小学六年的生活可以用-----(填成语)来形容,也让我认识了许多好朋友,我们每天在一起----(填成语)在这即将毕业的时刻,我想对他们说-----(填古诗).说到古诗,我在学校阅览室读了许多,每次 作文写海底世界的300字!急 列方程:四张门票共花了11元.成人门票每张4元.儿童门票每张多少元?(两个大人,两个儿童) 调查问卷的结构、组成和种类是怎样的? 求一篇以游海底世界的作文 小明一家去动物园买门票共花了21元成人票6元儿童票3元小明家可能去几个大人和小孩 我要具体的,好一点的,有时间地点的…… 请问北京海洋馆,富国海底世界,太平洋海底世界哪个更好玩呀?顺便说下地址和里面玩的项目~ 爸爸妈妈带小玲和同学去公园,买门票一共需要多少钱成人;每张5元儿童每张2.5元?爸爸妈妈带小玲和同学去公园,买门票一共需要多少钱成人;每张5元儿童每张2.5元 生物学调查表,要有特色一点哦! 动物园门票每位大人20元,动物园门票大人20元,小孩10元.六一儿童节那天,儿童免票,结果与前一天相比,大人增加到原来的1.6倍,儿童增加到原来的1.9倍,共增加了2100人,但门票收入与前一天相同, 北京海洋馆 太平洋海底世界哪个好玩些?麻烦说一下这两个里面都有什么玩的~大概能玩多久~我和男朋友去哪个比较好呢? 小芳和爸爸妈妈去公园玩,门票用去22.5元,一张儿童票价是成人票价的一半,一张成人票价是多少钱要算式 请问重庆动物园和永川动物园哪个好玩些,现在去的话成人与儿童的票价分别是多少?自驾游 我打算和女朋友去北京玩 请问北京动物园海洋馆 富国海底世界 太平洋海底世界这3个地方哪比较好玩 20个大人和4个孩子去买票,怎么买最合算(成人20儿童10团体10人以上12)价格表成人:20元儿童:10元团体:(10人或10人以上)12元 星期天,爸爸妈妈带着小丽去公园玩,买门票共用去了37.5元.已知一张成人票与两张儿童票的价格相等,一张成人票多少钱 北京动物园\海洋馆\富国海底世界\太平洋海底世界哪个好玩点?最好的是去过的介绍下还有哪个里面有表演啊?大概几点? 五一,2个成人带小明去公园,买票用10.5元知一张大人票价和三张小孩票价相等,一张大人,小孩票各多少?用去、10.5 爸爸妈妈星期日带小东去游公园,买门票共用去3.5元,已知一张大人票的价钱与3张小孩爸爸妈妈带小明游公园,买门票用去3.5元,已知一张大人票价与三张小孩票价相等.一张大人票()元. 六(3)班36名同学去景湖公园游玩,公园的具体收费情况如下:儿童票每张8元,四十张开始可以享受团体票价,团体票价按五分之一优惠.算一算,怎样购买门票最合算,可以少付多少元? 某公园的成人票是20元,儿童票价是8元,甲旅行团成人和儿童共有20名;乙旅行团的成人数是甲的旅行团的2倍而儿童人数则是甲旅行团的一半,已知两个旅行团共花费了816元购买门票,你能求出甲 爸爸妈妈带小玉去公园玩,他们买门票一共用去27.5元.已知一张成人票与两张儿童票票价相等,一张成人票多少 某公园的票价是:每人10元;一次购票满30张,每张可少收2元.某班有26名同学去公园游玩,当班长准备好钱到钱到售票处买26张票时,爱动脑筋的数学课代表喊住班长,他提议买30张票,但有的同学 某公园的成人票价是20元,儿童票价是8元甲旅行团有x名成人和y名儿童,乙旅行的成人成人数是旅行团的2倍,儿童是甲旅行团的2分之一,求两个旅行团门票费用的总数? 爸爸妈妈带4个孩子一起是动物园~他们带了50块钱~大人票是6块 孩子票是9块 问一共要付多少钱 请写出简单的算式请用?来算 某校初一年级[1]班组织学生去公园游玩,该班有50名同学组织了划船活动.[1]他们一共租了10条船,并且每条船都坐满了人,那么大、小船各租了多少只[2]他们租船一共花了多少元钱 某公园的成人票价每张是20元,儿童票价每张是8元,甲旅行团有X名成人和Y名儿童; 爸爸妈妈带小明去逛公园买门票公用十七点五元,已知一张成人票与三张儿童票的价格相同,一张成人票要多少钱? 春节期间,七(1)班的明明、丽丽等同学随家长一同到某公园游玩票价:成人每张35元学生按成人票5折优惠团体票(16人以上或16人):俺成人票的6折优惠)爸爸:大人们票每张35元,学生门票是5 某公园的成人票价是每张15元,儿童票价是每张8元,甲旅行团有x名成人和y名儿童;乙旅行团的成人数是甲旅行团的2倍,儿童数是甲旅行团的二分之一.(1)求甲,乙两个旅行团的门票总费用和 (2) 小华和爸爸妈妈到公园游玩、买门票共用去17.5元,已知成人票是儿童票的2倍,一张成人票的价格是多少元? 春节期间,六(1)班的明明、丽丽等同学随家长一同到某公园游玩,下面是购买门票时,明明与他爸爸的对话(如图),是根据图中的信息,(1)明明他们一共去了几个成人,几个学生?(2)请你帮助 某公园的成人票价每张是10元,儿童票价每张是8元,甲旅行团有x名成人和y名儿童;乙旅行团的成人数是甲旅行团成人数的2倍,儿童数是甲旅行团儿童数的1/2,两个旅行团的门票费用总和为( 东胜小学六(1)班和六(2)班租车去旅游,共花450元.已知六(1)班有40人,六(2 在五一期间,小明,小亮等同学随家长一同到某公园游玩,下面是购买门票时,小明与他爸爸的对话,爸爸;大人门票每张35元,学生问票是5折优惠.我们一共12人,共需350元.小明:爸爸,让我算一算,换 某公园成人票价20元,儿童票价8元,甲旅游团x名成人和y名儿童;乙旅游团的成人是甲旅游团的2倍,儿童是甲旅游团的1/2.(1)求两个旅游团的门票总费用是多少.(2)当x=10人,y=5人时,求两个旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn