Перевод программки с Visual Basic на Pascal!!!Sub dat()Dim vData As StringOn

Перевод программки с 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) amp; Right(DateValue(vData), 2) = vData Then
MsgBox "Денек: " amp; Left(vData, 2) amp; vbCr amp; "Месяц: " amp; Mid(vData, 4, 2) amp; vbCr amp; "Год: " amp; Right(vData, 2)
Else
metka:
MsgBox "Таковой даты в календаре не существует"
End If
Else
MsgBox "Дата введена не по образчику"
End If
End Sub