有没有这样的函数？(15分)

H

huangHe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #1

DELHI中有这样的函数吗，给出两个时间，函数返回相差天数，例如：
27=函数（2002-8-26,2002-7-30)
-12=函数（2002-8-15，2002-8-26）

 

W

wcp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #2

好象没有，可以放到数据库里实现呀

 

W

wuyongyuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #3

procedure TForm1.Button1Click(Sender: TObject);
Var
D1,D2 : TDateTime;
V : Real;
begin
D1 := StrToDateTime('2001-8-26');
D2 := StrToDateTime('2001-7-30');
V := D1 - D2;
ShowMessage(FloatToStr(V));
end;

你可以参照我的这个过程，自己编个函数就可以了！

 

Z

zleo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #4

两个时间一减就是天数了

 

晶

晶晶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #5

我来完善一下（借花献佛），帮你写个函数出来!混点分，呵呵[][red]
Function TimeBJ(time1:string;time2:string):string;
Var
D1,D2 : TDateTime;
V : Real;
begin
D1 := StrToDateTime(time1);
D2 := StrToDateTime(time2);
V := D1 - D2;
Result:=FloatToStr(V);
end;
[/red]
不知满意否？？！！

 

Y

Yves

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #6

delphi6中是有这样的函数的，记得前几天就有一个类似的问题

 

Y

Yves

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #7

以下摘自delphi6的 帮助文件
Returns the number of whole days between two specified TDateTime values.

Unit

DateUtils

Category

date/time routines

function DaysBetween(const ANow, AThen: TDateTime): Integer;

Description

Call DaysBetween to obtain the difference, in days, between two TDateTime values.

DaysBetween counts only whole days that have elapsed. Thus, DaysBetween reports
the difference between Dec 31, 1999 11:59 PM and Jan 1, 2000 11:58 PM as 0 because
the difference is one minute short of an entire day.

daysbetween()与你的需求完全吻合！

 

V

Vinson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #8

Yves的方法好

 

H

huangHe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #9

多人接受答案了。