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

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

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

Модераторы: 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)

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

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

[ Script execution time: 0,0129 ] [ 16 queries used ] [ Generated: 24.04.24, 15:48 GMT ]