Get the first day of week

[filipe26]

How can i get the first day of the week (type Tdatetime)of a certain date.

Thanks.

 

[Zathras]

procedure TForm1.Button1Click(Sender: TObject);
var
  dtSomeDate,dtSunday: TDateTime;
begin
  dtSomeDate := StrToDate(Edit1.Text);
  dtSunday := dtSomeDate - DayOfWeek( dtSomeDate ) + 1;
  Edit2.Text := DateToStr( dtSunday );
end;

 

[footpad]

filipe26,

Depends on what you mean by start of the week. If you're looking for Monday and are using a recent version of Delphi (e.g. 6.0 or later), you can use the StartOfTheWeek function from the DateUtils unit.

Hope this helps...

-- Lance

 

[filipe26]

Thanks.