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

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

VB中Combo的一种输入检查制约方法的实现 VB中Winsock控制的UDP协议的使用 VB中的时间处理问题 Windows操作平台下CGI的实现 -VB资料 按下某组键(HotKey)便执行某程式-VB资料 把所有的字体名称放到 ComboBox -VB资料 把文件置入到Text或RichText中-VB资料 捕捉 MouseExit 事件 -VB资料 操作过程动态显示 -VB资料 查找月份的最后一天-VB资料 程序启动时,如何自动判断 MDB文件是否损坏并自动修复?-VB资料 读取和修改Windows注册表 -VB资料 对VB的IDE环境的扩展 防止文本控件中的部分滚动-VB资料 关闭正在运行的程序 -VB资料 关机消息的拦截 -VB资料 VB获得、设置鼠标双击间隔时间 VB获取当前系统平台 记载Windows使用的时间-VB资料 加速Visual Basic For Application(VBA) 监视程序的运行情况 -VB资料 交换鼠标按钮 -VB资料 交换鼠标左右键 -VB资料 禁止使用 Alt-Tab 或 Ctrl-Alt-Del -VB资料 控制光驱门的开关 -VB资料 VB利用 窗口函数监视系统的运行情况(VB类) VB判断是否在VB5环境下运行 VB判断一个32位程序是否结束 VB判断一个程序启动完成(不是结束) 屏蔽TextBox的系统菜单 -VB资料 启动时禁止装入 Add-Ins -VB资料 如何用CSS控制INPUT的输入外观不是立体的,而看起来是平板的样子,只有一个边线? 用户注册的问题,密码总验证不对,能不能看看错在哪里? 如何使文本框只显示下面的边框? xsl求助~~~ 怎么将int转为CString 有的论坛采用从数据库得到帖子,有的使用shtml,有的使用xml,孰优???还有其他吗? 100分==在JSP中打开word文件的实例 紧急在线等一个很简单的问题 DTPicker 怎样和数据库绑定? 如何动态改变VB报表中Section中的一个与数据环境绑定的rptTextBox的颜色!(100分求教) datediff()这个函数怎么用哪位高手可否给小弟讲解一下急用在线等 和女友分手了,痛苦! 谁有支持中文的带身份验证和邮件群发的ASP.NET邮件组件? 关于多个表通过相同的字段级联的问题,进来看看,一定给分! windowd server 2003许可证问题 谁有支持中文的带身份验证和邮件群发的ASP.NET邮件组件? 求合作伙伴——推广抗非典病毒的消毒剂!!! 在表分区中,按某个varchar2的字段的值和范围如何分呢 我又來了,不僅你們煩,我更煩. 服务器端与客户端的问题 服务器端与客户端的问题 最后的问题,谢谢帮我看看 发现MS WINDOWS版的C标准库一个在BUG!!!!! 在用VFP操作EXCEL时出现无法用字段内容填充单元格问题,请各位帮忙看看. 算法 救命! 有没有rmi的好例程,一用就灵,急 fast report 和 qreport 到底应该用哪一个???(来者有分!!) 关于“数据结构书”的回应——版主莫删 如何进入另一个对话框 在一字符串中怎样取出某一个字符出现的次数. 急! infopower 2000、 3000、4000 Password?? 自定下载的问题,请教高手 如何屏蔽播放.wav文件但找不到相应.wav文件时发出的默认声音? 如何打开另一个对话框 政治因素对我国军事专家的困扰[ZT] if ((btime==null)&&(etime==null )) 请教 一位女同事辭職,一位男同事說跟我有關,鬱悶中... 请问如何在B/S模式下,在页面上实现,如word,excel中的编辑功能? 如何画一个二元函数的图象 急!高分求教:Epson TM U300微型打印机打印作业丢失问题!(100分) word中如何做浮动窗口或按钮等? 大于255个字符的SQL语句如何来写?在线等待 請大家不要煩這種貼子,我都更煩.我是沒有辦法了 兼职Java软件工程师 怎样去掉用户输入的字符串里的引号? 如何获得 表中定位的 消息? 在keil下的debug session下遇到的问题。 高分相送,不够另开贴相送 有没有类似数字里的sum函数对应的把文本连接起来的函数啊 甲、乙两数的平均数是45,已知甲、乙两数的比是2:4,甲乙两数分别是多少? 在三角形ABC中,角C=90度,D是BC中点,且角ADC=45度,AD=2,求tanB的值有图的,但还不能传,大概描述下A在C的上面,B在 C的右边,其他的没什么了吧应该听得懂吧~ 已知△AOB的顶点坐标分别是A(4,0),B(0,3),O(0,0),求△AOB外接圆的方程. 有一群小孩,他们中任意5个孩子的年龄之和比50少,所有孩子的年龄子和是202.这群孩子至少有多少人?要写出解题步骤!必写,不然不给分! 在三角形abc中 角c 90度 点d是bc的中点 且角adc 60度 ac等于根3 求tanb的值 已知△AOB的顶点坐标分别是A(4,0),B(0,3),O(0,0),求△AOB外接圆方程. 求两个小孩的年龄两个小孩的年龄分别为X,Y,且X的平方加XY等于99,这两个小孩的年龄各是多少? 在△ABC中,∠C=90°,D是BC的中点,且∠ADC=50°,AD=2.求tanB的值 化简m-n+3(m-n)-5(m-n)的结果等于 有一群小孩,他们中任意5个孩子的年龄之和比50少,所有孩子的年龄之和是202,这群孩子至少有多少?选项里没有22!我也以为是22! 7分之3:6分之5的最简整数比 已知集合M={x-y,x+y,xy},P={x²+y²,x²-y²,0},且M=P,求实数x,y的值. 团结是胜利的根本是什么意思 6分之5比4分之3的最简整数比是多少 外偏旁口内一女字怎么读如题 文汇出版社的寒假生活(高一化学)哪里有卖!最好是徐汇 闵行的 或者上海书城现在是否有 子曰:人而不仁,如礼何,人而不仁,如乐何的意思 分光计的反射镜能不能随便放置 子曰:“人而不仁,如礼何!人而不仁,如乐何?"我要准备课前三分钟 有关于[子曰:“人而不仁,如礼何!人而不仁,如乐何!”] 的①翻译②重点词 特殊句式③感悟 或 延伸课外之类的没有重点词么重 在三角形ABC中,角C=90度,D是BC的中点,角ADC=60度,AC=根号3,求三角形ABD的周长 已知三角形AOB的顶点分别A(-1,5),B(5,5),O(6,-2),求此三角形的外接圆的方程 子曰:“人而不仁,如礼何?人而不仁,如乐何?” 在Rt三角形ABC中,角c=90度,D是BC的中点,角ADC=60度,AC=根号3,解这个三角形 家长用什么教育方法让孩子初步感知生活中数学的有用和有趣 丁博士,文汇出版社(封面是紫色无图的) 已知2/x+3+2/3-x+6x-6/x^2-9的值为整数,则整数x有若2x-18/x^2-9的值为整数,则整数x有,我化简下来就是2x-18/x^2-9,接下来不会算了 高一数学题在线求解 x可以是2吗 在第三步 为什么 :如图,AD是圆O的直径,过D的切线交BC于点P,连接PO并延长分别交Ac,AB于N,M.求证ON=OM 已知关于x的一元二次方程x²+(m+3)x+m+1=0.求证:无论m取何值,原方程总有两个不相等的实数根. 如何引导幼儿感知和体会生活中的数的有用 AD是△ABC的外接圆O的直径,过D作圆O的切线交BC于P,连接并延长PO分别交AB、AC于M、N,求证:OM=ON. 已知关于x的一元二次方程x²+(m+1)=0,求证:无论m取何值,原方程总有两个不相等实数根 孩子体验盲人生活后家长的感受 已知pa,pb是圆o的切线若po=26,ab=24,om<pm,求ap及圆o的半径长 m的2次方加m加1/4,分解因式 (m+3)的平方-4m大于等于零,可以化简为(m+3)的平方-4m大于等于零,可以化简为 已知集合A=(x^2-ax>=x-a),集合B=(2log2(x-3) 已知一元二次方程x²-2x+m-1=0 (1)说明当m取任何实数时,方程有两个不相等的实数根已知一元二次方程x²-2x+m-1=0 (1)说明当m取任何实数时,方程有两个不相等的实数根 (2)当m分别取-2.0. n的平方减去m的平方 分之 m的平方减去n的平方 化简 等于多少 求证:如专图——五角星 ∠A+∠B+∠C+∠D+∠E=180° 直线m平行于直线n,则此时角1角2角3角4之间有什么关系最好要过程 恻隐之心,仁之端也;差恶之心,义之端也,辞怀之心,礼之端也是非之心,智之端也,]这名言的意思是什么� 三角形ABC的三条外角平分线所在的直线相交构成三角形DEF,那么三角形DEF的最大角a的取值范围是? 邮编056200每个数字是什么意思 1道初四数学二次函数题在一个直角三角形的内部作一个矩形ABCD,其中AB和CD分别在两条直角边上.(点A就是直角A)1.设矩形的一边AB=x,那么边AD的长度表示为( )2.设矩形的面积为y,当x取何值时y 设事件A表示"体温高于标准体温",事件B表示"肺部感染"P(B)=0.005,P(A|B)=0.95,P(~A|~B)=0.95.求体温高于标准体温条件下,肺部感染的概率是多少? 邮编的每个数字有什么含义? 有没有高人能告诉我初四数学二次函数怎么学?哎天哪,英语,政治都是第一,数学考得很烂,最后虽然考了第一但是非常侥幸,冒了我一身虚汗,有人能告诉我这部分数学知识怎么学吗?听课听得很 .意思子曰:“人而不仁,如礼何?人而不仁,如乐何?” 如图所示 在三角形ABC中,角C=90度,AC=BC,角平分线AD=8cm,试求三角形ABC的面积. 实践调查作业的格式怎么写绿色环保实践作业与生活有关 已知x1+x2=m,x1x2=3,x2+x3=2,x2x3=m,求m 三个和尚为什么没水喝? 地理(大洋洲)位置:位于______ 与 ______ 之间,西临______ ,东临______ ,与 ______ 洲, ______ 洲隔海相望,既跨 ___半球,也跨___ 半球 2、范围:包括______ 大陆,______ 岛,______ 南、北岛,______ 岛 “若溶质为结晶水合物,溶于水后,其溶质的质量就不包括结晶水的质量了”为什么这么说? 效率高的复习方法 题目是我为祖国自豪,要写我的实践和体会,该怎么写呢? 第十题 求详细过程 a的平方等于30,求a等于多少? 已知△AOB的顶点坐标分别是A(4,0)B(0,3)C(0,0)求AOB外接圆方程(两种方法)我要具体过程! 日式料理或将成非物质文化遗产 已通过中国周边的阳关道和新亮点法女艺术家创“女版兵马俑”讽刺重男轻英皇室5人出席小王子受洗 教父母选择韩首尔大学医院工会罢工 抗议大搞扩建福岛核电站排水沟雨水辐射量激增 创下美警方误将中国灯笼当手榴弹致地铁站关“中国动力”吸引辛格访华中国与中东欧青年政治家论坛在京开幕沪指重挫1.25% 大消费普跌银行独专家称地下水九成遭污染 修复一亩地最中联重科A股收跌2.94% H股股价俄富豪赠女友奢华电子香烟 镶246颗俄媒称中国和印度商定定期举行联合军演意大利父子专制冒牌名酒遭警方查获 将星巴克回应售价质疑 称在中国利润不比“秀中文”成为俄罗斯政要新时尚美国男子跑马拉松织出近4米长围巾 破文莱将实施严厉伊斯兰刑法 通奸者将被日本首相安倍表示将对离岛等土地买卖实高考降英语比重引热议 能否撬动高考改午夜金评,本周收官之战,操作建议从悉尼到墨尔本 #08 Khanco好尴尬啊。。握个手就不能走点心吗?投资市场犹如战场,绝地反击在此一举曾经的亚洲第一经济体濒临崩溃 中国何负利率?何时再加息?美联储是要闹哪样“先核政治”或成金正恩时代重要标志欧美阻扰中国争取市场经济地位;中国:低油价“屠杀”页岩油,美国使出一招““恐怖数据”带来大惊喜,美元创两周新女上将首次出任美战区司令认清自己认清市场,投资不会输追求远远把心态甩在身后,不匹配你无法中国再次经济独占鳌头,打疼了外媒的脸九十万买辆国产车,当坐进里头一看忙不现实版的“农夫与蛇”,为何中国总养白农村小伙40万买奔驰GLC,走在路上倒车的时候将头伸出车外,这个动作导致再给中国10年,做成这两件事必成“超揭秘一个沉寂15年的真相:轰动国人均线指标以及支撑或阻力技巧,你又知道
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘