[apc700]

Помогите пожалуйста, я пока учусь!
Мне нужно получить дату: 1 число месяца 1 час, 1 минута, это все получилось но мне нужно еще чтобы это было еще и понидельником. А дни недели не знаю как получить??

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var Year, Month, Day: Word;     Hour, Min, Sec, MSec : Word;   procedure TForm10.FormCreate(Sender: TObject); begin DecodeDate (Now, Year, Month, Day); DecodeTime(Now,Hour,Min,Sec,MSec); end; end.   procedure TForm10.Button1Click(Sender: TObject); begin if ((Day = 1) and (Hour = 1) and (Min = 1)) then .... end;

Admin: Не забываем про теги!

[Ultras]

по-моему так:

Код:

1 2 3 4 5 6 7 8 9 10

<b>const</b>   WeekString: <b>array</b>[1..7] <b>of </b><b>string </b>= (<font color="Navy">'Понедельник'</font>,<font color="Navy">'Вторник'</font>,<font color="Navy">'Среда'</font>                                        <font color="Navy">'Четверг'</font>,<font color="Navy">'Пятница'</font>,<font color="Navy">'Суббота'</font>,<font color="Navy">'Воскресенье'</font>); <b>var</b>   day: <b>string</b>;   day_num: integer; <b>begin</b>   day_num := <b>DayOfWeek</b>(Now); <font color="Navy"><i>//день в неделе</i></font>   day := WeekString[day_num]; <b>end</b>;

[Asinkrit]

Хотелось бы напомнить, что у функции DayOfWeek исчисление начинается с воскресения, то есть 1 это воскресение, 2 - понедельник и т д.

[NIch]

Можно делать так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

//*********************************************** //Дни недели по росийскому стандарту - первый день Понедельник function DayOfWeekRus(S: TDateTime): byte; begin   case DayOfWeek(S) of     1: Result := 7;     2: Result := 1;     3: Result := 2;     4: Result := 3;     5: Result := 4;     6: Result := 5;     7: Result := 6;   end; end; //***********************************************