ＨＥＬＰ　ＭＥ（日期计算！！！） ( 积分: 50 )

Y

yonghua530

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-27

• #1

两个日期之间怎么计算?
比如说:2005-5-27 10:11:00
到 2005-5-26 10:01:00
我想得到如下的结果:1天 00:10:00
该怎么做?

 

Y

yonghua530

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-27

• #2

两个日期之间怎么计算?
比如说:2005-5-27 10:11:00
到 2005-5-26 10:01:00
我想得到如下的结果:1天 00:10:00
该怎么做?

 

Y

yonghua530

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-27

• #3

高手快来帮我呀！！！

 

Z

zhengmw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-27

• #4

DateUtils去看delphi的这个单元，里面有相关的时间操作函数

 

2

2days

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-27

• #5

procedure TForm1.btn1Click(Sender: TObject);
var endDate:TDateTime;
BeginDate:TDateTime;
begin
endDate:=StrToDateTime('2005-5-27 9:11:00');
BeginDate:=StrToDateTime('2005-5-26 10:01:00');

Caption:=IntTostr(DaysBetween(endDate,BeginDate))+'天'+TimeToStr(endDate-BeginDate);
end;

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-27

• #6

procedure TForm1.Button1Click(Sender: TObject);
Var
d1, d2 : TDatetime;
iDays : Integer;
begin
d1 := StrToDatetime('2005-5-27 10:11:00');
d2 := StrToDatetime('2005-5-26 10:01:00');
iDays := DaysBetween(d1, d2);
Edit1.Text := IntToStr(iDays) + '天' + FormatDatetime('HH:NN:SS', d1-d2);
end;

 

L

loveqingfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #7

procedure TForm1.Button1Click(Sender: TObject);
VAR
S1,S2:STRING;
D1,D2:TDATETIME;
I:INTEGER ;
begin
S1:='2005/5/20 10:10:00';
S2:='2005/5/20 10:20:00';
D1:=STRTODATETIME(S1);
D2:=STRTODATETIME(S2);
I:=DAYSBETWEEN(D1,D2);
SHOWMESSAGE(INTTOSTR(I)+' DAYS '+FORMATDATETIME('HH:MM:SS',D2-D1));
end;
试过了 没问题。

 

爱

爱不到要偷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #8

都是异曲同工
要注意的是:在日期里的月(MM)大写,与时间里的分(mm)小写

 

Y

yonghua530

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-24

• #9

多人接受答案了。