Вывод даты и времени.

[mephist]

У меня совсем простенький вопрос:
Как переименовать лист в значение текущей даты и времени?
Сейчас код работает так:

ActiveSheet.Name = Date

в результате получаю "11.08.2009"
А вот я хотел бы, чтобы выполнялась такая строка

ActiveSheet.Name = Date &" "& Time

,
чтобы в результате получить "11.08.2009 19:44"
или даже может понадобиться такая вещь:
Если время суток между 11:00 и 17:00, то выдавать имя файла
"11.08.2009 11:00", а если время суток между 17:00 и 11:00, то выдавать имя файла "11.08.2009 17:00". Но для этого мне нужно знать в каком виде представляется время в VBA. (То есть время суток представляет из себя количество секунд с 00:00 или что-то еще???)

[EducatedFool]

Sub test()
    ActiveSheet.Name = Format(Now, "DD-MM-YYYY HH-NN-SS")
End Sub

Sub test2()
    Select Case Time
        Case Is < "17:00": t = "17:00"
        Case Is < "11:00": t = "11:00"
        Case Else: t = "21:00"
    End Select
    ActiveSheet.Name = Format(Now, "DD-MM-YYYY ") & Format(t, "HH-NN")
End Sub

Sub test3() ' то, что Вы просили
    ActiveSheet.Name = Format(Now, "DD-MM-YYYY ") & _
                       IIf(Time >= "11:00" And Time <= "17:00", "11-00", "17-00")
End Sub

[mephist]

Нет слов! Супер! Большое спасибо!