Уместить дату в 2 байта -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.216.5]

Модераторы: SCINER, B.V.

Уместить дату в 2 байта

SCINER

Сообщ. #1 , 11.04.04, 23:27

Moderator

Рейтинг (т): 228

Поместить значение текущей даты в переменную типа Integer (всего 2 байта)

Function IntegerToDate(ByVal i As Integer) As Date

IntegerToDate = CDate("1/1/2000") + i

End Function

Function DateToInteger(ByVal D As Date) As Integer

DateToInteger = D - CDate("1/1/2000")

End Function

'Пример

Dim i As Integer

i = DateToInteger(Date)

Print IntegerToDate(i)

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0127 ] [ 15 queries used ] [ Generated: 4.11.25, 02:42 GMT ]