Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Stoppuhr Zehntel - Hundertstel

95 views
Skip to first unread message

Karl Frisch

unread,
Mar 21, 2002, 8:55:27 PM3/21/02
to
Hallo Leute,

ich benutze den Timer als Stoppuhr und möchte die Differenz zweier
Zeiten z. B. 8710,54 als 02:25:10,54 in einem Textfeld darstellen.
(Zeit1=8710,54)

Text1 = Format(Zeit1 / 3600 / 24, "hh:mm:ss,00" liefert nur 02:25:10.

In Excel liefert das Format [hh]:mm:ss,00 den gewünschten Wert von
02:25:10,54 in VB6 funktioniert es nicht.

Kennt jemand ein Format um zehntel und hundertstel Sekunden auzuzeigen?

mfg
karl


Manuel Wessing

unread,
Mar 22, 2002, 1:06:38 AM3/22/02
to
Hallo Karl.

Wenn du zehntel und hunderstel genau messen möchtest. Nimm GetTickCount.
Findest du im api-viewer.

mfg
M. Wessing

"Karl Frisch" <Frisc...@t-online.de> schrieb im Newsbeitrag
news:3C9A8F0F...@t-online.de...

Karl Heinz Charusa

unread,
Mar 22, 2002, 4:08:14 AM3/22/02
to
Damit kann mans machen.


'* --- Private API
Declaration -----------------------------------------------*
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

'***************************************************************************
***
' Name : debugTime
' Description : Stoppuhr zum Debuggen, Aufruf mit Parameter True setzt
Uhr auf Start
' Aufruf ohne Parameter gibt die Zeit in ms seit letzten
Aufruf zurück
'
' Known problems:
'
' Modification history:
' Date | Usr.| Comment
' ---------+-----+--------------------------------------------------------
---
' | |
'***************************************************************************
***
Public Function debugTime(Optional Start As Boolean = False)
Static lTime As Long 'funktioniert in
VB.Net nicht mehr -> private Variable
Dim laktTime As Long
laktTime = timeGetTime
If Start Then
debugTime = Now
Else
debugTime = Left$((laktTime - lTime) / 1000 & Space(20), 20)
End If
lTime = laktTime
End Function

"Karl Frisch" <Frisc...@t-online.de> schrieb im Newsbeitrag
news:3C9A8F0F...@t-online.de...

Gerrit Kuhlendahl

unread,
Mar 22, 2002, 7:20:56 AM3/22/02
to
Moin Karl!

"Karl Frisch" <Frisc...@t-online.de> schrieb im Newsbeitrag
news:3C9A8F0F...@t-online.de...
> Hallo Leute,

[schnibbel]

>
> Kennt jemand ein Format um zehntel und hundertstel Sekunden auzuzeigen?

Das hier sollte das Richtige sein:

http://www.aboutvb.de/khw/artikel/khwjuldat.htm

Viel Erfolg

Gerrit


--
-------------------------------------------------------
KUH-SOFT - Die Software von glücklichen Programmierern

Bahrenfelder Steindamm 100 - D 22761 Hamburg
eMail: kon...@kuh-soft.de
Home: http://www.kuh-soft.de


0 new messages