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

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

指点传媒CEO专访:紧握二三线市场用户命脉 专访Waygo创始人:白切鸡怎么翻译? 探究共享软件海外营销新策略(西安站) 讲师秀8:车音网沈康麒和他的智能驾车服务 数据可视化独领风骚:看这6家初创公司如何玩转大数据? 最新研究显示:IE10防恶意软件能力比Chrome等浏览器都要强 Windows Blue正式定名Windows 8.1 对Windows 8及RT用户免费 Testin云测试破1000万次 自动化测试成趋势 接手Android后首次接受媒体采访 Sundar Pichai谈Android未来 C语言实现二分法查找 让开发者高效编程的10个新框架 Google Analytics中显示访客停留时间为“0”的秘密 大数据之惑 麻省理工三位物理学家自建数据库服务Cloudant 融资1200万美元 网页浏览器进入再造新时代 AMD揭露HSA运算架构新技术hUMA细节 美团悄然上线云主机服务:与亚马逊殊途同归,还是另有谋划? 微软发布deep-tech团队招募令,期望获得下一代开发者的支持 2013谷歌I/O开发者大会:发布多个软件产品和服务 C语言实现二分法求解方程 开发测试云与虚拟化解决方案 学苹果?微软淘汰Points支付系统改用Gift cards 甲骨文改变Java版本号命名方式 [CTO俱乐部第97期]中科院、腾讯、深圳明源研发团队管理经验分享 Android Studio来了,它能取代Eclipse吗? Google Play Game不够开放,被OpenKit炮轰 Google Play Game Service详解 不仅提供API更提供后端支持 IBM Power走向Linux,是必然的! 美国国家安全局解密特工培训手册:如何利用谷歌等大众搜索工具搜集保密数据 微软IE10如何保护上网安全(大图) 谷歌无畏苹果的理由:强力的算法和基础设施架构 请问:如何制作平面的下拉ComboBox??有代码最好 请问何处有下载《晚娘》? 不是我不想给分,是CSDN的服务器太慢了,想给都给不了 delphi中怎样引用一个数据集? 如何用java实现word文档(含图片和表格等)转换成html文件 vb中能不能再过程中定义全局的数组 当在TREEVIEW里CLICK某项时,想让LISTVIEW里的相应ITEM变成SELECTED(变为兰色选中)。 windows2000 professional 怎么屏蔽CTR+ALT+DEL 或任务管理器 成都的java程序员,请大家联系起来! 师傅出门了,还望哪位大侠能够指点一二..300分酬谢谢//小新的徒弟敬. 怎样创建一个弹出式子窗口在显示时父窗口同时为激活状态(标题栏为蓝色)? 急!请问如何在java的GUI界面上,点击一按钮,来运行一批处理文件?? 一个小问题!(不好意思问!) Dim cReg As New cRegistry 该引用哪个库(库的全名) 学习遇到的难题 特殊按钮 我想开发一个三层结构的进销存软件问题? 怦怦运气,看看有没有人知道,近来看看 请问有那个网站有关于ORACLE的入门书籍下载. 非常不错的delphi网站 我有一个问题想问问大家!!!有分送哟。 高价收购! 谁可以给我TSR完整的例程...(要有注释喔) 现在用的控件都是D版的,以后怎么注册软件啊? 请过了网络设计师的兄弟帮帮忙! 在C中,找一个字符或字符串在另外一个长字符串(64K)最后出现的位置,怎么实现最高效呢? 用 DHCP 分配了二个网段的IP地址。 “斑竹”在吗?象是只有你能够解决了!!!(附程序及错误代码!!!) 请问哪位仁兄知道SYGATE4.2 build 803的注册码? 如何在表单中阻止双引号??? 大虾们,帮我看看,这个错误和警告是什么原因造成的? 帮帮我吧 关于B/S报表? 怎样设置msflexgrid某一列的颜色? 用 DHCP 分配了二个网段的IP。 怎么能抓到密码? 在运行时想改变一个label的字体怎么改变,有没有做过的,label的属性在设计时是可以改的 fatal error C1010 找一个和VB的属性区一样的代码,控件或类库均可 如何调用在不同的窗体里自定义的过程 一个技术探讨问题,我想知道象在WORD等软件中插入图形或图象后,还能把它选择,并移动是怎样实现的? 请问:在另一个.asp文件中如何调用相同的变量? WEB初级应用问题 DIALOGBAR问题 请想报考明年的网络设计师的朋友进来聊聊 Oracle面向对象特征讨论,请进! 我学会VISUAL C++ 到底要多少时间 线程调试问题 大家一起进来讨论oracle和sql server的日志哦 请指教如果设置服务器端COM组件的权限,使终端可以访问到?分数好说啦,急,高手快帮忙! 如何把程序嵌入到widows Expolore 中? 奇函数加奇函数是什么函数?奇函数+奇函数=?偶函数+偶函数=? 圆形的面积公式怎么算,谢谢 某服装公司用公式C=10+12n计算成本费.C表示成本费,n表示做一件服装所需的时间.试根据公式填写下来n(时) 2 3.5 4.2C(元) () () () 奇函数加奇函数等不等于偶函数? 环形面积公式怎么算. 服装成本如何计算?哪位大虾知道... 奇函数加奇函数 偶函数加偶函数 奇函数乘奇函数 偶函数乘偶函数 都是什么函数 跪地急求小学数学五年级上下册网络版教科书或者关于数的整除,像:约数,倍数,质数,合数一类的.以及概念 如何计算服装的成本? 奇数与偶数一定互素( )判断题两个连续的正整数一定互素( )9的素因数只有3( ) 判断题:所有的质数中,只有2是偶数,其它都是奇数.( )急…… 有关自然数质数的.有自然数1,2,3,4……,去掉其中三个数,剩下的数的平均数是19又9分之8,已知去掉的数有两个质数,问这两个质数的最大的和是多少?(最好有解题过程), 如果a是偶数,那么a-1一定是奇数(判断题)如果a是0(0也是偶数),那么a-1就不是奇数,可标准答案说这是对的.希望你们帮我分析一下! 自然数中,任何一个奇数相邻的两个数都是( );除0以外与任何一个偶数相邻的两个数都是() 自然数C是最小的质数,且a,C的和也是质数,数字a最小是多少? 判断题1.行驶中的汽车车轮,既有平移现象也有旋转现象吗.( ) 2.奇数的因数一定比偶数的因数少.( )3.在100以内,能同时被3和5整除的最大奇数是95.( )4.棱长之和相等的两个正方体,它们的 13.6%去掉百分号,这个数就( ) 1;扩大10倍 2;扩大100倍 4;缩小100倍 若x的平方+x-2=0,则x的三次方+2x的平方-x+2007= “在一个整数后面加上百分号,这个数就缩小了100倍.”对否? 二分之根号二等于二的几次幂? 若x的平方+x-1=0,则x的立方+2x的平方+2008=? 判断 在40后面添上百分号,原数就缩小100倍.( ) 2的a次幂等于根号2/2,求a 100块的东西,我要达到30%的利润,要卖多少钱,求公式,谢谢! 关于圆弧计算公式已知圆弧弦AC长7.6米,拱BO高4.6米,求弧度、弧长、圆心角、圆半径.求详细计算公式 若(1+根号2)的四次幂=a+b根号二,则a+b等于 百分之30去掉百分号后,原数就缩小100倍.这句话对吗? 圆弧长公式已知AB为1cm,BC为2cm.AB垂直BC,求AC的弧长 由 平行四边形 而推导出 圆的公式也就是说 剪拼成平行四边形 看到平行四边形而推出 圆面积和周长的公式{只推出面积或周长其中一个的话】我也给分 大哥大姐们快点 吧我要睡觉~ 服装店有一套衣服,第一件按原价出售,没人来买,第二天大八五折,仍没人来买;第三天再降价200元,终于售出.已知售出的价格恰好是原价的60%,问原价是多少? 圆弧的弧长怎么计算?求计算公式 圆的周长公式是怎么推导出来的? 请问“一个数,如果只有1和它本身两个因数,这样的数叫质数”一句中的只有1和它本身两个因数是什么意思还有还有 “一个数,如果除了1和它本身还有别的因数,这样的数叫做合数.”除了1和它 一个数零除外,添上百分号,这个数就缩小到了原来的一百分之一.这种说法对吗? 两个奇数的和是偶数,积是奇数 这是判断题 把1.5%扩大100倍后是() 把85%的百分号去掉,结果() A不变 B 缩小到原来的100分之1 C 150一本书看了40%,表示()占()的40%一件毛衣中,羊毛占91.3%,羊绒8.7%,91.3%表示()占总含量的91 负0.25的2008次幂乘4的2008次幂等于多少? 那位朋友知道圆弧长计算公式,我一时忘记了.在此先感谢了 两个偶数的和或差一定是奇数.判断题、是对是错? 非奇非偶函数与既是奇函数又是偶函数的区别是什么?(我忘了……) 已知有理数abc满足|a-1|+|b+3|+|3c-1|=0求(a*b*c)^2003/(a^9*b^3*c^2) 列方程并求出解.一件衣服现价182元,降价X元,原价268元.列算式 怎样看出函数是奇函数,偶函数,既奇又偶函数,和非奇非偶函数 一个非零的自然数在后面加上百分号,就缩小100倍 ( ) x的平方-x-1=0 求 x的立方-2x的平方+3的值 是属于奇函数还是偶函数还是非奇非偶函数(要解的过程)1.f(x)=5x+3 2.f(x)=5x 3.f(x)=x^2+1 4.f(x)=x^2+6x+9 5.f(x)=x^2分之 1+2x^4 6.f(x)=x+x^3分之1 一个非零的自然数在后面加上百分号,就缩小100倍( )对还是错 x的平方+x+1=0,求x的立方+2x的平方+3的值 非奇非偶函数减奇函数为什么函数? 数的整除(二)求能被11整除的最大的,没有重复数字的五位数(要有算式) 已知x的平方+x+1=0,则x的立方+2x的平方+2x+3的值是 如何证明数的整除中的一个性质?如何证明“能被 7(或 11 或 13)整除的数的特征:如果数 A 的末三位数字所表示的数与末三位以前的数字所表示的数的差能被 如何证明:“7(或 11 或 13)整 10的6次幂÷4×10的4次幂等于多少? 把百分号去掉,是缩小了还是扩大了 学数学*好=8991 1奥林匹克赛*3=奥林匹克赛1 根号10的负4次幂等于多少 求服装制版基础计算公式我刚学的,想求原型板的如:袖窿深、肩宽、袖肥、上围(袖窿深)、背长(腰节)、领围…等等的公式. 在3的后面添上一个百分号,这个数就缩小了100倍 我觉得是错.缩小到原来的100分之1吧 三次根号6/三次根号2*六次根号3 用幂的形式 服装T恤单耗计算公式丝光棉面料的我想把 我计算单耗的方式向您请教下.175码的后中长为73厘米,胸围为55厘米,袖长(短袖)24厘米,1/2袖口17.5厘米,夹围(袖笼)为23.6.门幅为130,克重为155克/平
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn