Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Unior © (2010-02-12 17:08:00)
Необходимо вывести отчёт за все дни начиная с понедельника текущей недели - как узнать дату, ему соответствующую?

Германн (2010-02-15 02:45:00) [1]

> Германн © (15.02.10 02:32) [8]

Снимаю вопрос.

Германн (2010-02-15 02:32:00) [2]

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

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

KilkennyCat (2010-02-15 00:55:00) [3]
Согласен. Бывает затык в простейшей вещи, и достаточно показать, и это не означает, что человек не хочет сам, и не уменьшит его способности ну и т.д.
Как например, недавно вопрос про объявление константы в виде массива рекорда.
ИМХО, этот случай - не тот.

Юрий Зотов (2010-02-14 22:55:00) [4]

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

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

KilkennyCat (2010-02-14 18:30:00) [5]

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

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

Юрий Зотов (2010-02-14 17:20:00) [6]
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;

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

12 (2010-02-12 17:28:00) [7]
-Сдгаствуйте, это МВД? Скажите пожалуйста, котогый час?
-Да забирайте же уже свои часы, Абрамович, забирайте, и прекратите звонить нам каждые 20 минут!!

Игорь Шевченко (2010-02-12 17:16:00) [8]

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

8-е февраля

KilkennyCat (2010-02-12 17:10:00) [9]
прочитать справку делфи по функциям, связанных с DateTime. Там есть.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »