Пожалуйста, включите JavaScript для просмотра этого сайта.

Скрипты Simple-Scada

Синтаксис

function StrToDate(AStr: string): TDateTime;

Описание

Конвертирует строку с датой в TDateTime. В случае неудачи возвращает текущие дату и время.

Пример кода

var
  aDate: TDateTime;
  aStr:  string;
begin
  aStr := '15.06.2017';               // сохранить дату в строку
  Calendar1.Value := StrToDate(aStr); // вывести дату в объект "Calendar1" 
end.