請問有關Tdatetime 一秒一秒加上去要怎樣呢? 謝謝

您好: 以下試試    1.使用DecodeDateTime,EncodeDateTime

implementation    uses DateUtils;    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
var
 AYear,AMonth,ADay,AHour,AMinute,ASecond,AMilliSecond:Word;
begin
DecodeDateTime(Date,AYear,AMonth,ADay,AHour,AMinute,ASecond,AMilliSecond);
ASecond:=ASecond 1;
Date:=EncodeDateTime(AYear,AMonth,ADay,AHour,AMinute,ASecond,AMilliSecond);
Label1.Caption:=DateTimeToStr(Date);
end;    procedure TForm1.FormActivate(Sender: TObject);
begin
Date:=Now;
end;

2.使用UnixToDateTime,DateTimeToUnix

implementation    uses DateUtils;    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
begin
iDate:=iDate 1;
Label1.Caption:=DateTimeToStr(UnixToDateTime(iDate));
end;    procedure TForm1.FormActivate(Sender: TObject);
begin
iDate:=DateTimeToUnix(Now);
end;

發表人 - supman 於 2005/05/04 18:40:04

你好: TDateTime, 可以把它看成 Float ( 以"天" 為整數單位 ), 加一秒就是 加 1/24/60/60, 參考看看.

Time:=IncSecond(Time,Second);

回supman 我也想過用 decodetime , encodetime , 但這個會出現很麻煩的問題就會rollover 回jest0024, 我也找到這個function 但是不是 D4 沒有的, 我就連DateUtils都找不到, 是不是有什麼方法可以update 呢? 還是只要找到那個file 再放到 program folder裡再 uses 就可以了?

您好: 我看DateUtils是1995就有了,Delphi4應該也有. 我放到這個連結您去抓吧,抓回去在Uses DateUtils就可以了. http://hk.geocities.com/supman1supman2/DateUtils.pas 發表人 - supman 於 2005/05/05 10:25:17

Const T = 24*60*60; //<- 秒 Const T = 24*60; //<- 分 Const T = 24; //<- 時 Time = (Time*T Value)/T

我try 大大給我的dateuntils.pas 會有以下的error [Fatal Error] DateUtils.pas(1): Line too long (more than 1023 characters) 另外我找到 dateutils.dcu 在delphi 2005 .net 上的 可以用嗎? 我怎樣才可以用大大的unit 呢?

您好: 直接把他函數抓出來用,看您要用UnixToDateTime或IncSecond,自己抓一下 function IncSecond(const AValue: TDateTime; const ANumberOfSeconds: Int64): TDateTime; begin Result := ((AValue * SecsPerDay) + ANumberOfSeconds) / SecsPerDay; end;    procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=DateTimeToStr(IncSecond(now,1)); end;    SecsPerDay常數值在Delphi中的定義:

Delphi syntax:
const
 HoursPerDay   = 24;
 MinsPerHour   = 60;
 SecsPerMin    = 60;
 MSecsPerSec   = 1000;
 MinsPerDay    = HoursPerDay * MinsPerHour;
 SecsPerDay    = MinsPerDay * SecsPerMin;
 MSecsPerDay   = SecsPerDay * MSecsPerSec;

dcu無法直接拿來用會有版本的問題.