Перевод программы с 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
begin try vData := InputBox('Введите дату по образцу: дд.мм.гг', '');
if vData = '' then Exit; if Pos('##.##.##', vData) > 0 then begin if Copy(DateToStr(Now), 1, 6) + Copy(DateToStr(Now), 9, 2) = vData then ShowMessage('День: ' + Copy(vData, 1, 2) + #13#10 + 'Месяц: ' + Copy(vData, 4, 2) + #13#10 + 'Год: ' + Copy(vData, 7, 2) else raise Exception.Create('Такой даты в календаре не существует'); end else ShowMessage('Дата введена не по образцу');
except on E: Exception do ShowMessage(E.Message); end; end.
program dat;
uses
SysUtils;
var
vData: string;
begin
if vData = '' thentry
vData := InputBox('Введите дату по образцу: дд.мм.гг', '');
Exit;
if Pos('##.##.##', vData) > 0 then
begin
if Copy(DateToStr(Now), 1, 6) + Copy(DateToStr(Now), 9, 2) = vData then
ShowMessage('День: ' + Copy(vData, 1, 2) + #13#10 + 'Месяц: ' + Copy(vData, 4, 2) + #13#10 + 'Год: ' + Copy(vData, 7, 2)
else
raise Exception.Create('Такой даты в календаре не существует');
end
else
ShowMessage('Дата введена не по образцу');
except
on E: Exception do
ShowMessage(E.Message);
end;
end.