Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=51076&view=findpost&p=336341 Sun, 11 Apr 2004 23:26:04 +0000 Функция для работы со времененм https://forum.sources.ru/index.php?showtopic=51076&view=findpost&p=336341
    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)
]]> SCINER Среда VB, компилятор, отладчик, редактор