Delphi的怎么获取当前的时间并且转换为精确到毫秒

最近有一个任务(使用Delphi开发),需要获取时间,并且精确到毫秒,并以人性化的方式展示出来,比如2015-08-17 19:32:00 800

2个回答

   var
    currentTime:TSystemTime;
    year, month, day, hour, minute, second, millisecond: string;
    datetime: string;
  begin
    GetSystemTime(currentTime);
    year:= IntToStr(currentTime.wYear);
    month:= IntToStr(currentTime.wMonth);
    day:= IntToStr(currentTime.wDay);
    hour:= IntToStr(currentTime.wHour);
    minute:= IntToStr(currentTime.wMinute);
    second:= IntToStr(currentTime.wSecond);
    millisecond:= IntToStr(currentTime.wMilliseconds);

    datetime:= year + '-' + month + '-' + day + ' ' + hour + ':' + minute + ':' + second + ':' + millisecond;
    ShowMessage(datetime);
  end;

其中TSystemTime的定义为

   PSystemTime = ^TSystemTime;
  _SYSTEMTIME = record
    wYear: Word;
    wMonth: Word;
    wDayOfWeek: Word;
    wDay: Word;
    wHour: Word;
    wMinute: Word;
    wSecond: Word;
    wMilliseconds: Word;
  end;
  {$EXTERNALSYM _SYSTEMTIME}
  TSystemTime = _SYSTEMTIME;
  SYSTEMTIME = _SYSTEMTIME;
  {$EXTERNALSYM SYSTEMTIME}
xumenger
xumenger 另外需要注意的是:同C家族的语言,比如C、C++、PHP一样,这种方法获取的时间,年月日、分钟、秒、毫秒都是正好的,但是获取的小时数会比当前时间差8个小时,所以需要你处理一下,这也是需要特别注意的地方
接近 5 年之前 回复

var
currentTime:TSystemTime;
year, month, day, hour, minute, second, millisecond: string;
datetime: string;
begin
GetSystemTime(currentTime);
year:= IntToStr(currentTime.wYear);
month:= IntToStr(currentTime.wMonth);
day:= IntToStr(currentTime.wDay);
hour:= IntToStr(currentTime.wHour);
minute:= IntToStr(currentTime.wMinute);
second:= IntToStr(currentTime.wSecond);
millisecond:= IntToStr(currentTime.wMilliseconds);

datetime:= year + '-' + month + '-' + day + ' ' + hour + ':' + minute + ':' + second + ':' + millisecond;
Form1.mmo1.Lines.Add(datetime);

end;


其中TSystemTime的定义是:
PSystemTime = ^TSystemTime;
_SYSTEMTIME = record
wYear: Word;
wMonth: Word;
wDayOfWeek: Word;
wDay: Word;
wHour: Word;
wMinute: Word;
wSecond: Word;
wMilliseconds: Word;
end;
{$EXTERNALSYM _SYSTEMTIME}
TSystemTime = _SYSTEMTIME;
SYSTEMTIME = _SYSTEMTIME;
{$EXTERNALSYM SYSTEMTIME}


xumenger
xumenger 乱七八糟
接近 5 年之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
delphi日期控件怎么获取选中的时间

delphi日期控件怎么获取选中的时间,在控件中选了日期,怎么知道客户选了哪个日期呢?

Delphi中 怎么将bytes 转换位steam

Delphi中 怎么将bytes 转换位steam 或者将bytes中的一部分数据转成integer,word 对Delphi不太了解 请大神教教我

objective c获取当前纳秒级时间

求助: objective c 获取当前纳秒级时间 有更好的思路也可以 真心感谢

delphi 获取webbrowser网页里的字符串?

我用了webbrowser控件, 窗体显示打开一个网页,网页上有个按钮,单击按钮出现一个‘delphi’的字符串,请问怎么获的这个‘delphi’字符串呢?

delphi 实时获取命令行/控制台程序的输出

现在有一个控制台程序B.EXE,为C语言编写,每隔1秒输出一个随机字符串,并printf输出到控制台。 我想编写一个delphi程序,来实时获取这个内容,但是如果通过管道的话,是可以获取,但是不能实时显示,并且原控制台也不能输出了。我想要的效果是不影响控制台程序运行的情况下获取他的printf输出。 目前自己的思路是获得到控制台的窗口句柄,然后遍历子控件,但是无法获取。貌似控制台是没有子控件的。又想通过HOOK来实现,发现也是无法HOOK的。 现在求高人指点一下,如何才能获得一个控制台的输出。而且不能影响原程序的运行与输出。也就是说写一个定时器程序,每秒抓取一次内容。但不能干扰B程序的运行。

delphi 日期格式转换问题

如何把这样的字符串 Jan 4 2012 3:12:27:866PM 转化成为正常的格式日期 yyyymmddhhnnsszzz

在delphi下实现汉字和GBK码转换(delphi XE7)

请教如何实现汉字和GBK的转换。谢谢了。 我不知道汉字和gb码的转换算法,请给位大神多多帮助,这个功能已经卡住我两天了。

Delphi 获取电脑多少个硬盘,每个硬盘多少个分区

代码的主要作用是获取当前哪个硬盘 每个硬盘对应的分区 并获取分区ID 如: ![](http://img.bbs.csdn.net/upload/201504/29/1430293646_375728.jpg) 我这里有段WMI的代码 但我的电脑获取失败,有个F盘是我存放一般文件的 获取失败了! http://bbs.csdn.net/topics/391026306?page=1#post-399163774

Delphi获取指定进程指定模块问题

请问Delphi如何获取指定进程的指定模块(例如dll文件),然后通过writeprocess来写入数据?感谢了。

Delphi中,怎么获取DLL中定义的变量

可以使用动态加载或静态加载的方式使用DLL中的方法,但是怎么能够获取DLL中定义的变量来使用它呢?

delphi dbgrideh怎么判断选中行的数据?

比如有3行数据,分别是1、2、3,数据库对应的也是1、2、3,如果我选中了第二行,怎么定位到数据库里的2呢?

Delphi7中Timage图片合并精确位置问题

本意是希望用Image1作为背景图片(大图,用Scrollbar显示),然后Image2生成图片后用鼠标任意拖拽位置,到达Image1指定位置后,采用Timage中的Canvas.Draw(x,y,Image2.Picture.Graphic)进行合并,但是坐标位置x,y始终找不准确,合并后并不是鼠标拖拽后确定的最终位置。 希望各位大仙们给个建议帮忙确定下x,y到底如何定义,谢谢大家了!

delphi中的StringGrid单元格光标走向

![图片说明](https://img-ask.csdn.net/upload/201708/23/1503483131_154785.png) delphi中的StringGrid单元格中我要选择如图所示,光标切换方向,选择横向的时候,则光标是横着走,选择纵向的时候这是竖着走请问各位大神要如何实现,我只要实现光标横向纵向走即可

请教这一句如何转换成delphi

const void * vals[] = {*boolRefTrue, getConstCFString("All") }; 请教这一句如何转换成delphi,不考虑getConstCFString函数

delphi 7和delphi xe,你选哪一个?

过去开发项目一直用delphi 7,为了避免版权问题,现在想买套正版软件,纠结于买delphi 7还是delphi xe,大家来说说它们的优缺点吧

delphi7 如何把一个表数据读出来再写到另一个表中

现有一个SQL数据库文件 请问怎么用DELPHI7把里面数据读取出来再写入另外一个表中。 数据库结构为: 学校名 学号 姓名 考号 ...... 一中 1 啊啊 1 二中 2 问问 2 ........ 以此类推 请问该怎么把数据读取再导入另一个表里面。

如何用delphi解析json字符串

有如下JSON串: {"error":0,"msg":"\u767b\u5f55\u6210\u529f\uff01","data":{"meruser":{"mid":"10","username":"xxrhdnkj","thirduserid":"","wxname":"\u732e\u53bf\u5fd7\u8bda\u7535\u8111\u670d\u52a1\u90e8","weixin":"","email":"29191619@qq.com","logo":"","source":"0","status":"1","mfypwd":"1","isadmin":"0","phone":"13127312999","thirdmid":"0","agentid":"0"},"whologin":2,"empuser":{"eid":"8","mid":"10","username":"\u5fd7\u8bda\u5546\u5bb6\u4f53\u9a8c\u673a","account":"0001","email":"29191619@qq.com","status":"1","storeid":"23","phone":"13127312999","thirdstoreid":"0","phoneStr":"131****2999","storename":"\u5fd7\u8bda\u7535\u8111\u5546\u5bb6\u5c55\u793a\u673a","hverify":0},"lgcode":"YWZkZi9wMXFZbnVOOVRkLytwTHVBRmZhblRRVmJQdmxuTCt0S2psWWpHWWI0TVl4RmhCNTVpOW5yMURlVDhVY1Z1QURJdkxUWFFZdmVjVllJMGpER0tNRmZwOU5NMkt5VTdhRlpoUUoyR21HMXVsMmZLN0FyTWZaalZaeWIzSHc1d1ptSDluYzBlYzJnTWtxMldoN0xsazF4bnhTRjZXaTlnZw=="}} 得到error和msg的值还行 如果要得到lgcode或mid的值应该如何做呢,请大家指教。

delphi 什么算法可以将00903686 加密成Mzc5Nw==,并且如何解密

delphi 什么算法可以将“00903686” 加密成类似“Mzc5Nw==”的字样?并且如何解密

Delphi XE8开发FMX 的App,IOS持续使用一段时间程序被系统杀了。。什么原因??

程序主要用于数据库查询,有40个Form,在安卓里是完全没问题的,但是到ios里就会闪退。delphi官方说一套代码,多平台通用,结果悲剧了。检查代码,感觉没有错误,在安卓下一只查询数据也不会闪退。可到了Iphon6上,刚开始没问题,多查询几次就会闪退,郁闷死我了。后来以为窗体太多是不是太占内存,就改代码,除了主窗体,其他窗体一律动态创建,关闭窗体时候马上Free;Clientdataset也一样,过程中创建,用完Free。结果一样会闪退。在xcode的instruments上观察程序内存变化,发现一个规律,就是只要Form创建之后Show出来,内存就会疯涨!关闭Form时候什么Free,FreeAndNil,DisposOf全试了个遍,内存丝毫不减。一直到内存涨到1.5G时候,程序被IOS强制干掉了——闪退。找许多人各种问无果。所以前来CSDN求助。希望有大神赐教,让小生死也瞑目。。。

大学四年自学走来,这些私藏的实用工具/学习网站我贡献出来了

大学四年,看课本是不可能一直看课本的了,对于学习,特别是自学,善于搜索网上的一些资源来辅助,还是非常有必要的,下面我就把这几年私藏的各种资源,网站贡献出来给你们。主要有:电子书搜索、实用工具、在线视频学习网站、非视频学习网站、软件下载、面试/求职必备网站。 注意:文中提到的所有资源,文末我都给你整理好了,你们只管拿去,如果觉得不错,转发、分享就是最大的支持了。 一、电子书搜索 对于大部分程序员...

在中国程序员是青春饭吗?

今年,我也32了 ,为了不给大家误导,咨询了猎头、圈内好友,以及年过35岁的几位老程序员……舍了老脸去揭人家伤疤……希望能给大家以帮助,记得帮我点赞哦。 目录: 你以为的人生 一次又一次的伤害 猎头界的真相 如何应对互联网行业的「中年危机」 一、你以为的人生 刚入行时,拿着傲人的工资,想着好好干,以为我们的人生是这样的: 等真到了那一天,你会发现,你的人生很可能是这样的: ...

程序员请照顾好自己,周末病魔差点一套带走我。

程序员在一个周末的时间,得了重病,差点当场去世,还好及时挽救回来了。

技术大佬:我去,你写的 switch 语句也太老土了吧

昨天早上通过远程的方式 review 了两名新来同事的代码,大部分代码都写得很漂亮,严谨的同时注释也很到位,这令我非常满意。但当我看到他们当中有一个人写的 switch 语句时,还是忍不住破口大骂:“我擦,小王,你丫写的 switch 语句也太老土了吧!” 来看看小王写的代码吧,看完不要骂我装逼啊。 private static String createPlayer(PlayerTypes p...

你以为这样写Java代码很6,但我看不懂

为了提高 Java 编程的技艺,我最近在 GitHub 上学习一些高手编写的代码。下面这一行代码(出自大牛之手)据说可以征服你的朋友,让他们觉得你写的代码很 6,来欣赏一下吧。 IntStream.range(1, 5).boxed().map(i -> { System.out.print("Happy Birthday "); if (i == 3) return "dear NAME"...

上班一个月,后悔当初着急入职的选择了

最近有个老铁,告诉我说,上班一个月,后悔当初着急入职现在公司了。他之前在美图做手机研发,今年美图那边今年也有一波组织优化调整,他是其中一个,在协商离职后,当时捉急找工作上班,因为有房贷供着,不能没有收入来源。所以匆忙选了一家公司,实际上是一个大型外包公司,主要派遣给其他手机厂商做外包项目。**当时承诺待遇还不错,所以就立马入职去上班了。但是后面入职后,发现薪酬待遇这块并不是HR所说那样,那个HR自...

女程序员,为什么比男程序员少???

昨天看到一档综艺节目,讨论了两个话题:(1)中国学生的数学成绩,平均下来看,会比国外好?为什么?(2)男生的数学成绩,平均下来看,会比女生好?为什么?同时,我又联想到了一个技术圈经常讨...

副业收入是我做程序媛的3倍,工作外的B面人生是怎样的?

提到“程序员”,多数人脑海里首先想到的大约是:为人木讷、薪水超高、工作枯燥…… 然而,当离开工作岗位,撕去层层标签,脱下“程序员”这身外套,有的人生动又有趣,马上展现出了完全不同的A/B面人生! 不论是简单的爱好,还是正经的副业,他们都干得同样出色。偶尔,还能和程序员的特质结合,产生奇妙的“化学反应”。 @Charlotte:平日素颜示人,周末美妆博主 大家都以为程序媛也个个不修边幅,但我们也许...

MySQL数据库面试题(2020最新版)

文章目录数据库基础知识为什么要使用数据库什么是SQL?什么是MySQL?数据库三大范式是什么mysql有关权限的表都有哪几个MySQL的binlog有有几种录入格式?分别有什么区别?数据类型mysql有哪些数据类型引擎MySQL存储引擎MyISAM与InnoDB区别MyISAM索引与InnoDB索引的区别?InnoDB引擎的4大特性存储引擎选择索引什么是索引?索引有哪些优缺点?索引使用场景(重点)...

如果你是老板,你会不会踢了这样的员工?

有个好朋友ZS,是技术总监,昨天问我:“有一个老下属,跟了我很多年,做事勤勤恳恳,主动性也很好。但随着公司的发展,他的进步速度,跟不上团队的步伐了,有点...

我入职阿里后,才知道原来简历这么写

私下里,有不少读者问我:“二哥,如何才能写出一份专业的技术简历呢?我总感觉自己写的简历太烂了,所以投了无数份,都石沉大海了。”说实话,我自己好多年没有写过简历了,但我认识的一个同行,他在阿里,给我说了一些他当年写简历的方法论,我感觉太牛逼了,实在是忍不住,就分享了出来,希望能够帮助到你。 01、简历的本质 作为简历的撰写者,你必须要搞清楚一点,简历的本质是什么,它就是为了来销售你的价值主张的。往深...

程序员写出这样的代码,能不挨骂吗?

当你换槽填坑时,面对一个新的环境。能够快速熟练,上手实现业务需求是关键。但是,哪些因素会影响你快速上手呢?是原有代码写的不够好?还是注释写的不够好?昨夜...

带了6个月的徒弟当了面试官,而身为高级工程师的我天天修Bug......

即将毕业的应届毕业生一枚,现在只拿到了两家offer,但最近听到一些消息,其中一个offer,我这个组据说客户很少,很有可能整组被裁掉。 想问大家: 如果我刚入职这个组就被裁了怎么办呢? 大家都是什么时候知道自己要被裁了的? 面试软技能指导: BQ/Project/Resume 试听内容: 除了刷题,还有哪些技能是拿到offer不可或缺的要素 如何提升面试软实力:简历, 行为面试,沟通能...

优雅的替换if-else语句

场景 日常开发,if-else语句写的不少吧??当逻辑分支非常多的时候,if-else套了一层又一层,虽然业务功能倒是实现了,但是看起来是真的很不优雅,尤其是对于我这种有强迫症的程序"猿",看到这么多if-else,脑袋瓜子就嗡嗡的,总想着解锁新姿势:干掉过多的if-else!!!本文将介绍三板斧手段: 优先判断条件,条件不满足的,逻辑及时中断返回; 采用策略模式+工厂模式; 结合注解,锦...

离职半年了,老东家又发 offer,回不回?

有小伙伴问松哥这个问题,他在上海某公司,在离职了几个月后,前公司的领导联系到他,希望他能够返聘回去,他很纠结要不要回去? 俗话说好马不吃回头草,但是这个小伙伴既然感到纠结了,我觉得至少说明了两个问题:1.曾经的公司还不错;2.现在的日子也不是很如意。否则应该就不会纠结了。 老实说,松哥之前也有过类似的经历,今天就来和小伙伴们聊聊回头草到底吃不吃。 首先一个基本观点,就是离职了也没必要和老东家弄的苦...

2020阿里全球数学大赛:3万名高手、4道题、2天2夜未交卷

阿里巴巴全球数学竞赛( Alibaba Global Mathematics Competition)由马云发起,由中国科学技术协会、阿里巴巴基金会、阿里巴巴达摩院共同举办。大赛不设报名门槛,全世界爱好数学的人都可参与,不论是否出身数学专业、是否投身数学研究。 2020年阿里巴巴达摩院邀请北京大学、剑桥大学、浙江大学等高校的顶尖数学教师组建了出题组。中科院院士、美国艺术与科学院院士、北京国际数学...

为什么你不想学习?只想玩?人是如何一步一步废掉的

不知道是不是只有我这样子,还是你们也有过类似的经历。 上学的时候总有很多光辉历史,学年名列前茅,或者单科目大佬,但是虽然慢慢地长大了,你开始懈怠了,开始废掉了。。。 什么?你说不知道具体的情况是怎么样的? 我来告诉你: 你常常潜意识里或者心理觉得,自己真正的生活或者奋斗还没有开始。总是幻想着自己还拥有大把时间,还有无限的可能,自己还能逆风翻盘,只不是自己还没开始罢了,自己以后肯定会变得特别厉害...

男生更看重女生的身材脸蛋,还是思想?

往往,我们看不进去大段大段的逻辑。深刻的哲理,往往短而精悍,一阵见血。问:产品经理挺漂亮的,有点心动,但不知道合不合得来。男生更看重女生的身材脸蛋,还是...

程序员为什么千万不要瞎努力?

本文作者用对比非常鲜明的两个开发团队的故事,讲解了敏捷开发之道 —— 如果你的团队缺乏统一标准的环境,那么即使勤劳努力,不仅会极其耗时而且成果甚微,使用...

为什么程序员做外包会被瞧不起?

二哥,有个事想询问下您的意见,您觉得应届生值得去外包吗?公司虽然挺大的,中xx,但待遇感觉挺低,马上要报到,挺纠结的。

当HR压你价,说你只值7K,你该怎么回答?

当HR压你价,说你只值7K时,你可以流畅地回答,记住,是流畅,不能犹豫。 礼貌地说:“7K是吗?了解了。嗯~其实我对贵司的面试官印象很好。只不过,现在我的手头上已经有一份11K的offer。来面试,主要也是自己对贵司挺有兴趣的,所以过来看看……”(未完) 这段话主要是陪HR互诈的同时,从公司兴趣,公司职员印象上,都给予对方正面的肯定,既能提升HR的好感度,又能让谈判气氛融洽,为后面的发挥留足空间。...

面试阿里p7,被按在地上摩擦,鬼知道我经历了什么?

面试阿里p7被问到的问题(当时我只知道第一个):@Conditional是做什么的?@Conditional多个条件是什么逻辑关系?条件判断在什么时候执...

Python爬虫,高清美图我全都要(彼岸桌面壁纸)

爬取彼岸桌面网站较为简单,用到了requests、lxml、Beautiful Soup4

无代码时代来临,程序员如何保住饭碗?

编程语言层出不穷,从最初的机器语言到如今2500种以上的高级语言,程序员们大呼“学到头秃”。程序员一边面临编程语言不断推陈出新,一边面临由于许多代码已存在,程序员编写新应用程序时存在重复“搬砖”的现象。 无代码/低代码编程应运而生。无代码/低代码是一种创建应用的方法,它可以让开发者使用最少的编码知识来快速开发应用程序。开发者通过图形界面中,可视化建模来组装和配置应用程序。这样一来,开发者直...

面试了一个 31 岁程序员,让我有所触动,30岁以上的程序员该何去何从?

最近面试了一个31岁8年经验的程序猿,让我有点感慨,大龄程序猿该何去何从。

大三实习生,字节跳动面经分享,已拿Offer

说实话,自己的算法,我一个不会,太难了吧

程序员垃圾简历长什么样?

已经连续五年参加大厂校招、社招的技术面试工作,简历看的不下于万份 这篇文章会用实例告诉你,什么是差的程序员简历! 疫情快要结束了,各个公司也都开始春招了,作为即将红遍大江南北的新晋UP主,那当然要为小伙伴们做点事(手动狗头)。 就在公众号里公开征简历,义务帮大家看,并一一点评。《启舰:春招在即,义务帮大家看看简历吧》 一石激起千层浪,三天收到两百多封简历。 花光了两个星期的所有空闲时...

Java岗开发3年,公司临时抽查算法,离职后这几题我记一辈子

前几天我们公司做了一件蠢事,非常非常愚蠢的事情。我原以为从学校出来之后,除了找工作有测试外,不会有任何与考试有关的事儿。 但是,天有不测风云,公司技术总监、人事总监两位大佬突然降临到我们事业线,叫上我老大,给我们组织了一场别开生面的“考试”。 那是一个风和日丽的下午,我翘着二郎腿,左手端着一杯卡布奇诺,右手抓着我的罗技鼠标,滚动着轮轴,穿梭在头条热点之间。 “淡黄的长裙~蓬松的头发...

大牛都会用的IDEA调试技巧!!!

导读 前天面试了一个985高校的实习生,问了他平时用什么开发工具,他想也没想的说IDEA,于是我抛砖引玉的问了一下IDEA的调试用过吧,你说说怎么设置断点...

面试官:你连SSO都不懂,就别来面试了

大厂竟然要考我SSO,卧槽。

立即提问
相关内容推荐