Перевод программы с Visual Basic ** Pascal!!! Sub dat() Dim vData As String On Error GoTo...

Question

Перевод программы с Visual Basic на Pascal!!! 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

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

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.

---

Comments

Даже на две строки короче))