Topic: Определение дня недели weekday()

Какой  функцией  определить  день  недели   0-6 ?

Re: Определение дня недели weekday()

http://myvisualdatabase.com/forum/viewtopic.php?id=5895

Re: Определение дня недели weekday()

Hello abc52

procedure Form1_Button1_OnClick (Sender:TObject; Cancel:Boolean);
var    dayofweek: string;
begin
  dayofweek := FormatDateTime('dddd', Now);
  ShowMessage(dayofweek);
end;

JB

Re: Определение дня недели weekday()

function DayOfWeek ( Date : TDateTime ) : Integer;
Dmitry.

Re: Определение дня недели weekday()

Работает, но :

    DayOfWeek(strtodate('25.01.2020'))= 7   суб
    DayOfWeek(strtodate('26.01.2020'))= 1   вос
    DayOfWeek(strtodate('27.01.2020'))= 2  пон
    DayOfWeek(strtodate('30.01.2020'))= 5   четверг   ?


    Спасибо  хотя бы  так.

Re: Определение дня недели weekday()

Здравствуйте ABC52, Jean, Sibprogsistem,
Возможно, используйте это как основу для отображения даты.
С Уважением,
Derek.

Post's attachments

Attachment icon dayofweek.zip 334.74 kb, 252 downloads since 2020-01-30 

7 (edited by k245 2020-01-31 07:28:25)

Re: Определение дня недели weekday()

Было бы логично, если бы function DayOfWeek() зависела от системных настроек:

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=6214&download=0

к сожалению, сейчас это не так

Post's attachments

Attachment icon 1.png 35.76 kb, 118 downloads since 2020-01-31 

Визуальное программирование: блог и телеграм-канал.