Оператор MsgBox - VB
Формулировка задачи:
у меня есть код:
Как мне сделать чтобы строка:
Выводилась через MsgBox. Если можно то с примером кода.
Решение задачи: «Оператор MsgBox»
textual
Листинг программы
Option Explicit Dim s$, ss$, dt As Date, yyyy, d, m, ww Private Sub Form_Load() ss = InputBox("как вас зовут ?", , "Fever Brain") Do s = InputBox("Когда вы родились ? (День/Месяц/Год) ", , "01.02.03"): If s = "" Then End Loop Until IsDate(s) dt = FormatDateTime(s) yyyy = DateDiff("yyyy", dt, Date, vbMonday, vbFirstJan1) - Abs(Month(dt) > Month(Date)) m = DateDiff("m", dt, Date, vbMonday, vbFirstJan1) ww = DateDiff("ww", dt, Date, vbMonday, vbFirstJan1) d = DateDiff("d", dt, Date, vbMonday, vbFirstJan1) MsgBox ss & "!" & vbLf & "Вы прожили " & yyyy & " лет" & vbLf & _ m & " месяцев" & vbLf & _ ww & " недель" & vbLf & _ d & " дней" End End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д