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