Скачать: CL | DM;

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

← →
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 минуты - не влом.

---

← →
KilkennyCat ©   (2010-02-15 00:55) [7]

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

---

← →
Германн ©   (2010-02-15 02:32) [8]

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

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

---

← →
Германн ©   (2010-02-15 02:45) [9]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.076 c