Текущий архив: 2005.08.14;
Скачать: CL | DM;
Вниз
Вычисление первого и последнего дня недели! Найти похожие ветки
← →
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;
← →
serguncho © (2005-07-22 16:15) [4]Спасибо всем!
Страницы: 1 вся ветка
Текущий архив: 2005.08.14;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.045 c
