Question

delphi7中，我获取了系统时间yyyymmddhhmmss给edit1，请问我怎么才能在Edit2中获取到另一个时间。

这个时间格式同edit1，是edit1时间减去十分钟！
用decode和encode之后，前面的年、月、日不对，减去十分钟是实现了，发愁中

Answer 1

//FormatDateTime中mm代表的是月份,取分钟请用nn

uses DateUtils;

var
date :TDateTime;
begin
date := Now;
edit1.Text := FormatDateTime('yyyymmddhhnnss', date);
Edit2.Text := FormatDateTime('yyyymmddhhnnss', IncMinute(date, -10));
end;

Answer 2

//FormatDateTime中mm代表的是月份,取分钟请用nnusesDateUtils;vardate:TDateTime;begindate:=Now;edit1.Text:=FormatDateTime('yyyymmddhhnnss',date);Edit2.Text:=FormatDateTime('yyyymmddhhnnss',IncMinute(date,-10));end;

Answer 3

#include "DateUtils.hpp" //Delhi的自己改下格式
TDateTime t=t1；//edit1的时间
t=IncMinute(t,-10);
edit2=t的时间; //格式自己改

Answer 4

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

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

var
Form1: TForm1;
olddatetime: tdatetime; //声明一个全局时间变量用来记录赋值给edit1时的时间
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
olddatetime := now; //将系统时间赋值给olddatetime
edit1.Text := formatdatetime('yyyymmddhhmmss', olddatetime); //按照指定格式赋值给edit1
end;

procedure TForm1.Button2Click(Sender: TObject);
var
newdatetime: tdatetime; //声明一个时间变量用来记录新的时间
begin
newdatetime := olddatetime - 10/60/24; //进行运算减去十分钟 tdatetime的单位为天
edit2.Text := formatdatetime('yyyymmddhhmmss', newdatetime); //按照指定格式赋值给edit2
end;

end.

Answer 5

用decode，再用encode