盒子论坛 v2.1

function DecodeDateFully(const DateTime: TDateTime; var Year, Month, Day, DOW: Word): Boolean; $[SysUtils.pas
功能分解日期为年、月、日、星期
说明 [DOW:Day Of Week]
参考 function SysUtils.DateTimeToTimeStamp
例子
///////Begin DecodeDateFully
procedure TForm1.Button1Click(Sender: TObject);
var
Year, Month, Day, DOW: Word;
begin
DecodeDateFully(Date, Year, Month, Day, DOW);
SpinEdit1.Value := Year;
SpinEdit2.Value := Month;
SpinEdit3.Value := Day;
SpinEdit4.Value := DOW;
end;
///////End DecodeDateFully

function DayOfWeek(const DateTime: TDateTime): Word; $[SysUtils.pas
功能返回日期时间DateTime所在的星期
说明 1(星期天),2(星期一),3(星期二),4(星期三),5(星期四),6(星期五),7(星期六)
参考 function SysUtils.DateTimeToTimeStamp
例子
///////Begin DayOfWeek
procedure TForm1.Button1Click(Sender: TObject);
const
cWeekCn: array[1..7] of string =
('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');
begin
Edit1.Text := cWeekCn[DayOfWeek(Now)];
end;
///////End DayOfWeek
━━━━━━━━━━━━━━━━━━━━━

----------------------------------------------

充电..........

作者：

hnzwei (hnzwei)	★☆☆☆☆	-
	盒子活跃会员

2003/5/12 17:28:05

3楼：

楼上这位兄弟在此先谢过了，不过你可能理解错我的意思了，你说的这两种取星期和年月日我都知道，我要的是：

不管任意一天的时间，如2003.05.12是星期一，那么这个星期的星期一到星期天是“2003.05.12”-“2003.05.18”我要的是“2003.05.12”和“2003.05.18”这两个值。或2003.05.13是星期二，这个星期的星期一到星期天同样是2003.05.12-2003.05.18。以此类推。。。。

不过还是先谢谢了。。。。
----------------------------------------------
-

作者：

cjrb (Thinking In 魂)	★☆☆☆☆	-
	盒子活跃会员

2003/5/12 17:43:01

4楼：

判断是星期几再加减。
----------------------------------------------

充电..........

信息

登陆以后才能回复