Работа с датой и временем

[kuhtiov]

Есть дата и время последнего забора почты. Нужно задать условие, если прошло больше получаса, сообщить об этом, ну например Msgbox. Делал следующим образом, брал дату и время, разбивал на часы, минуты и т.д., затем сравнивал. Но вариант этот явно туповат, уверен, есть способ все упростить. Если кто знает как, подскажите пожалуйста, куда копать. Поиск юзал, нашел то что нужно, но под .NET

[Денис]

Буквально на днях был топик, как отсчитывать промежутки по полчаса. (не .net)
viewtopic.php?f=1&t=40079

[kuhtiov]

Я думаю мы меня не совсем поняли. Для пояснения, даю часть своего брелового кода

Код: Выделить всё

' Проверяем дату и время
                ErrIFNS = 1
    If DateDiff("d", Mid(s, (Nomsimv) + 43, 10), Format(Date, "dd.mm.yyyy")) < CAObdd Then
        If DateDiff("h", Mid(s, (Nomsimv) + 54, 5), Format(Time$, "hh:mm")) < CAObhh Then
            If DateDiff("n", Mid(s, (Nomsimv) + 54, 5), Format(Time$, "hh:mm")) < CAObmm Then
                ErrIFNS = 0
            Else
            End If
        Else
        End If
    Else
    End If
' Применяем результат
If ErrIFNS = 0 Then
                CAObName.BackColor = &H80FF80
                CAObBox.BackColor = &H80FF80
                CAObData.BackColor = &H80FF80
Else
                CAObName.BackColor = &H8080FF
                CAObBox.BackColor = &H8080FF
                CAObData.BackColor = &H8080FF
End if


[alibek]

А что, DateDiff("s", d1, d2) или (d1-d2) религия использовать не позволяет?

[kuhtiov]

Ну и что мне это даст? Я почти то-же самое и делал. Или я что-то не понимаю?

[alibek]

Ты делал вообще не то.

[MIT]

            Else
            End If

[kuhtiov]

Спасибо, помогло. Теперь другой геморой Есть время в секуднах, нужно перевести в text1 = дни, text2 = часы, text3 = минут. Есть подобная функция в vb или ручками лопатить?

[Хакер]

DatePart

[kuhtiov]

А можно популярнее для особо одаренных?

[Денис]

А можно популярнее для особо одаренных?

ДЛЯ ОСОБО ОДАРЕННЫХ В СТУДИИ ТЕХНОЛОГИЯ INTELLISENCE ПРИМЕНЯЕТСЯ!

[Хакер]

Денис, перестань орать.

[kuhtiov]

А можно популярнее для особо одаренных?

ДЛЯ ОСОБО ОДАРЕННЫХ В СТУДИИ ТЕХНОЛОГИЯ INTELLISENCE ПРИМЕНЯЕТСЯ!

Я не лентяй, поиск и google юзал. Но все таки вопрос остался для меня открыт. Не понял как использовать данную функцию в моем случаи, поэтому и попросил уточнить.

[alibek]

http://msdn.microsoft.com/en-us/library/aa262714(VS.60).aspx

[kuhtiov]

Ну это я понял, могу выдрать из времени часы, минуты, секунды, дату и т.д. А наоборот? Нужно из например 86400 сек. сформировать время: кол-во дней, часов, минут

[VBTerminator]

Нужно из например 86400 сек. сформировать время: кол-во дней, часов, минут

Если 86400 - это секунды, значит 86400/60 - минуты 86400/3600 - часы, 86400/3600/24 - дни.

[kuhtiov]

Это и ежу понятно. Я ищу функцию чтоб ручками это не делать. Ведь там придется еще кучу условий наворачивать ибо дней может оказаться 0, а на 0 как я думаю вам известно не делится. У меня получилось примерно так:

Код: Выделить всё

If IFN01 > 0 Then ' Если в файле настроек кол-во секунд > 0
   
        ' Считаем дни
    If IFN01 > 86400 Then ' Если кол-во секунд > 1 дня
        if01d = Fix(IFN01 / 86400) ' Расчитываем кол-во дней
   
    Else
    ifn01d = 0 ' Если кол-во секунд < 1 дня, присваиваем 0 дней
   
    End If

        ' Считаем часы
    If ifn01d > 0 Then ' Если кол-во дней > 0
    ifn01h = (Fix(IFN01 / 3600) - ifn01d * 24) ' Считаем кол-во часов - сумма часов дней
   
    Else
    ifn01h = Fix(IFN01 / 3600)  ' Если кол-во дней = 0, прочто считаем кол-во часов
   
    End If


        ' Считаем минуты

       
    If ifn01h > 0 Then ' Если кол-во дней > 0
           
            If ifn01d > 0 Then ' Если кол-во минут > 0
           
           
                ifn01m = Fix(IFN01 / (ifn01d * 24) / (ifn01h * 60))
           
           
        Else
                    If ifn01h > 1 Then
                ifn01m = Fix((IFN01 / 60) / (ifn01h * 24))
                    Else
                ifn01m = Fix(IFN01 / (60) - 60)
                End If

        End If
   
    Else
                ifn01m = Fix(IFN01 / (60))
               
    End If

Else
    ifn01d = 0
End If


Дело в том, что это по одной переменной, всего их 19. Описывать такую шнягу для 19 переменных не очень хочется. Длинновато получится. Может подскажите как упростить себе жизнь?

[Денис]

Дело в том, что это по одной переменной, всего их 19. Описывать такую шнягу для 19 переменных не очень хочется. Длинновато получится. Может подскажите как упростить себе жизнь?

Оформи этот код в процедуру и вызывай для каждого числа!

Код: Выделить всё

Private Sub IFN_Convert(byval IFN_Sec as long, byref IFN_d, byref IFN_h, byref IFN_m, byref IFN_s)

'Твой код где вместо "01" поставь прочерк "_"

end sub

Работаешь с ней так:

Код: Выделить всё

dim dim dim 'Ну ты понял

IFN01 = 123456789 ' допустим
IFN02 = 12345678
IFN03 = 1234567
...
IFN19 = 12344321

IFN_Convert IFN01, IFN01d, IFN01h, IFN01m, IFN01s
IFN_Convert IFN02, IFN02d, IFN02h, IFN02m, IFN02s
IFN_Convert IFN03, IFN03d, IFN03h, IFN03m, IFN03s
...
IFN_Convert IFN19, IFN19d, IFN19h, IFN19m, IFN19s

Еще короче, если вместо IFN01..IFN19 сделать массив IFN(19). И еще короче этого, если сделать структуру, а массив делать типа этой структуры. Показываю:

Код: Выделить всё

private Type IFN
    SecFull as Long
    Hours as Long
    Minutes as Long
    Seconds as Long
end Type

После чего слегка подпилить процедуру, подпилить код процедуры, подпилить код вызова процедуры.

[kuhtiov]

Ну, вариант А это вообще нормально, что при конвертации из времени в секунды, а потом из секунд во время, у меня получаются разные результаты? Заманался млин уже

[Денис]

Ну, вариант А это вообще нормально, что при конвертации из времени в секунды, а потом из секунд во время, у меня получаются разные результаты? Заманался млин уже

Не нормально, конечно же. Что-то ты делаешь не так. Перепроверяй код.

[MIT]

В глаза бросается строчка

Код: Выделить всё

If IFN01 > 86400 Then ' Если кол-во секунд > 1 дня

А если IFN01 = 86400, значит ноль дней?

И аналогично для остального.

[kuhtiov]

В глаза бросается строчка

Код: Выделить всё

If IFN01 > 86400 Then ' Если кол-во секунд > 1 дня

А если IFN01 = 86400, значит ноль дней?

И аналогично для остального.

Ну конечно, ноль дней и тогда дни в расчет не бирем. Или я не прав?

[kuhtiov]

А есть вообще возможность, сделать что-то вроде этого:
time1 = "11:05:18"
time2 = "12:18:25"
MsgBox time2 - time1

[VBTerminator]

А есть вообще возможность, сделать что-то вроде этого:
time1 = "11:05:18"
time2 = "12:18:25"
MsgBox time2 - time1

Есть.

Код: Выделить всё

a = TimeValue("11:00:00")
b = TimeValue("11:00:01")
MsgBox DateDiff("s", a, b, vbUseSystemDayOfWeek, vbUseSystem)

На выходе получаем разницу между b и a в секундах.
Если разницу надо выразить в других величинах, замени "s" на другое значение

[Visual Вова]

Очень просто сделать так:

Код: Выделить всё

Private Function IsLost30Minutes(ByVal StartTime As Time, ByVal EndTime) As Boolean
   If Hour(CDate(EndTime - StartTime)) = "0" Then
      If Minute(CDate(EndTime - StartTime)) = "30" Then
         If Second(CDate(EndTime - StartTime)) = "0" Then IsLost30Minutes = True
      End If
   End If
End If
End Function


Правда, эта функция (не знаю, будет работать или нет) не будет работать, если StartTime > 23:30.

[Viper]

Правда, эта функция (не знаю, будет работать или нет) не будет работать, если StartTime > 23:30.

А ничего, что правильный ответ приведен аккурат постом выше?