时间变量的基础操作：读取，赋值，时间差

最新推荐文章于 2022-07-07 14:35:14 发布

我欲混吃与等死

最新推荐文章于 2022-07-07 14:35:14 发布

阅读量1.2k

点赞数

分类专栏： delphi 文章标签： delphi 时间时间差

本文链接：https://blog.csdn.net/zhouky1993/article/details/62038218

版权

delphi 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

1、拖一个按钮，在按钮内写以下代码：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DateUtils, StdCtrls; //在使用函数DayOfTheWeek时，需引用头文件DateUtils

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  ZkyInt: Integer;
  ZkyTimeOne: TDateTime;
  ZkyTimeTwo: TDateTime;
  ZkyDouble: Double;
begin
  //----------------------------------------
  //now 用来获取当前系统的时间。
  //DateTimeToStr(<日期变量>);
  //将时间变量转为字符串，格式为年/月/日 时:分:秒。
  //-----------------------------------------
  ShowMessage('当前系统日期+时间为：' + DateTimeToStr(now));

  //-----------------------------------------
  //DateToStr(<日期变量>);
  //将时间变量转为字符串，格式为年/月/日
  //-----------------------------------------
  ShowMessage('当前系统日期为：' + DateToStr(now));

  //-----------------------------------------
  // TimeToStr(<日期变量>);
  // 将时间变量转为字符串，格式为时:分:秒
  //-----------------------------------------
  ShowMessage('当前系统时间为：' + TimeToStr(now));

  //-----------------------------------------
  //DayOfWeek(<日期变量>);
  //计算某个日期在一星期里面是第几天。
  //星期天为第一天，星期一为第二天，以此类推。
  //-----------------------------------------
  ZkyInt := DayOfWeek(Now);
  ShowMessage('今天是一星期的第 ' + IntToStr(ZkyInt) + ' 天');

  //-----------------------------------------
  //DayOfTheWeek(<日期变量>);
  //计算某个日期为星期几。
  //星期一返回1，星期二返回2以此类推。
  //需要引用头文件：DateUtils
  //同理还有DayOfTheMonth(<日期变量>);
  //DayOfTheyear(<日期变量>);
  //-----------------------------------------
  ZkyInt := DayOfTheWeek(Now);
  ShowMessage('今天是星期 ' + IntToStr(ZkyInt));

  //-----------------------------------------
  //计算两个时间之间的时间差
  //需要用double类型的变量去存放两个时间差的值
  //两个日期直接相减，得出来的值的单位为天，需自己转换成自己要的值。
  //-----------------------------------------
  ZkyTimeOne := StrToDateTime('2017/3/14 9:00:00');  //先将时间分别赋值给两个时间变量
  ZkyTimeTwo := StrToDateTime('2017/3/14 9:01:00');
  ZkyDouble := (ZkyTimeTwo - zkytimeone) * 24 * 3600; //将相差的天数转换成秒
  ShowMessage('两个时间相差的秒数为 ：' + FloatToStr(ZkyDouble));

end;

end.