第1个回答 2012-02-22
//FormatDateTime中mm代表的是月份,取分钟请用nn
uses DateUtils;
var
date :TDateTime;
begin
date := Now;
edit1.Text := FormatDateTime('yyyymmddhhnnss', date);
Edit2.Text := FormatDateTime('yyyymmddhhnnss', IncMinute(date, -10));
end;本回答被提问者采纳
第2个回答 推荐于2017-09-11
//FormatDateTime中mm代表的是月份,取分钟请用nnusesDateUtils;vardate:TDateTime;begindate:=Now;edit1.Text:=FormatDateTime('yyyymmddhhnnss',date);Edit2.Text:=FormatDateTime('yyyymmddhhnnss',IncMinute(date,-10));end;本回答被网友采纳
第3个回答 2017-08-26
#include "DateUtils.hpp" //Delhi的自己改下格式
TDateTime t=t1;//edit1的时间
t=IncMinute(t,-10);
edit2=t的时间; //格式自己改
第4个回答 2012-02-22
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.
第5个回答 2017-09-06
用decode,再用encode