Topic: Определение дня недели weekday()
Какой функцией определить день недели 0-6 ?
My Visual Database → Russian → Определение дня недели weekday()
Какой функцией определить день недели 0-6 ?
Hello abc52
procedure Form1_Button1_OnClick (Sender:TObject; Cancel:Boolean);
var dayofweek: string;
begin
dayofweek := FormatDateTime('dddd', Now);
ShowMessage(dayofweek);
end;
JB
function DayOfWeek ( Date : TDateTime ) : Integer;
Работает, но :
DayOfWeek(strtodate('25.01.2020'))= 7 суб
DayOfWeek(strtodate('26.01.2020'))= 1 вос
DayOfWeek(strtodate('27.01.2020'))= 2 пон
DayOfWeek(strtodate('30.01.2020'))= 5 четверг ?
Спасибо хотя бы так.
Здравствуйте ABC52, Jean, Sibprogsistem,
Возможно, используйте это как основу для отображения даты.
С Уважением,
Derek.
Было бы логично, если бы function DayOfWeek() зависела от системных настроек:
к сожалению, сейчас это не так
My Visual Database → Russian → Определение дня недели weekday()
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi