Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.88.211.227] |
|
Сообщ.
#1
,
|
|
|
Поместить значение времени в переменную типа Integer (всего 2 байта и с точностью до минуты)
Function TimeToInteger(ByVal T As Single) As Integer TimeToInteger = T \ 60 End Function Function IntegerToTime(ByVal i As Integer) IntegerToTime = TimeSerial(0, i, 0) End Function 'Пример Dim i As Integer i = TimeToInteger(Timer) Print IntegerToTime(i) |