【结帖】本周**

黄金软件 · 发表于 2008-5-15 15:50:31

想要获得本周的日期段~~
思路:判断今天是周几,
用今天的日期-周几+1得出周一的日期,
用今天的日期+(7-周几)得到周日的日期.-
这个思路对么?有什么正确的方法?

shangxy · 发表于 2008-5-15 16:04:43

http://bbs.justep.com/forum.php? ... &highlight=week
11楼的方法楼主参考一下。

黄金软件 · 发表于 2008-5-15 16:12:08

链接帖中 11楼W1=（2007.06.01+（7-week））日期型和整形可以直接进行减操作么?

shangxy · 发表于 2008-5-15 16:14:15

可以。

黄金软件 · 发表于 2008-5-15 16:41:15

var
  lrq1,lrq2,Iriqi: string;
  lDay: integer;
begin
  lDay := DateUtils.DayOfTheWeek(SysUtils.Now); //今天是周几.
  Iriqi := SysUtils.datetostr( Business.Data.SysSrv.SysService.Time); //2008-5-15
  lrq2 := Iriqi+(7-lDay) ; //周日是哪一天

提示string和int32 类型不能进行+操作

zfang · 发表于 2008-5-15 16:42:41

这么用IntToStr(7-lDay)

黄金软件 · 发表于 2008-5-15 16:46:38

我晕,用了lrq2 := Iriqi+SysUtils.IntToStr(7-lDay) ; 得出的竟然是 2008-5-153

lisb · 发表于 2008-5-15 16:52:38

var
  I: Integer;
  lStartTime, lEndTime: TDateTime;
  Date: TDateTime;
begin
// 本周
I := SysUtils.DayOfWeek(SysUtils.Now) - 1;
Date := DateUtils.IncDay(DateUtils.DateOf(SysUtils.Now), -I);
lStartTime := Date;
lEndTime := DateUtils.IncDay(Date, 7);
end;

zfang · 发表于 2008-5-15 16:58:09

错了，你应该是当前日期加上3。
var
  lrq1,lrq2,Iriqi: string;
  lDay: integer;
begin
  lDay := DateUtils.DayOfTheWeek(SysUtils.Now); //今天是周几.
  //Iriqi := SysUtils.datetostr( Business.Data.SysSrv.SysService.Time); //2008-5-15
  lrq2 := SysUtils.DateToStr(SysUtils.Now+(7-lDay));
老兄，你最好学习学习delphi相关的资料吧。

黄金软件 · 发表于 2008-5-15 17:03:22

恩,8楼方法可以实现,谢谢楼上各位热心帮助,请结贴吧~~

		自动登录	找回密码
密码			立即注册