📅 Вывод текущей даты и времени

1️⃣ Вывод текущей даты в формате "Short Date":

Sub OutputShortDateTime()
MsgBox "Привет!" & vbNewLine & "Сегодня " & WeekdayName(Format(Now, "w", vbMonday)) _
& " " & Format(Now, "Short Date") & " года" & vbNewLine & "Время: " & Format(Now, "Short Time")
End Sub

2️⃣ Вывод текущей даты в полном формате и приветствия в соответствии со временем суток:

Sub OutputLongDateTime()
Dim pr As String, ms As String
    If TimeValue(Time) > TimeValue("9:00") And TimeValue(Time) <= TimeValue("15:00") Then
        pr = "Добрый день!"
    ElseIf TimeValue(Time) > TimeValue("15:00") And TimeValue(Time) <= TimeValue("21:00") Then
        pr = "Добрый вечер!"
    ElseIf TimeValue(Time) > TimeValue("21:00") And TimeValue(Time) <= TimeValue("3:00") Then
        pr = "Доброй ночи!"
    Else
        pr = "Доброе утро!"
    End If
ms = Choose(Month(Now), "января", "февраля", "марта", "апреля", "мая", "июня", "июля", _
"августа", "сентября", "октября", "ноября", "декабря")
MsgBox pr & vbNewLine & "Сегодня " & WeekdayName(Format(Now, "w", vbMonday)) _
& " " & Day(Now) & " " & ms & " " & Year(Now) & " года" & vbNewLine & "Время: " & Format(Now, "Short Time")
End Sub

#VBA #ExcelVBA #Date #Time #Дата #Время