[apc700]

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

Код:

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]

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

Код:

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

[Asinkrit]

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

[NIch]

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

Код:

//***********************************************
//Дни недели по росийскому стандарту - первый день Понедельник
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;
//***********************************************