• Delphi的时间处理


    这几天因为自己要学习编写一个小程序中要用到一些时间处理。就在网上搜集一些教材学习到一般的应用,做个笔记,加深印象。

    用上Delphi中相应的函数,Delphi的时间处理起来还是很容易的。

    Delphi的时间类型是TDateTime,其实是一个Double.这个double的整数部分,就是从很久很久以前的某一天算起的天数。小数就是时间部分了。因为很远很远的一天是从0点开始的。所以小数部分的0值也是对应着一天的开始0点0分0秒。


    用函数DateTimetoStr(0)就可以看到那神秘很远的一天了。这其中用数字0做参数,表明TDateTime是double.同理也可以用TimetoStr(0),TimetoStr(0.5),看一看时间的转换。

    函数:
    DateTimetoStr()
    DatetoStr()
    TimetoStr()

    strtotime('10:00:00)
    strtodate('2006-2-8')
    strtodatetime('2006-2-8 10:00:00')
    注意其中日期时间显示的成文本时候的格式。

    转换成文本时候,还有另外一个函数:
    FormatDatetime(Formatestring,TDateTime):String
    返回值依然是格式化好的string.倒是Formatstring是一个值得研究。
    其有用的格式字符:mmmm表示月份, dd表示日, yyyy表示年, hh:mm:ss 是时间(其后用AM/PM 有无来切换12/24小时制)。当d单独写且超过三个ddd,则表示星期。除月日,其它各项间要用','间隔。里面可加用'""'包含的字符,会原样添加到返回值中。

    Delphi help 中的一个例子:
    S := FormatDateTime('"The meeting is on " ddd, mmmm d, yyyy, " at " hh:mm AM/PM',Now);
    则s值为:The meeting is on Wednesday, February 15, 1995 at 2:30 PM

    Now(),返回当前系统时间的TDateTime

    既然TDateTime是一个double,相互之间是可以直接进行运算的。当然考虑到时间的实际意义,只能进行加和减的运算。比如:Now+1,就表示第二天的这个时候。Now-0.125表示3小时以前。

    Now()是用来取系统时间,Win32的时间与delphi的TDateTime的格式还是不同的。
    win32时间格式在delphi中定义为:TSystemTime,在delphi中我们可以不用直接处理它。例如now函数在取时间的时候已经帮我们自动转化成TDateTime格式了。

    Now()的反向操作,改写系统时间。
    用到一个win32 API函数:SetLocalTime(TSystemTime)
    而TDateTime到TSystemTime的转换是用DateTimetoSystemTime(TDateTime,TSystemTime)
    要注意的是其参数,而不是用函数的返回值得到TSystemTime。

  • 相关阅读:
    SVM – 线性分类器
    解决mybatis generator无法覆盖XML
    windows下IDEA的terminal配置bash命令
    mysqldump定时备份数据库
    linux清理日志脚本
    MySQL主从同步配置
    mysql binlog日志自动清理及手动删除
    linux搭建FTP服务器并整合Nginx
    mysql解除死锁状态
    git取消跟踪已版本控制的文件
  • 原文地址:https://www.cnblogs.com/mitang/p/3567519.html
Copyright © 2020-2023  润新知