Преобразовать дату в числовой формат. Условие и цель задачи: Пользователь вводит дату в...

Question

Преобразовать дату в числовой формат. Условие и цель задачи: Пользователь вводит дату в формате ‘dd.mm.yyyy’, которая присваивается строчной переменной s. Необходимо преобразовать строку в запись d, имеющую три числовых поля – day, month, year

Answer 1

Lazarus(delphi):
type
 d=record
 m1, d1, y1: integer;
end;

var s: string; d1: TDateTime;
begin
s:=edit1.text; (read(s));
d1:=strtoDate(s);
DecodeDate(d1, d[y1], d[m1], d[d1]);
end;