Если кто знает, подскажите плиз)
Командой DateAdd прибавляю один час к определенной дате. Все проходит нормально, но когда дело доходит до 23:00, т.е времени перехода на новый день, возвращает следующее число, но без времени.
Например: Прибавляем к 2008-06-26 23:00:00 и получаем 2008-06-27.
Может кто сталкивался?

А так почему не получается? Привожу кусок

авторDim BeginDate As Date
Dim EndDate As Date

BeginDate = Str(Main.Calendar1.Year) + "-" + Str(Main.Calendar1.Month) + "-" + Str(Main.Calendar1.Day)
timeB = "07:00:00"
BeginDate = CStr(BeginDateN) + " " + CStr(timeB)
EndDate = DateAdd("h", 1, BeginDateN)
EndDate = Format(EndDate, "yyyy-mm-dd hh:mm:ss")

Я понимаю, что DateAdd работает правильно) Объясняю, почему получился этот "бред". По-другому не смогла)
Просто мне нужно отталкиваться не от текущего времени. Пользователь через календарь выбирает нужную дату . Далее выбирает смену - в зависимости от этого к выбранной дате нужно добавить 7:00:00, либо 15:00:00, либо 23:00:00 - это время начала выборки. И далее к выбранной дате прибавлять по одному часу, т.е выборка с 23:00 - 00:00:00, потом с 00:00:00-1:00:00 и т.д.
Как мне поступать в этом случае?

Упс, немного ошиблась), у меня вот так:
авторDim BeginDateN As Date
Dim EndDate As Date
Dim BeginDate As Date
Dim timeB As Date

BeginDateN = Str(Main.Calendar1.Year) + "-" + Str(Main.Calendar1.Month) + "-" + Str(Main.Calendar1.Day)
timeB = "07:00:00"
BeginDate = CStr(BeginDateN) + " " + CStr(timeB)
EndDate = DateAdd("h", 1, BeginDateN)
EndDate = Format(EndDate, "yyyy-mm-dd hh:mm:ss")

BeginDate - это дата и время начала выборки
End date - дата и время окончания выборки
BeginDateN - дата, выбранная пользователем из календаря

Еще раз извиняюсь) В этой строке так
авторEndDate = DateAdd("h", 1, BeginDate)

Всем спасибо, все выяснилось. Оказалось, что все прибавляется нормально, просто 00:00:00 почему-то не отображается, отбражается только дата без времени. Видимо полночь по-умолчанию не прописывыется.
А если прибавлять час не к 23:00:00, а, к примеру, к 23:00:01, то получаем 00:00:01. Я использую VB в Exel, может и поэтому.
Уф, сама запуталась в своих объяснениях...

авторЧто-то я не понял, почему мой пример с форматированием не устроил автора.
Да дело не в том, что не устроил. Как оказалось, проблема была не в форматировании. Ваш пример на тот момент тоже опробовала - был тот же результат.
автор
Бред полный. Объявляешь BeginDate как дату
...
Потом присваиваешь ей строку!
Так лучше?