Конференция VBStreets

**KPEATOP** » 27.06.2005 (Пн) 14:21

Подскажите как преобразовать дату в целое число (количество дней)
Я делал вот так, это правильно ?

Dim vr As Date
Dim vr2 As Long

vr2 = CLng(vr)

Я просто сомневаюсь, у меня получается целое число. Это количество дней или нет ?

**Andrey Fedorov** » 27.06.2005 (Пн) 14:50

KPEATOP писал(а):Подскажите как преобразовать дату в целое число (количество дней)
Я делал вот так, это правильно ?

Dim vr As Date
Dim vr2 As Long

vr2 = CLng(vr)

Можно просто:

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

KPEATOP писал(а):Я просто сомневаюсь, у меня получается целое число. Это количество дней или нет ?

Количество дней с 30.12.1899

**uhm** » 27.06.2005 (Пн) 14:57

С 31.12.1899, все-таки :lol:

**GSerg** » 27.06.2005 (Пн) 15:15

? format(cdate(0),"dd.mm.yyyy")
30.12.1899

**uhm** » 27.06.2005 (Пн) 15:44

ага...
Весело. В VBA то же самое. А в Экселе 1 - это "01.01.1900".

UPD: а, там даты хранятся по-другому. В VB могут быть отрицательные даты, а в Экселе нет.

ЗЫ А теперь кто мне объяснит логику, почему с 30.12?

**tyomitch** » 27.06.2005 (Пн) 16:58

uhm писал(а)::scratch: ага...
Весело. В VBA то же самое. А в Экселе 1 - это "01.01.1900".

UPD: а, там даты хранятся по-другому. В VB могут быть отрицательные даты, а в Экселе нет.

ЗЫ А теперь кто мне объяснит логику, почему с 30.12?

Объяснение форматов даты: http://blogs.msdn.com/ericlippert/archi ... 53013.aspx

Всё из-за того, что в Лотусе (с которым д.б. быть совместим Эксель) 1900 год високосный. Для дат после 1.3.1900 форматы VBA и Экселя совпадают.

Там на самом деле ещё меньше логики для отрицательных дат: хранится не число дней до 30.12.1899, а нечто совершенно неописуемое.