Оператор 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