На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: SCINER, B.V.
  
    > Функция для работы со времененм
      Поместить значение времени в переменную типа Integer (всего 2 байта и с точностью до минуты)

      ExpandedWrap disabled
        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)
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0215 ]   [ 17 queries used ]   [ Generated: 29.03.24, 11:27 GMT ]