Как узнать дату понедельника на этой неделе?

← →
Unior (2010-02-12 17:08) [0]

Необходимо вывести отчёт за все дни начиная с понедельника текущей недели - как узнать дату, ему соответствующую?

← →
KilkennyCat © (2010-02-12 17:10) [1]

прочитать справку делфи по функциям, связанных с DateTime. Там есть.

← →
Игорь Шевченко © (2010-02-12 17:16) [2]

> Как узнать дату понедельника на этой неделе?

8-е февраля

← →
12 © (2010-02-12 17:28) [3]

-Сдгаствуйте, это МВД? Скажите пожалуйста, котогый час?
-Да забирайте же уже свои часы, Абрамович, забирайте, и прекратите звонить нам каждые 20 минут!!

← →
Юрий Зотов © (2010-02-14 17:20) [4]

uses
DateUtils;

procedure TForm1.FormCreate(Sender: TObject);
var
D: TDate;
begin
D := Int(Date);
while DayOfWeek(D) <> 2 do
D := D - 1;
Caption := DateToStr(D)
end;

Как это работает - см. в справке.

← →
KilkennyCat © (2010-02-14 18:30) [5]

> Юрий Зотов © (14.02.10 17:20) [4]

Юрий, ну нельзя же быть таким пессимистом.

← →
Юрий Зотов © (2010-02-14 22:55) [6]

> KilkennyCat © (14.02.10 18:30) [5]

Костя, иногда даже написать цикл бывает проблемой. Но стоит ОДИН раз ПОКАЗАТЬ - и проблема исчезает. И потратить на это 2 минуты - не влом.

Согласен. Бывает затык в простейшей вещи, и достаточно показать, и это не означает, что человек не хочет сам, и не уменьшит его способности ну и т.д.
Как например, недавно вопрос про объявление константы в виде массива рекорда.
ИМХО, этот случай - не тот.

> Юрий Зотов © (14.02.10 22:55) [6]
>
>
> > KilkennyCat © (14.02.10 18:30) [5]
>
> Костя, иногда даже написать цикл бывает проблемой. Но стоит
> ОДИН раз ПОКАЗАТЬ - и проблема исчезает. И потратить на
> это 2 минуты - не влом.

А почему двойка? :)

Как узнать дату понедельника на этой неделе? Найти похожие ветки