关于日期计算(50分)

Y

yangyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #1

var
s3: string;
d1,d2:tdate;
day:integer;
begin
s1:='2000-03-10';
d1:=strtodate(s1);
d2:=date(); //今天日期：'2000-03-28'
day:=d2-d1;
end
我要计算出日期d2和日期d1之间的天数，
day:=d2-d1这行代码要如何修改？请各位帮忙，谢谢！

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #2

好象可以直接算吧， 不敢肯定。date 可以直接运算。

 

O

o*o

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #3

Date是Double，Trunc(d2-d1)即可。

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #4

day:=trunc(d2-d1);

 

H

huahui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #5

把2000-03-10该成00-03-10就行了！！_

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #6

原来o*o已经会答了。。。。。

 

O

o*o

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #7

是呀，沈兄，我会答的问题可不多呀。

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #8

我不是有意的，我打开后，正好有事，当个了一会儿。。。。。

那里，我许多都是向o*o兄学习得到的.....

 

千

千中元

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #9

date()得出00-3-28

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #10

trunc(d2-d1) 不行：

比如： 1月2日 1:00 - 1月1日 23:00 ，
减出来是 2 个小时， 只有 0.x 天，而我们的习惯是虽然只差2个小时
但是也隔 1 天，因此，用：
用 trunc(d2)-trunc(d1) 比较合理

 

Y

yangyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #11

谢谢各位！
day:=trunc(d2-d1) 可以。

 

O

o*o

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #12

怎么忙着结束了？

日期只有当时间为12:00am时为整数。
看来应该是Round(d2)-Round(d1)

BTW: 我是开玩笑，沈兄怎么解释上了？见外了不是？呵呵。
因为你说的是： 原来o*o已经“会”答了。。。。。

 

Y

yangyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #13

var s3: string;
d1,d2:tdate;
day:integer;
begin
s1:='2000-03-10';
d1:=strtodate(s1);
d2:=date(); //今天日期：'2000-03-28'
day:=trunc(d2-d1);
end
在此d1,d2是 tdate 型而非 tdatetime 型,
我测试day:=trunc(d2-d1)可以。

 

O

o*o

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #14

HELP上的东西把我搞糊涂了。

Following are some examples of TDateTime values and their corresponding dates and times:

0 12/30/1899 12:00 am
2.75 1/1/1900 6:00 pm
-1.25 12/29/1899 6:00 am
35065 1/1/1996 12:00 am

12:00 am 是不是写错了？

 

千

千中元

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #15

又给错分了，把该给pipi的给我了。。呵呵。。赚了。。