Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.15.10.137] |
|
Сообщ.
#1
,
|
|
|
Поместить значение текущей даты в переменную типа 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) |