求日期 ( 积分: 100 )

X

xjw10

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-19

• #1

写一个函数，求出任意一个日期所在星期的星期一的日期。

 

H

hsgrass

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-19

• #2

C:/Program Files/Borland/Delphi7/Source/Rtl/Common/DateUtils.pas

 

J

jenhon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-19

• #3

use dateUtils
yourneed_date:=datexx-dayofweek(datexx)+2;

 

X

xjw10

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-07

• #4

怎么没人回答呢。前面两位老兄的不行。

 

我

我是张小三

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-07

• #5

楼上两位不是都说了吗？LZ看不到吗？

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-07

• #6

楼主可能没看懂 jenhon 的意思。
写成函数你就知道了：

uses dateUtils;

function FirstDayOfWeek(aDay: TDate): TDate;
begin
result:=aDay-DayOfWeek(aDay)+2;
end;

 

X

xjw10

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-09

• #7

谢谢各位，我不是没因为jenhon没写成函数没看懂，我是以为他的方法错了，不明白他的算法，今天测试了一下jenhon的方法是可行的。现在结贴了jenhon，kaida，hsgrass都有分。

 

X

xjw10

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-06-09

• #8

谢谢各位，我不是因为jenhon没写成函数没看懂，我是以为他的方法错了，不明白他的算法，今天测试了一下jenhon的方法是可行的。现在结贴了jenhon，kaida，hsgrass都有分。