Перевод строки в значение времени

[Viper]

Что-то торможу после ударного труда
Имеется строка, вида

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

00:15:12.0156

содержащая время. После точки доли - секунды. Как и чем это преобразовать в тип Date. Проблема в том как (вернее чем) доли секунды запихать в Date.

[jangle]

а в чем проблема-то? миллисекунды отбрасывай, нафиг они нужны:

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

Dim f As Date
Dim z As String
z = "00:15:12.0156"
f = Mid$(z, 1, InStr(1, z, ".", vbBinaryCompare) - 1)
MsgBox f

[Wolfie]

Боюсь что никак не пихнуть доли в Date-тип, т.к. там жестко определено что-куда, и для долей места нет... Ну чем string-то плохо?
Ну на крайняк, может легче все время перевести в доли секунды и в long\double сохранить да радоваться....

[Viper]

а в чем проблема-то? миллисекунды отбрасывай, нафиг они нужны:

Вот как раз тот случай, когда они нужны...

Wolfie, вроде хранит Date доли секунды? Или ошибаюсь?

[Wolfie]

Ну я имхо говорил по личному опыту, MSDN смотреть надо...
но мне не удалось ей присвоить это дело никакими способами - более того, доли секунды можно-ли получить через time? а Date вроде чисто как Date и Time функции сделан, если я ошибаюсь - поправьте. Но се же, не проще ли хранить в лонге? Ведь там, где речь идет о долях секунды, думаю о часах и сутках речи не будет?

[tyomitch]

Хранит.
Date -- это тот же Double, по единице на день.
Направление ясно?

[Viper]

Схранил все в Long. Возиться с Double/Date времени нет... хотя на будущее можно будет и повозиться с этим вполне извесным фактом, что Date есть Double

[tyomitch]

В каком виде сохранил в Long? Как число миллисекунд?
Тогда подели на 86400000, получится Date

[Viper]

Нды... и действительно... Все как всегда просто и рядом....

[Wolfie]

tyomitch круто ))) так как все же тогда сохранять в date
милисекунды и заодно, можно ли их без всяких заморочек и АПИ получить? и если их дает time, то как их вывести через format$?

кстати - в милисекундах не 4 знака, а 3. ведь 1\1000 это 0.001
а то .0156 уже 156\10000 получается?

[tyomitch]

Wolfie, задача для третьеклассника: если число миллисекунд переводится в Date делением на 86400000, тогда как из Date получить число миллисекунд?

[Wolfie]

Да нет же, функция Date и ей аналогичная Time ставят ТЕКУЩЕЕ состояние даты и времени.
Допустим я пишу Log-File и хочу проставлять туда не просто hh:nn:ss но и милисекунды - возможно ли это? Вот о чем я спрашиваю, насчет перевода и так понятно

[tyomitch]

GetLocalTime

[Andrey Fedorov]

Да нет же, функция Date и ей аналогичная Time ставят ТЕКУЩЕЕ состояние даты и времени.
Допустим я пишу Log-File и хочу проставлять туда не просто hh:nn:ss но и милисекунды - возможно ли это? Вот о чем я спрашиваю, насчет перевода и так понятно

Вот набросал на скорую руку примерчик в Date помещаем время с тысячными и потом выводим полученный результат в строку. Работает кажись правильно, но может еще можно упростить - лень уже. Может желающие смогут...

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

Public Sub Main()
    Dim d As Date, dd As Date, ct As Date, f As Double, i As Integer
   
    ct = Now
    Debug.Print ct
    For i = 0 To 999 Step 7
        ' В dd сохраним дату с тысячными секунды
        dd = ct + i / 1000 / 86400
       
        ' Выводем полученную дату...
        Debug.Print FormatTTT(dd), i
    Next i
    Debug.Print ct
End Sub

' Возвращает строку дата/время с тысячными секунды
Private Function FormatTTT(dd As Date) As String
    Dim d As Date, f As Double

    d = dd - Int(dd)
    f = 86400 * d
    f = f - Int(f)
    d = Int(dd) + (d - f / 86400)
    FormatTTT = Format$(d, "General Date") & "." & Right$(Format$(1000 * f, "000"), 3)
End Function


[tyomitch]

В Now нету тысячных секунды. Там уже округлено до секунд.

[Andrey Fedorov]

В Now нету тысячных секунды. Там уже округлено до секунд.

Если внимательней посмотришь, то тысячные секунды я сам прибавляю и потом вывожу.

Главное что Date/Double хватило...

[tyomitch]

Да нет же, функция Date и ей аналогичная Time ставят ТЕКУЩЕЕ состояние даты и времени.
Допустим я пишу Log-File и хочу проставлять туда не просто hh:nn:ss но и милисекунды - возможно ли это? Вот о чем я спрашиваю, насчет перевода и так понятно

[Andrey Fedorov]

Ваще примитив:

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

Public Sub Main()
    Dim i As Integer, d As Date
   
    For i = 0 To 100
        d = Date + Timer / 86400 '  Вот оно!
        Debug.Print FormatTTT(d), i
    Next i
End Sub

Private Function FormatTTT(dd As Date) As String
    Dim d As Date, f As Double

    d = dd - Int(dd)
    f = 86400 * d
    f = f - Int(f)
    d = Int(dd) + (d - f / 86400)
    FormatTTT = Format$(d, "General Date") & "." & Right$(Format$(1000 * f, "000"), 3)
End Function


[alibek]

Я обычно Timer-Fix(Timer) использовал, помоему это проще.

[Andrey Fedorov]

Я обычно Timer-Fix(Timer) использовал, помоему это проще.

Я же написал чтобы с датой было.

[alibek]

Now()+Timer-Fix(Timer).

[Andrey Fedorov]

Now()+Timer-Fix(Timer).

Зацени результат:

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

?Now()+Timer-Fix(Timer), Date + Timer / 86400
27.01.2007 2:04:23          26.01.2007 9:11:54
27.01.2007 5:32:27          26.01.2007 9:11:51
26.01.2007 12:39:49         26.01.2007 9:11:42


[alibek]

(посыпаю волосы пеплом)
Format$(Now(),"dd.mm.yyyy hh:nn:ss") & Mid$(Format$(Timer-Fix(Timer),"0.000"),2)

[Andrey Fedorov]

Ближе к истине.
Но обычно перед тысячными ставят точку, а не запятую, да и бывает полезно иметь значение в переменной Date для обработки...

[tyomitch]

Now()+Timer-Fix(Timer).

Зацени результат:

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

?Now()+Timer-Fix(Timer), Date + Timer / 86400
27.01.2007 2:04:23          26.01.2007 9:11:54
27.01.2007 5:32:27          26.01.2007 9:11:51
26.01.2007 12:39:49         26.01.2007 9:11:42


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

? Now+(Timer-Fix(Timer)) / 86400, Date + Timer / 86400


[Andrey Fedorov]

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

? Now+(Timer-Fix(Timer)) / 86400, Date + Timer / 86400


Ну и я говорю - где проще - слева или справа?

[tyomitch]

Да я не спорю. Просто я довёл идею alibek-а до работоспособного состояния
(У меня ведь намного проще, чем в его окончательном варианте?)

[Wolfie]

Спсаибо, Господа )