Определение дня недели по дате

[shurik_7866]

Есть ли в Windows функция которая бы позволяла по дате определять день недели?

[Serge_Bliznykov]

в Delphi (в исходникам системной библиотеки SYSUTILS) это реализовано так:

type
{ Date and time record }

  TTimeStamp = record
    Time: Integer;      { Number of milliseconds since midnight }
    Date: Integer;      { One plus number of days since 1/1/0001 }
  end;

{ Seconds and milliseconds per day }
const
  SecsPerDay = 24 * 60 * 60;
  MSecsPerDay = SecsPerDay * 1000;

{ Days between 1/1/0001 and 12/31/1899 }

  DateDelta = 693594;

{ Date/time support routines }

const
  FMSecsPerDay: Single = MSecsPerDay;
  IMSecsPerDay: Integer = MSecsPerDay;

function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;
asm
        MOV     ECX,EAX
        FLD     DateTime
        FMUL    FMSecsPerDay
        SUB     ESP,8
        FISTP   QWORD PTR [ESP]
        FWAIT
        POP     EAX
        POP     EDX
        OR      EDX,EDX
        JNS     @@1
        NEG     EDX
        NEG     EAX
        SBB     EDX,0
        DIV     IMSecsPerDay
        NEG     EAX
        JMP     @@2
@@1:    DIV     IMSecsPerDay
@@2:    ADD     EAX,DateDelta
        MOV     [ECX].TTimeStamp.Time,EDX
        MOV     [ECX].TTimeStamp.Date,EAX
end;

function DayOfWeek(Date: TDateTime): Integer;
begin
  Result := DateTimeToTimeStamp(Date).Date mod 7 + 1;
end;

[Мастак]

Есть (WinApi,Kernel32.dll) ---> GetLocalTime
http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx
Возвращает данные в структуру SYSTEMTIME
http://msdn.microsoft.com/en-us/libr...=VS.85%29.aspx

Она вроде только текущее время и дату определяет.)

[Serge_Bliznykov]

Мастак, а с чего Вы взяли, что ему нужен день недели ТЕКУЩЕГО дня?!

Да и блин, судя по теме в разделе Дельфи, TC нужно банально в Delphi получить день недели!

и чего было в раздел WIN API лезть, не понимаю!

[*PB*]

В PureBasic для этого есть функция DayOfWeek которая по указанной дате может вернуть день недели.
Могу сделать DLL из этой функции если кому-то нужно.

[Мастак]

Сообщение от Serge_Bliznykov

Мастак, а с чего Вы взяли, что ему нужен день недели ТЕКУЩЕГО дня?!

Я ни с чего не взял. То что ты не потрудился уточнить то, что тебе надо не является ошибкой другого человека )