• 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。

  • 相关阅读:
    AngularJs学习笔记--directive
    angularjs 路由(1)
    走进AngularJs(一)angular基本概念的认识与实战
    angularjs- 快速入门
    从angularJS看MVVM
    中软国际 问题一php的优缺点
    elasticsearch head安装后无法连接到es服务器问题
    Laravel5.3 流程粗粒度分析之bootstrap
    mysql执行大量sql语句
    Laravel RuntimeException inEncrypter.php line 43: The only supported ciphers are AES-128-CBC and AES-256-CBC with the correct key lengths
  • 原文地址:https://www.cnblogs.com/mitang/p/3567519.html
Copyright © 2020-2023  润新知