Формат хранения даты-времени в VB6

[ger_kar]

Хотелось бы узнать как все-таки храниться дата и время в переменной типа Date в VB6.
Перерыл интернет, но относительно формата хранения такого типа в Visual Basic 6 полная тишина.
Например, то что написано для MS SQL Server, а именно :

Выдержка из русскоязычного BOL:

Значения типа datetime хранятся в виде 4-байтовых целых чисел. Первые четыре байта содержат количество дней до или после даты отсчета: 1 января 1900 года. Дата отсчета является системной датой. Вторые четыре байта содержат текущее значение времени, представленного в виде трехсотых долей секунды, прошедших после полуночи.

Для VB6 не совсем подходит. Ибо при занулении тех 4 байт, отвечающих за время, время изменяется, но не обнуляется.
Для того, чтобы округлить значение даты/времени до одной даты (занулить время) приходится использовать такую конструкцию:
= DateAdd("d", DateDiff("d", 0, DT), 0), где DT - это округляемое значение.
Такой подход достаточно громоздкий и не очень хорош с точки зрения лени . Но при знании устройства этого формата, тоже самое можно было - бы получить используя булеву операцию с маской.

[Mikle]

Date - это обычный Double, время в сутках, прошедших с 30 декабря 1899 г. Там, вроде как, учли поправку календаря, поэтому такое число.

[Qwertiy]

Но при знании устройства этого формата, тоже самое можно было - бы получить используя булеву операцию с маской.

Зачем так сложно? Вроде бы вот так можно:

Код: Выделить всё

Dim D As Date
' ...
D = Int(D)

Date - это обычный Double

Точно Double? Я почему-то считал, что там fixed point.
Хотя, возможно путаю с Currency (там-то точно fixed point).

[ger_kar]

Date - это обычный Double, время в сутках, прошедших с 30 декабря 1899 г. Там, вроде как, учли поправку календаря, поэтому такое число.

Ну оно же кроме даты еще и время содержит. Тогда, если представить дату в виде значения Double получается что дата - это целая часть, а дробная - это соответственно время.

Зачем так сложно? Вроде бы вот так можно:

Код: Выделить всё

Dim D As Date
' ...
D = Int(D)

Вот же блин...
Спасибо, все оказалось предельно просто. И как я сам до этого не допер
Теперь буду юзать этот способ.

Точно Double? Я почему-то считал, что там fixed point.

Если честно, то я не очень понимаю как устроен сам тип Double, но если принять во внимание что этот тип плавающий, тогда становится понятным, что сама целая часть тоже не постоянного размера. И видимо по этому я не мог однозначно определить эту границу, так как она плавающая.
Надо теперь посмотреть как устроен Double.
Надо было давно такую тему создать, а то применял всякую фигню

[ger_kar]

Попробовал применить конструкцию с Int применительно к SQL запросам к базе данных MS JET4.0 (Access) из VB6 и оказалось, что она и там вполне себе работоспособна, что есть большой гут

[Хакер]

что сама целая часть тоже не постоянного размера.

Целой части нет вообще.