Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeit in zehntel od hundertstel

Zeit in zehntel od hundertstel
26.05.2005 11:07:58
michael
Hallo,
wie erhalte ich die Zeit in zehntel od hundertstel in einem Macro?
mit = Time erhalte ich nur hh:mm:ss oder als hh:mm:ss,0, jedoch erhalte ich nur ,0 nie einen Sekundenbruchteil.
Ich versuche Daten mit einer Messrate von 5/sec mit Excel zu loggen. Ich möchte in der 1. Spalte die zugehörige Zeit ab Spalte 2 die Werte.
Ich habe die Zelle als benutzerdefiniert hh:mm:ss,0 formatiert. Wie heißt der entsprechende Formatbefehl innerhalb eines MAcros?
Danke Michael

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeit in zehntel od hundertstel
26.05.2005 11:50:28
Nepumuk
Hallo Michael,
schau dir mal die Timer - Funktion in der Hilfe an.
Gruß
Nepumuk
AW: Zeit in zehntel od hundertstel
26.05.2005 12:24:09
michael
Hallo Nepumuk,
danke für deinen Tip.
egal ob ich Zeit = Time oder Zeit = Timer probiere ich erhalte nut Zeiten im Sekunden jedoch nicht im Bruchteile von Sekundenformat (laut Hilfe : Unter Microsoft Windows gibt die Timer-Funktion Bruchteile einer Sekunde zurück)
Range("A1") = Timer
Range("A2") = Time
Range("B1") = Format(Timer, "hh:mm:ss,0")
Range("B2") = Format(Time, "hh:mm:ss,0")
Ergebnis:
00:16:52,5 00:33:45,0
12:19:54 PM 12:19:54,0
wenn ich das Macro mehrmals starte steht nur in der 2. Zeile vernünftige Werte. In zeile 1 stehen komische Zeiten... Jedoch nie Bruchteile von Sekunden...
Danke
Michael
Anzeige
AW: Zeit in zehntel od hundertstel
26.05.2005 16:23:05
th.heinrich
hallo Michael,
evtl. hilft dies weiter.
In diesem Beispiel wird die TimeValue-Funktion verwendet, um eine Zeichenfolge in eine Uhrzeit umzuwandeln. Sie können auch Datumsliterale verwenden, um einer Variablen vom Typ Variant oder Date direkt eine Uhrzeit zuzuweisen, zum Beispiel Zeit1 = #4:35:17 PM#.
Dim Zeit1
Zeit1 = TimeValue("4:35:17 PM") ' Uhrzeit zurückgeben.
ansonsten mal den komplette code posten.
gruss thomas
AW: Zeit in zehntel od hundertstel
26.05.2005 20:17:50
michael
HAllo Thomas,
nun da gibt es nicht viel code
eine loop die zuerst die Zeit und indie nachfolgende Spalten der selben Zeile die Messwerte.
Da das Messgerät alle 200ms ein Wert ausgibt wird die Loop max 5 mal pro sec durchlaufen.
Folgendes hab ich bisher getestet
zaehler = 1
Do

Cells(zaehler, 1) = Timer
Cells(zaehler, 2) = Time
Cells(zaehler, 3) = "=NOW()"
Cells(zaehler, 4) = Format(Timer, "hh:mm:ss,00")
Cells(zaehler, 5) = Format(Time, "hh:mm:ss,00")
Cells(zaehler, 6) = Format(Now, "hh:mm:ss,00")

zaehler = zaehler + 1

Loop While zaehler &lt 20 (20 nur mal als Test)
TimeValue gibt mr nur hh:mm:ss AM/PM zurück
Bei allen kommen keine Sekundenbruchteile
hast du noch eine Idee?
MIchael
Anzeige
AW: Zeit in zehntel od hundertstel
27.05.2005 09:25:37
Nepumuk
Hallo Michael,
die Timerfunktion gibt die seit Mitternacht vergangenen Sekunden zurück. In Excel entspricht aber 1 einem Tag. Du musst also die Sekunden durch 86.400 teilen um daraus Excelsekunden zu machen. Das ganze dient aber mehr dazu, Zeitdifferenzen darzustellen.
Beispiel:


Option Explicit
Private Declare Sub Sleep Lib "kernel32.dll" ( _
     ByVal dwMilliseconds As Long)
Public Sub test()
    Dim sngStart As Single
    sngStart = Timer
    Sleep 555
    With Cells(1, 1)
        .NumberFormat = "[hh]:mm:ss.000"
        .Value = (Timer - sngStart) / 86400
    End With
End Sub


Beachte dabei, dass diese Funktion zwar Millisekunden zurückgibt, aber die maximale Auflösung bei 55 ms liegt. Wenn du es genauer brauchst, kann über eine API – Funktion, eine Auflösung bis 0,83 ms erreicht werden.
Gruß
Nepumuk
Anzeige
AW: Zeit in zehntel od hundertstel
27.05.2005 14:51:35
michael
Hallo Nepumuk,
danke für deine Antwort!
was bedeutet Sleep 555? konnte nichts dazu in der Hilfe finden - ich vermute eine Pause von 555 ms?
Hast du zufällig ein Bsp. für eine solche API – Funktion für eine Auflösung 10ms?
Danke
Michael
AW: Zeit in zehntel od hundertstel
27.05.2005 15:12:53
michael
wow... danke Nepumuk,
... muss ich in Ruhe heute abend testen.
Danke und Gruß
Michael

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige