Функция для работы со времененм -> Форум на Исходниках.Ру

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

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

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

Функция для работы со времененм

SCINER

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

Moderator

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

Поместить значение времени в переменную типа 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)

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

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

[ Script execution time: 0,0122 ] [ 15 queries used ] [ Generated: 15.09.25, 19:09 GMT ]