[killerkill]

Как узнать нынешний год? месяц? день недели?

Спасибо....

[4kusNick]

Код:

function GetCurrentDateTime: TDateTime;

var
  SystemTime: TSystemTime;
begin

  GetLocalTime(SystemTime);
  Result := SystemTimeToDateTime(SystemTime);
end;

А дальше уже сам разберешься

[Sharky]

А есть и по короче :
Компонент стандарный DateUtils
Функция DayOfTheYear -Выдает день года для значения TDateTime (ISO 8601)

Функция -DayOfTheMonth -Дает день месяца для значения TDateTime (ISO 8601)
и т д

[killerkill]

ты уверен что он стандартный? и как мне вытащить год? спс...

[killerkill]

Сделай пример кода.... плиззз

[4kusNick]

Код:

function RetDate(inDate: TDateTime; inType: integer): integer;
var
xYear, xMonth, xDay: word;
begin
Result := 0;
DecodeDate(inDate, xYear, xMonth, xDay);
case inType of
   1: Result := xYear;  // год
   2: Result := xMonth; // месяц
   3: Result := xDay;   // день
   4: if xMonth < 4 then
        Result := 1
      else // квартал
      if xMonth < 7 then
        Result := 2
      else
      if xMonth < 10 then
        Result := 3
      else
        Result := 4;
end;
end;