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