Перевод программы с visual basic на ! sub dat() dim vdata as string on error goto metka vdata = inputbox("введите дату по образцу: дд.мм.гг") if vdata = "" then exit sub if vdata like "##.##.##" = true then if left(datevalue(vdata), 6) & right(datevalue(vdata), 2) = vdata then msgbox "день: " & left(vdata, 2) & vbcr & "месяц: " & mid(vdata, 4, 2) & vbcr & "год: " & right(vdata, 2) else metka: msgbox "такой даты в календаре не существует" end if else msgbox "дата введена не по образцу" end if end sub
begin
try
var vData := ReadlnString('Введите дату по образцу дд.мм.гг:');
if vData = '' then Exit;
var s := vData.MatchValue('(\d\d\.){2}\d\d');
if s = vData then
begin
var d := DateTime.Parse(s);
$'День: {d.Day}{NewLine}Месяц: {d.Month}{NewLine}Год: {d.Year}'.Println
end
else
'Дата введена не по образцу'.Println
except
'Такой даты в календаре не существует'.Println
end
end.