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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы