Создать приложение для подсчета кол-ва дней со дня рождения - VB
Формулировка задачи:
Работу делаю в EXCELe, форму создала, нужен только текст расчета дней.. Как это делается, не объяснили толком...
Решение задачи: «Создать приложение для подсчета кол-ва дней со дня рождения»
textual
Листинг программы
Sub Task
Dim N As Date, Result As Integer
N = InputBox("Дата рождения")
Result = DateDiff("d", N, Now)
MsgBox Result
End Sub