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

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

Задать свой вопрос
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;

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт