модель кодирования переменных в Excel VBA

[tvitaly1]

DiemonStar, Казанский,

Спасибо большое, меня с integer заклинило, long конечно. :D

Впрочем, за двух long один Currency дают.

Иду на работу, когда вернусь, переделаю преобразователи с вашей помощью.

И буду разбираться с date

[DiemonStar]

И буду разбираться с date

А чего с ним разбираться? физически, это обычный double. А формат даты - лишь один из способов представления значения переменной.

[tvitaly1]

Перевел Date в двоичную, получил мантису и характеристику в десятичной системе, посчитал, получил десятичное число, дальше действую по алгоритму:

Год = отбросить дробную часть((целая часть-2)/365+1900)
Час = отбросить дробную часть((дробная часть)*24)

Вроде год получил, час тоже, но на 59 минте переходит на следующий час.
Как выцарапывать другое не знаю, и можно ли выцарапать все из десятичного числа, ведь при преобразовании идут потери?..
Как то же функции преобразования это делаю?..
Хочется тоже сделать и показать как.
В любом случае, спасибо всем.

[Казанский]

> Год = отбросить дробную часть((целая часть-2)/365+1900)
Вряд ли так просто - есть високосные годы.

Для часов, минут, секунд попробуйте

Sub bb()
Dim d#, t&, h%, m%, s%
d = Now
t = Int((d - Int(d)) * 24 * 3600) 'целые секунды
h = t \ 3600
t = t - h * 3600
m = t \ 60
s = t - m * 60
Debug.Print Format(d, "h:m:s"), h & ":" & m & ":" & s
End Sub

[DiemonStar]

> Год = отбросить дробную часть((целая часть-2)/365+1900)
Вряд ли так просто - есть високосные годы.

да не так и сложно:

God = ((D - 2) \ 1461) * 4 + ((D - 2) Mod 1461) \ 365 + 1900

[IgorGO]

я вот этим пользуюсь

God = year(d)

[DiemonStar]

Сообщение от IgorGO

я вот этим пользуюсь

God = year(d)

Игорь,

автора как-раз интересует физическая реализация хранения и преобразования типов.

[tvitaly1]

Сообщение от Казанский

> Год = отбросить дробную часть((целая часть-2)/365+1900)
Вряд ли так просто - есть високосные годы.

Для часов, минут, секунд попробуйте

Sub bb()
Dim d#, t&, h%, m%, s%
d = Now
t = Int((d - Int(d)) * 24 * 3600) 'целые секунды
h = t \ 3600
t = t - h * 3600
m = t \ 60
s = t - m * 60
Debug.Print Format(d, "h:m:s"), h & ":" & m & ":" & s
End Sub

Спасибо, Казанский... Но

Sub bb()
Dim d#, t&, h%, m%, s%
d = Now
t = (d - Int(d)) * 24 * 3600 'целые секунды
h = t \ 3600
'Так нелзя, OVERFLOV !!!!
't = t - h * 3600
'Приходится делать так:
For i& = 1 To 3600
 t = t - h
Next i&
m = t \ 60
s = t - m * 60
Debug.Print Format(d, "h:m:s"), h & ":" & m & ":" & s
End Sub

[DiemonStar]

t = Int((d - Int(d)) * 24 * 3600) 'целые секунды

t = (d - Int(d)) * 24 * 3600 'целые секунды

найдите отличия...

[tvitaly1]

Сообщение от DiemonStar

найдите отличия...

Это правка абсолютно не дает ничего нового.
делайте как я