unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DateUtils;type TMainForm = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var MainForm: TMainForm;implementation{$R *.dfm}procedure TMainForm.Button1Click(Sender: TObject); begin ShowMessage(DateToStr(StartOfTheWeek(StrToDate('2003-3-11')))); end;end.
StartOfAWeek(const ayear,aweekyear:word,const adayofweek:word=1):tdatetime 如: var ayear,aweekofyear,adayofweek:word; begin ayear:=2001;//年 aweekofyear:=2;//第二周 adayofweek:=1;//第一天 ShowMessage(DatetimeToStr(StartOfAWeek(ayear,aweekofyear,adayofweek))); end;返回是2001/01/08 AM 12:00:00
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DateUtils;type
TMainForm = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
MainForm: TMainForm;implementation{$R *.dfm}procedure TMainForm.Button1Click(Sender: TObject);
begin
ShowMessage(DateToStr(StartOfTheWeek(StrToDate('2003-3-11'))));
end;end.
如:
var ayear,aweekofyear,adayofweek:word;
begin
ayear:=2001;//年
aweekofyear:=2;//第二周
adayofweek:=1;//第一天
ShowMessage(DatetimeToStr(StartOfAWeek(ayear,aweekofyear,adayofweek)));
end;返回是2001/01/08 AM 12:00:00