Как перевести текущее время "Time" в количество ми

[xamirp]

Как перевести текущее время возвращаемое функцией Time (13:45:12) в количество милисекунд с начала суток т.е. значение функции Timer? Возможно ли єто в VB6?[/syntax]

[GSerg]

Сам подумай, не?
Для начала, подойдут размышления о вращении Замли вокруг солнца и о причинах, побудивших древних египтян разбить временные отрезки именно так, а не иначе...

[pronto]

Начать надо с того, что в 1 секунде 1000 милисекунд... Э-э-э...

[Роман-вб]

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

Private Function TimeToMilSek@(stopT$)
  Dim ChStopTime&, MinStopTime&, SekStopTime&
  Dim ChToSekStop&, MinToSekStop&
 
  ChStopTime& = Val(Mid$(stopT$, 1, 2))
  MinStopTime& = Val(Mid$(stopT$, 4, 2))
  SekStopTime& = Val(Mid$(stopT$, 7, 2))
 
  ChToSekStop& = ChStopTime& * 3600
  MinToSekStop& = MinStopTime& * 60
 
  TimeToMilSek@ = (ChToSekStop& + MinToSekStop& + SekStopTime&) * 1000
End Function

[GSerg]

Выпендрился? Молодец, возьми с полки пирожок.
Автор вопроса, несомненно, многому научится, раз его избавили от необходимости размышлять над собственным вопросом.

[xamirp]

Большое спасибо на досуге обязятельно подумаю

[Роман-вб]

GSerg
Не выпендрился, просто несколькими темами ниже то же самое писал, вот и выложил.

[Nicky]

Неужели DateDiff кроме меня уже никто не пользует?