Вывод текущей даты и времени
Применив несложный трюк, можно в любой момент вывести на экран окно с информацией о текущей дате и времени. Для достижения такого эффекта достаточно написать и запустить макрос, код которого выглядит следующим образом (листинг 3.84).
Листинг 3.84. Сообщение о дате и времени
Sub TimeAndDate()
Dim strDate As String, strTime As String
Dim strGreeting As String
Dim strUserName As String
Dim intSpacePos As Integer
strDate = Format(Date, «Long Date»)
strTime = Format(Time, «Medium Time»)
' Приветствие – в зависимости от времени суток
If Time < TimeValue(«12:00») Then
strGreeting = "Доброе утро, "
ElseIf Time < TimeValue(«17:00») Then
strGreeting = "Добрый день, "
Else
strGreeting = "Добрый вечер, "
End If
' В приветствие добавляется имя текущего пользователя
strUserName = Application.UserName
intSpacePos = InStr(1, strUserName, " ", 1)
' Управление ситуацией, когда в имени нет пробела
If intSpacePos = 0 Then intSpacePos = Len(strUserName)
strGreeting = strGreeting & Left(strUserName, intSpacePos)
' Вывод на экран информационного сообщения о дате и времени
MsgBox strDate & vbCrLf & strTime, vbOKOnly, strGreeting
End Sub
После каждого выполнения данного макроса на экране будет отображаться окно с информацией о текущей дате и времени. В заголовке окна, помимо имени пользователя, будет содержаться текст Доброе утро, Добрый день либо Добрый вечер (в зависимости от времени суток).