Преобразование формата дата время в VBA

[Юнлинг]

Уважаемые господа!

Получая данные с внешнего источника VBA имею дату в стандартном формате времени - "dd.mm.yy hh:mm:ss". Для проведения вычислений необходимо преобразовывать ее в формат число представляющий время в экселе (0 ... 0,999988426), а затем преобазовывать в формат времени.

Вопрос какой функцией в макросе производить такие преобразования?

[IgorGO]

допустим dt - это то, что получено с внешнего источника, тогда
d = Int(dt) - это дата
t = dt - d - это время
MsgBox "dt = " & dt & " t = " & Format(t, "hh:mm:ss") - это можно посмотреть результаты присваивания

[SAS888]

В VBA для решения данной задачи есть специальная функция.
Допустим, dt - это то, что получено с внешнего источника, тогда:

MsgBox TimeValue(dt)

вернет время из комбинации даты-времени переменной dt.

[Юнлинг]

[QUOTE=IgorGO;155323]допустим dt - это то, что получено с внешнего источника, тогда
d = Int(dt) - это дата
t = dt - d - это время
MsgBox "dt = " & dt & " t = " & Format(t, "hh:mm:ss") - это можно посмотреть результаты присваивания[/QUOTE

Уважаемый IgorGO
Я понял это так
dt представленно в формате "dd.mm.yy hh:mm:ss" и я автоматически получаю t в нужном формате, т.е. t - будет находиться в промежутке от 0 до 0,99...
Или это не совсем так?
Вся гадость заключается в необходимости проведения расчетов скорость измениения процесса, т.е. деление на дельту времени. В лыюое время даже при переходе чеез сутки. а полученную дельту переводить обратно в параметр время.
Кстати ответ обратного преобразования я от Вас получил - огромное спасибо.

[Юнлинг]

Сообщение от SAS888

В VBA для решения данной задачи есть специальная функция.
Допустим, dt - это то, что получено с внешнего источника, тогда:

MsgBox TimeValue(dt)

вернет время из комбинации даты-времени переменной dt.

А это фунция точно преобразует формат времени Или придеться писать свою функцию для преобразования форматов?

[SAS888]

Если переменная dt представлена в формате дата/время (как Вы и оговаривали), то функция вернет значение в формате время (без даты).

[Юнлинг]

Для облегчения посылаю часть кода как я делаю сейчас

Dim tp1,tp2,td1,td2, result, th,tm,ts as long
...
dim oRes as ADoDB.recordset
...
oRes.Open Conn
...
do while NOT eos.oRes
th= HOUR(oRes.filed(0)).value
tm =MINUTE(oRes.Field(0)).value
ts = second(oRes.Field(0)).value
tp1=1/(th*3600+tm*60+ts)
td1 = oRes.field(1).value
oRes.Movenext
th= HOUR(oRes.filed(0)).value
tm =MINUTE(oRes.Field(0)).value
ts = second(oRes.Field(0)).value
tp2=1/(th*3600+tm*60+ts)
td2 = oRes.field(1).value
result=(td2-td1)/(tp2-tp1)
oRes.Movenext
.... далее обработка результата
loop
вопрос.
можно существует ли функция преобразования даты - времени вместо той которую я написал:
th= HOUR(oRes.filed(0)).value
tm =MINUTE(oRes.Field(0)).value
ts = second(oRes.Field(0)).value
tp1=1/(th*3600+tm*60+ts)
она у меня не работает при переходе дня естесстно

[SAS888]

1. Если Вам нужно получить абсолютное значение времени в секундах, то лучше воспользоваться другой функцией. Например, пусть oRes.Field(0) = 10.03.08 2:30:15. Тогда выделить время и получить его значение в секундах можно так:

MsgBox DateDiff("s", 0, TimeValue(oRes.Field(0)))

Где "s" - единица измерения (секунды), 0 - первая дата, oRes.Field(0) - наша переменная в формате дата/время. Функция TimeValue выделит время, а функция DateDiff - разность между этим временем и 0, т.е. абсолютное значение.
2. Если нужно получить разность между двумя переменными, представленными в формате дата/время, то, соответственно:

MsgBox DateDiff("s", dt1, dt2)

Где dt1 - первая дата, dt2 - вторая (dt1 и dt2 в формате дата/время). В этом случае будет учитываться и день, и месяц, и год. Т.е. при переходе через 0 часов изменится дата и функция это учтет.

[Юнлинг]

SAS888 Огромное спосибо. А то я всю голову сломал как мне получать разницу. Ваше предложение просто замечательное. Обязательно воспользуюсь поlсказкой. Только остаестя вопрос как мне инициализировать переменную dt1 и dt2. Если я правильно понял то
dim dt1, dt2 as date
будет представляться в формате дата+время?

[SAS888]

Если я правильно понял то
dim dt1, dt2 as date
будет представляться в формате дата+время?

Безусловно. Только правильно так:

Dim dt1 As Date, dt2 As Date

А иначе, значение dt1 будет иметь тип Variant.