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

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应用多个实例 分割图像的原理 -VB资料 封面的设计 -VB资料 改变 Win95 的 Shell -VB资料 改变墙纸 -VB资料 格式化磁盘 -VB资料 跟我学用ActiveBar-VB资料 VB获得IE的版本号 VB获得Windows启动方式 VB获得打印机驱动程序的设定 VB获得当前计算机上的区域设置 VB获得当前用户名 VB获得分区信息并判断是否有CD VB获得某个文件夹下的所有子目录 VB获得驱动器的卷标 VB获得系统中的所有字体列表 VB获得系统中鼠标的键数 获取驱动器信息-VB资料 文章主题: 获取桌面图象 -VB资料 计算两个日期间的工作日-VB资料 监视外部程序的运行情况-VB资料 检测文件是否存在 -VB资料 检测系统驱动器-VB资料 检查电子邮件地址输入的有效性 -VB资料 检查硬盘空间 -VB资料 将数据转换为内存二进制形式字符串(模拟CV?和MK?$两组函数) -VB资料 禁用 Alt-Tab 或 Ctrl-Alt-Del -VB资料 禁止使用 Alt+F4 关闭窗口-VB资料 绝非玩笑:VB7将完全面向对象 拷贝磁盘 -VB资料 控制Ctrl+Del+Alt键-VB资料 请看看这个函数... 如何确定线程运行消耗的资源量? 文件系统的树形列表怎么做啊,不要ocx的 为何我使用javascript中location'****.jsp'跳到某一页面,jsp页面不重新编译执行 VC6.0没有声音怎么办 循环20000000次所需要时间(急) 如何使按钮象工具栏上的按钮一样当鼠标移到按钮上时出现文字说明? 关于使用GDI+转换文件格式的问题. 各位能不能介绍点比较经典的算法的书籍,大家分享一下 如何恢复或新建临时表空间????在线等候!!!马上给分! Gis 请教一个数据库的问题,欢迎发言提出解决方案 ??怎样用asp程序把一段html代码转换成纯文本格式? 下拉数据窗口不能下拉是什么原因啊? 有关用VB做数据库的简单问题、ComboBox控件问题! 大家帮我看看这段程序为什么值为0 oracle8.1.7的数据库备份文件怎样恢复到oracle8i上 ? 怎样屏蔽flash的右键菜单,弹出自己的菜单? 我想问一下有没有不写入数据库用ASP代码可以查看当天的浏览访问量 灌水区的水越来越没质量了,你觉得呢? 按钮消息响应的问题,详细请看进去再看 异常详细信息: System.Data.OleDb.OleDbException: 无法启动应用程序。工作组信息文件丢失,或是已被其它用户以独占方式打开。 求助,网页制作0=={=========>(在线等,送分) 谁能告诉我《C++Builder 5编程实例与技巧》这本书在哪儿可以下载到完整的电子版!高分感谢! 请教如何将一张图片旋转? 关于流媒体和vc++的结合,高人请进!! 关于DataOutputStream和DataInputStream求教 会DirectX的一起来讨论! 4444 菜鸟求助~~~ help me 刚才发现www2.google.com www3.google.com也不能访问了,见鬼:( 我想停止window2000[域控制器]的389端口,但我不知服务是不是LDAP,因为我想占用端口389 各位!帮个忙! 帮忙啊!因为很着急,只有在技术论坛发了,大家原谅 电子地图 上海的程序员都在哪里"混"? 如何最小化所有窗口? 你们有谁读大学一学年要交近1000元书籍费? 帮忙啊!因为很着急,只有在技术论坛发了,大家原谅 asp中如何使用ADO实现对sql数据库操作 求助,网页制作0=={=========>(在线等,送分) 我在用mcisendcommond()函数时,总提示设备类型出错,是什摸原因? 紧急求教高分相送100分。 怎么判断女孩喜欢你? CSDN的首页能登录吗? C 与 C++ 到底有什么不同?? 偶然发现的mysql排序问题 是否有专业PL/SQL编辑器(能够提供类似VC的类成员或方法提示、格式自动排版等功能)可以下载 ?? 关于条码编程 非常急,请各位帮忙想想办法 大和油墨的镜面银怎么样? 地理小知识:台湾省的素有美称及其含义想到一条算一条,积少成多嘛! 橡胶止水带破损后如何处理呢 如图,三角形ABC中,角ABC=30°,以BC,AC为边作等边△BCD和等边△ACE,联结BE.求证;AB平方+BC平方=BE平方 台湾岛素有”森林宝库”,”东方甜岛”等美称,含义是什么呢?他们的含义是什么呢?有什么特殊意义?台湾岛还有什么美称呢?(地理用滴:P) 有谁知道投影仪的成像原理 以△ABC的AB,AC为边向三角形外作等边△ABD,△ACE,连结CD,BE相交于点O.①求证:OA平分∠DOE.②点F在DO上,若DF=BO,连AF,求证:△AOF是等边三角形.③求证:OA+OC=OE (1)分析长江中下游地区发展农业的有利条件和不利条件(2)分析新疆发展农业的有利条件及限制性因素 超声波在空气中的传播速度 已知函数f(x)+sin(2x+∏/3)求函数最小生周期T,以及用5点法作图 从气候和地形方面,分析新疆发展农业的有利因素和不利因素结合图一、图二 从气候和地形方面指出A地附近地区发展农业的有利因素和不利因素图一是我国年降水量分布图图二是坎儿井 谁知道硅铁冶炼焦炭加入量与哪些因素有关 地震来了要怎么办 限制四川盆地地区农业发展的最主要因素是什么? 焦炭能融化铁吗? 为什么会地震 高中地理 制约新疆地区农业发展的限制性因素为什么是水源不是水分啊1.制约新疆地区农业发展的为什么是水源不是水分啊?2.什么是水源什么水分?3.新疆不是气候干旱吗?那降水不就少吗?这 超声波在空气中的传播速度约为多少?其指向性是什么? 白酒有酸味是怎么回事?我自己在家里酿制白酒,可是这几次的都带有一点酸味.这是什么原因产生的?每次都采用相同的方法,可是只有这一次的酸, 茶镜磨砂以后玻璃是什么颜色的?是茶色还是白色? 植物怎么产生花青素 如图,在等边三角形ABC中,点D是AB边上的一点,将三角形BCD绕着点C顺时针旋转后与三角形ACE重合,说明AE∥BC VR中玻璃是什么材质.各种玻璃的参数是多少 花青素的植物来源? 为什么打来白酒或醋,可以闻到酒香或酸味? 影响新疆绿洲农业的主要因素是: 照相机和投影仪是运用了凸透镜能( )原理制成的? 淋巴因子与神经递质是否处于内环境 我们只是要做回自己,英文 哪些植物有花青素 淋巴因子是内环境成分吗 现在你必须要做回自己用英语怎么翻译 请问:含有“花青素”的植物有哪些?比如说“旱菜” T细胞可以产生淋巴因子么 效应T细胞呢?抗体由哪个细胞产生 吞噬细胞呢 总是分不清 T细胞可以产生淋巴因子么 效应T细胞呢?抗体由哪个细胞产生 吞噬细胞呢 总是分不清 希望详细回答 英语翻译"做回自己"帮我翻译下能不能是第一人称的前面再加个Just有什么区别呢 投影仪是根据凸透镜成放大实像原理制成,当物理离凸透镜__时成放大实像.当物理离凸透镜__时成放大虚像,当物体离凸透镜____时成缩小的实像 淋巴因子作用于抗原发生于内环境这句话是错的, 做回自己用英文怎么说 什么植物花青素最高请问什么植物花青素含量最高.请问什么植物提取的花青素最有价值.请问什么植物的花青素最好提取. 用一根84厘米的木做一个正方体框架,每根短木条多少厘米 对新疆维吾尔自治区农业生产产生不利影响的自然条件主要有________. 变形虫对食物的摄取与体内线粒体有关对么 哪里错了 什么是镜面银油墨 请大家帮帮忙,解释一下蚂蚁为什么怕酸味?谢谢了,很急很急! 下列关于内环境稳态调节的描述中正确的是A 所有的调节都有反射弧参与B 所有的稳态都是相对的C 所有的稳态的形成都有许多系统参与D 所有稳态的调节中枢都在大脑C为什么不对? 浓度为30克/升 含量在3%左右的硫酸可以用什么材质的管道输送 如图,以三角形ABC的边BC,AC为一边作等边三角形BCD和等边三角形ACE,连接DE.试猜想DE和AB的数量关系并证明. 不能正确描述人体调节内环境稳态的有A.ph的调节与血液中存在缓冲物质有关B.水和无机盐平衡的调节是有一定联系的C.胰岛素是血糖调节中唯一降血糖的激素D.维持体温恒定主要是通过体液调 用到镜面银油墨的有哪些产品 如图,三角形abc为等腰三角形,ac=bc,三角形bcd和三角形ace分别为等边三角形,求证g是ab中点.求两种方法 中国古代木结构建筑的抗震智慧是如何以柔克刚的 发烟硫酸用什么材质的泵和管道输送呢?说明选择的原因 免疫系统的功能是什么? 分析一下初中物理直流电动机和交流电动机构造及原理最好用途来说明,从构造和原理详细说一下, 使用镜面银油墨的注意事项? 变形虫摄取食物的时候,它的细胞发生什么变化~ 防盗门上的“猫眼”的构造是何原理, 镜面银油墨哪家好? 太阳能电池单体和太阳能电池片一样吗 新疆知名农业企业有那些?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘