Предмет: Информатика,
автор: qawkaz
Перевод программы с 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
Ответы
Автор ответа:
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.
Приложения:
Аноним:
Даже на две строки короче))
Похожие вопросы
Предмет: Физика,
автор: petrovaangelina713
Предмет: История,
автор: mukhambetiyarmedina2
Предмет: Алгебра,
автор: ylanasoltis
Предмет: Математика,
автор: tagul
Предмет: Литература,
автор: sergan1999s