Ошибка в DayOfWeek
При попытке выполнения скрипта типа
Т.е. FS различает TDateTime и Extended, но Now, StrToDate, Date возвращают Extended...
begin
ShowMessage(IntToStr(DayOfWeek(now)));
end.
Вываливается ошибка Incompatible types: 'TDateTime', 'Extended'Т.е. FS различает TDateTime и Extended, но Now, StrToDate, Date возвращают Extended...
Комментарии
AddMethod('function DayOfWeek(aDate: TDateTime): Integer', CallMethod4, FCatDate);