zoukankan      html  css  js  c++  java
  • delphi 时间差

    unit Unit1;

    interface

    uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
    System.Classes, Vcl.Graphics, System.DateUtils,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;

    type
    TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    DateTimePicker1: TDateTimePicker;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}


    function GetSubDateTime(S1, S2:string): string;
    var
    T1, T2: TDateTime;
    D, H, M, S: Integer;
    Value: Int64;
    begin
    T1 := StrToDateTime(S1);
    T2 := StrToDateTime(S2);
    Value := SecondsBetween(T1, T2);
    D := Value div SecsPerDay;
    H := Value mod SecsPerDay div SecsPerHour;
    M := Value mod SecsPerDay mod SecsPerHour div SecsPerMin;
    S := Value mod SecsPerDay mod SecsPerHour mod SecsPerMin;
    result := Format('%.2d天 %.2d小时%.2d分钟%.2d秒',[D, H, M, S]);
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    var S1,s2:string;
    T1, T2: TDateTime;
    begin
    S1 := '2015-09-23 15:44:50';

    T1 := StrToDateTime(s1) + 12/24;
    s2 := DateTimeToStr(t1);
    //S2 := '2015-09-23 16:47:51';


    Edit1.Text := s2
    //GetSubDateTime(S1,s2);
    end;

    end.

  • 相关阅读:
    [poj 1741]Tree 点分治
    [bzoj 3251]树上三角形
    [bzoj 3687]简单题 bitset的运用
    HDU [P5015] 233 Matrix
    POJ 3233
    洛谷 [P3629] 巡逻
    POJ 2728 Desert King
    洛谷 [P2886] 牛继电器Cow Relays
    POJ 1734 Sightseeing trip
    洛谷 [P3008] 道路与航线
  • 原文地址:https://www.cnblogs.com/maweiwei/p/12168248.html
Copyright © 2011-2022 走看看