Вычисление первого и последнего дня недели!

← →
serguncho © (2005-07-22 15:04) [0]

Добрый день!

ВОзникла проблема с получение даты первого и последнего дней недели.
Использую код:
now_day:=dayofweek(monthcalendar1.Date)-1; decodedate(monthcalendar1.Date,y1,m1,d1); if now_day=0 then begin first_day:=d1-6; last_day:=d1; end else begin last_day:=7-now_day+d1; first_day:=d1-now_day+1; end;

Работает хорошо только, если все дни недели одного месяца. Если получается конец одного и начало другого месяца на одной недели, то уже не работает. Как разрешить эту проблемку?

← →
Плохиш © (2005-07-22 15:07) [1]

StartOfTheWeek

← →
Anatoly Podgoretsky © (2005-07-22 15:10) [2]

Date - DayOfTheWeek(Date)-1

← →
Digitman © (2005-07-22 15:20) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
dt: TDateTime;
now_day: Integer;
begin
dt := strtodatetime("1.7.2005");
now_day:=dayofweek(dt)-1;
showmessage("Начало : " + datetimetostr(dt - now_day + 1) + " Конец : " + datetimetostr(dt + 7 - now_day));
end;

Спасибо всем!

Вычисление первого и последнего дня недели! Найти похожие ветки