На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: SCINER, B.V.
  
    > Сколько прошло времени...
      тип данных Дате храниться как число с плавующей точкой(толькл не помню Сингле или Доубле),те тебе нужен некий коэфициент перевода,1 день в цифре равен 1,1 час-1/24 или примерно 0,041666; 1 минута -1/1440 или примерно 0,00069 и наконец одна секунда 1/86400 или в десятичной примерно 0,0000157
      Пример :
      ExpandedWrap disabled
        Dim MY_TIME As Date 'НАчальная точка отсчета
        Dim END_TIME As Date 'Конечная точка отсчета
        Dim TEMP As Single 'Количество пройденного времени
        If IsNumeric(Text1) = False Then Exit Sub
        Dim SECOND_COL As Long 'Количество секунд
         
        MY_TIME = CDate("1.02.2000") 'Начали считать с 1 февраля 2000 года
        SECOND_COL = Text1 'Прошло 14589 секунд
        TEMP = SECOND_COL / 86400
        END_TIME = MY_TIME + TEMP 'Такое время будет спустя 14589 секунд
         
        Debug.Print "Пршло лет:    " & vbTab & DateDiff("YYYY", MY_TIME, END_TIME)
        Debug.Print "Пршло месяцев:" & vbTab & DateDiff("m", MY_TIME, END_TIME)
        Debug.Print "Пршло дней:   " & vbTab & DateDiff("d", MY_TIME, END_TIME)
        Debug.Print "Пршло часов:  " & vbTab & DateDiff("h", MY_TIME, END_TIME)
        Debug.Print "Пршло минут:  " & vbTab & DateDiff("n", MY_TIME, END_TIME)
        Debug.Print "Пршло секунд: " & vbTab & DateDiff("s", MY_TIME, END_TIME)


      Это надо было?
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0144 ]   [ 16 queries used ]   [ Generated: 28.03.24, 10:57 GMT ]