функция для отделения времени от даты

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
Cnoppiks
Обычный пользователь
Обычный пользователь
 
Сообщения: 89
Зарегистрирован: 17.08.2005 (Ср) 17:52

функция для отделения времени от даты

Сообщение Cnoppiks » 11.11.2005 (Пт) 12:33

Доброго дня!
Есть ли в VBA программные средства, отделяющие время от даты, если в ячейке типа Дата/время стоят значения в следующей форме: 01.07.2005 0:11:56 и т.д.?
Хочу все знать....

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 11.11.2005 (Пт) 12:42

Дата - число с плавающей точкой. День в целой части, время в дробной.
Fix().
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Andrey Fedorov
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3287
Зарегистрирован: 21.05.2004 (Пт) 9:28
Откуда: Москва

Сообщение Andrey Fedorov » 11.11.2005 (Пт) 13:58

GSerg писал(а):Дата - число с плавающей точкой. День в целой части, время в дробной.
Fix().


А посему можно писать и так:

Код: Выделить всё
    Dim d As Date
    For d = Date - 7 To Date + 14
        Debug.Print Format$(d, "Short Date")
    Next d
   
    For d = #7:00:00 AM# To #8:31:00 PM# Step #12:30:00 AM#
        Debug.Print Format$(d, "Short Time") & "-" & Format$(d + #12:30:00 AM#, "Short Time")
    Next d
Фиг Вам! - Сказал Чебурашка, обгладывая Крокодила Гену...

Cnoppiks
Обычный пользователь
Обычный пользователь
 
Сообщения: 89
Зарегистрирован: 17.08.2005 (Ср) 17:52

Сообщение Cnoppiks » 11.11.2005 (Пт) 14:46

Отлично, спасиба!!!!
С Fix все элементарно оказалось
Хочу все знать....


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 2

    TopList