Office: (Office 2003) Zeit Lang ( hh:mm:ss ) umrechnen in Sekunden

Helfe beim Thema Zeit Lang ( hh:mm:ss ) umrechnen in Sekunden in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo Wolfgang Ich hatte dieses Thema wegen einer Änderung Format vorher "hh:nn:ss" wegen einer Änderung in "nn:ss" wieder eröffnet. Gruß Jürgen Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von User, 3. August 2013.

Seite 4 von 5

USER

User

Zeit Lang ( hh:mm:ss ) umrechnen in Sekunden

Hallo Wolfgang

Ich hatte dieses Thema wegen einer Änderung Format vorher "hh:nn:ss" wegen einer Änderung in "nn:ss" wieder eröffnet.

Gruß
Jürgen

User, 29. September 2013

#46
USER

User

Hallo zusammen

Gibt es hier im Forum einen oder eine die mir erklären könnten wie ich die nachfolgende Funktionen ändern muss, damit die Stunde nicht mehr mit angezeigt wird ?

Ich komm einfach nicht weiter:
Code:

Public Function Timestring2Seconds(ByVal Timestring As String) As Currency
' Timestring: 00:01:00,9
Dim vArr As Variant
vArr = Split(Timestring, ",")
Timestring2Seconds = CDate(vArr(0)) * 86400 + vArr(1) / 10 ^ Len(vArr(1))
End Function

Public Function Seconds2Timestring(ByVal MySeconds As Currency, _
Optional ByVal PosDec As Integer = 1) As String
' Sekunden: 60,9
Dim lSec As Long
Dim iDec As Integer
lSec = Fix(MySeconds)
iDec = Fix((MySeconds - lSec) * 10 ^ PosDec)
Seconds2Timestring = Format(CDate(lSec / 86400), "hh:nn:ss")
If PosDec > 0 Then _
Seconds2Timestring = Seconds2Timestring & "," & iDec
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke u. Gruß
Jürgen

User, 29. September 2013

#47
MARSU65

Marsu65

Hallo Jürgen,

... wie ich die nachfolgende Funktionen ändern muss, damit die Stunde nicht mehr mit angezeigt wird ?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Schau doch mal bitte, in welcher Zeile das FORMAT zugewiesen wird.
Die Antwort hat dir Eberhard schon in #38 aufgezeigt. Hast du es probiert?
(Das rote Durchgestrichene sollte entfernt werden!)

PS: Code den man nicht versteht einzusetzen, kann gefährlich sein.
Über Funktionen (wie FIX) kann man sich in der Onlinehilfe informieren, indem man die
fragliche Funktion markiert und die F1-Taste betätigt. *wink.gif*

Marsu65, 29. September 2013

#48
USER

User

Zeit Lang ( hh:mm:ss ) umrechnen in Sekunden

Hallo Marsu

Danke für die Antwort, aber das aus Beitrag #38 entfernen der Stunde habe ich probiert, leider ohne Erfolg.

Gruß
Jürgen

User, 29. September 2013

#49
MARSU65

Marsu65

... habe ich probiert, leider ohne Erfolg.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Heißt was?

Marsu65, 29. September 2013

#50
USER

User

Hallo Marsu

Im Beitrag #36 hatte mich Eberhard drauf hingewiesen, was passiert wenn ich die Formatausgabe ändere.

Code:

Sub test()
Debug.Print CDate("00:01:00")
Debug.Print CDate("01:00")
End Sub

Direktfenster gibt folgendes aus:

00:01:00
01:00:00
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Jürgen

User, 29. September 2013

#51
HCSCHERZER

hcscherzer

Moin Jürgen.
Ich verstehe jetzt nicht, worüber Du Dich wunderst ...

entfernen der Stunde habe ich probiert Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Debug.Print CDate("01:00")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit dem Entfernen der Stunde hat das nun wirklich nichts zu tun ... das wird von links nach rechts gelesen und betrifft die Sekunde ... der Wert wird = 0 gesetzt *wink.gif*

hcscherzer, 29. September 2013

#52
USER

User

Zeit Lang ( hh:mm:ss ) umrechnen in Sekunden

Hallo zusammen

Folgende Funktion Liefert mir als Ergebnis "hh:nn:ss", ich möchte die Funktion so ändern, dass mir nur noch "nn:ss" angezeigt wird.

Code:

Code:

' Timestring: 00:01:00,9

Public Function Timestring2Seconds(ByVal Timestring As String) As Currency

Dim vArr As Variant
vArr = Split(Timestring, ",")
Timestring2Seconds = CDate(vArr(0)) * 86400 + vArr(1) / 10 ^ Len(vArr(1))
End Function

Public Function Seconds2Timestring(ByVal MySeconds As Currency, _
Optional ByVal PosDec As Integer = 1) As String
' Sekunden: 60,9

Dim lSec As Long
Dim iDec As Integer
lSec = Fix(MySeconds)
iDec = Fix((MySeconds - lSec) * 10 ^ PosDec)
Seconds2Timestring = Format(CDate(lSec / 86400), "hh:nn:ss")
If PosDec > 0 Then _
Seconds2Timestring = Seconds2Timestring & "," & iDec
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke für eure Unterstüzung
Gruß
Jürgen

User, 29. September 2013

#53
HCSCHERZER

hcscherzer

Ich würde es so versuchen Code:

Seconds2Timestring = Format(CDate(lSec / 86400), "nn:ss")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hcscherzer, 29. September 2013

#54
JOSEF P.

Josef P.

Hallo!

Ein Beispiel:
Code:

Dim Sec As Double
Dim Format1 As String
Dim Format2 As String

Dim DateValue As Date
Dim SecGanzzahl As Long
Dim SecNachkomma As Double
Dim MinutenWert As Long
Dim SekundenWert As Long

Sec = 84.5 ' Sekunden

DateValue = Sec / 3600 / 24
SecGanzzahl = Fix(Sec)
SecNachkomma = Sec - SecGanzzahl
MinutenWert = SecGanzzahl \ 60
SekundenWert = SecGanzzahl Mod 60

Format1 = Format(DateValue, "nn:ss")

Format2 = Format(MinutenWert, "00") & ":" & Format(SekundenWert, "00") & "," & Format(SecNachkomma * 100, "00")

Debug.Print Sec, DateValue, Format1, Format2
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hoffe, dass damit die "Logik" der Formatierung zu erkennen ist. ;-)

mfg
Josef

Josef P., 29. September 2013

#55
USER

User

Hallo Josef

Danke für das sehr übersichtliche Beispiel, was ich sehr gut nachverfolgen kann.

Ich möchte jedoch auch gerne die Funktion von Eberhard verstehen, die ich in vielen teilen überhaupt nicht folgen kann. Vielleicht hat ja noch einer ein wenig Zeit um mir diese zu erklären.

Code:

' Timestring: 00:01:00,9

Public Function Timestring2Seconds(ByVal Timestring As String) As Currency

Dim vArr As Variant
vArr = Split(Timestring, ",")
Timestring2Seconds = CDate(vArr(0)) * 86400 + vArr(1) / 10 ^ Len(vArr(1))
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

die zweite

Code:

Public Function Seconds2Timestring(ByVal MySeconds As Currency, _
Optional ByVal PosDec As Integer = 1) As String
' Sekunden: 60,9

Dim lSec As Long
Dim iDec As Integer
lSec = Fix(MySeconds)
iDec = Fix((MySeconds - lSec) * 10 ^ PosDec)
Seconds2Timestring = Format(CDate(lSec / 86400), "hh:nn:ss")
If PosDec > 0 Then _
Seconds2Timestring = Seconds2Timestring & "," & iDec
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

@ Josef vielen Dank für das schöne Beispiel, was ich sehr gut folgen kann.

Danke u. Gruß
Jürgen

User, 30. September 2013

#56
EBS17

ebs17

Code:

Public Function Timestring2Seconds(ByVal Timestring As String) As Currency

' Die Erläuterungen zu den verwendeten VBA-Funktionen
' Split, CDate, Len
' findet man in der VBA-Hilfe. Könnte man nachlesen.

Dim vArr As Variant
vArr = Split(Timestring, ",")

' Man kann sich Teilergebnisse der Berechnungen
' in der absolvierten Reihenfolge anschauen:

Debug.Print "vArr(0): " & vArr(0)
Debug.Print "CDate(vArr(0)): " & CDate(vArr(0))
Debug.Print "CDate(vArr(0)) * 86400: " & CDate(vArr(0)) * 86400
Debug.Print "vArr(1): " & vArr(1)
Debug.Print "Len(vArr(1)): " & Len(vArr(1))
Debug.Print "10 ^ Len(vArr(1)): " & 10 ^ Len(vArr(1))
Debug.Print "beliebig erweiterbar"

Timestring2Seconds = CDate(vArr(0)) * 86400 + vArr(1) / 10 ^ Len(vArr(1))
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn man nun die verwendeten Funktionen und die Teilergebnisse kennt, kann man sich den Lösungsweg zusammensetzen und sich somit die Funktion selbst erklären. Dieser Algorithmus ist auf jede Funktion oder Prozedur anwendbar.

ebs17, 30. September 2013

#57
USER

User

Zeit Lang ( hh:mm:ss ) umrechnen in Sekunden

Hallo zusammen

Danke für eure Unterstützung !

@ Eberhard Danke auch für die Erläuterung ich werde in den nächsten Tagen weiter dran arbeiten

Gruß
Jürgen

User, 1. Oktober 2013

#58
USER

User

Hallo Eberhard

Ich habe da noch eine frage, anbei die Funktion.

Code:

Public Function Seconds2Timestring(ByVal MySeconds As Currency, _
Optional ByVal PosDec As Integer = 1) As String
' Sekunden: 60,9
Dim lSec As Long
Dim iDec As Integer

lSec = Fix(MySeconds)
iDec = Fix((MySeconds - lSec) * 10 ^ PosDec)
Seconds2Timestring = Format(CDate(lSec / 86400), "hh:nn:ss")
If PosDec > 0 Then _
Seconds2Timestring = Seconds2Timestring & "," & iDec

Debug.Print "lSec : " & Fix(MySeconds)
Debug.Print "iDec : " & Fix((MySeconds - lSec) * 10 ^ PosDec)

Debug.Print "Seconds2Timestring : " & Format(CDate(lSec / 86400), "hh:nn:ss")
Debug.Print "Seconds2Timestring = Seconds2Timestring " & Seconds2Timestring & "," & iDec

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im Direktfenster wird folgendes ausgegeben

Code:

lSec : 105
iDec : 2
Seconds2Timestring : 00:01:45
Seconds2Timestring = Seconds2Timestring 00:01:45,2,2
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Warum wird im SecondsTimestring zweimal die Komma 2 gesetzt ??

Danke u. Gruss
Jürgen

User, 2. Oktober 2013

#59
EBS17

ebs17

Code:

If PosDec > 0 Then _
Seconds2Timestring = Seconds2Timestring & "," & iDec ' 1x

Debug.Print "Seconds2Timestring = Seconds2Timestring " & Seconds2Timestring & "," & iDec ' 2x
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nicht wundern, wenn das eintritt, was man programmiert.

ebs17, 2. Oktober 2013

#60

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 4 von 5

Thema:

Zeit Lang ( hh:mm:ss ) umrechnen in Sekunden

Die Seite wird geladen...

Zeit Lang ( hh:mm:ss ) umrechnen in Sekunden - Similar Threads - Zeit Lang umrechnen
Überschneidungen von Zeiten automatisch erkennen
in Microsoft Excel Hilfe
Überschneidungen von Zeiten automatisch erkennen: Hallo zusammen, in der eingefügten Tabelle sind verschiedene Module angelegt, die von unseren Schülern belegt werden können. Sie können an einem Tag an mehreren Modulen teilnehmen, auch mehrfach...
VBA7, Declare Function FindWindow Lib
in Microsoft Excel Hilfe
VBA7, Declare Function FindWindow Lib: Hallo Allerseits, Frage: Anpassung eines bereits Geschrieben Codes (Forum). Würde ich gern verwenden da es gut Passt. Quelle> VBA Beispiele Seite Datei schließen - Hajo's Excelseiten Datei>...
Industriezeit in normale Zeit
in Microsoft Excel Hilfe
Industriezeit in normale Zeit: Hallo ihr Lieben, Ich habe versucht einen passenden Beitrag gefunden aber empfand keinen so wirklich passend für mein anliegen. Aus diesem Grund versuche ich es mal so. Ich habe eine...
Zeit an dem mehrere Arbeitsplätze belegt sind
in Microsoft Excel Hilfe
Zeit an dem mehrere Arbeitsplätze belegt sind: Guten Tag Da ich leider nicht sehr viel Erfahrung mit Excel habe, suche ich hier Hilfe, ob mir jemand bei meinem Problem helfen kann. Ich soll berechnen an wie vielen Tagen, Stunden und Minuten,...
Zeiten wie berechnen
in Microsoft Excel Hilfe
Zeiten wie berechnen: Hi, Spalte F soll von Spalte H subtrahiert werden. Sodas ich in Spalte I sehen kann, wie viel Zeit ich das Kind länger oder kürzer in der Kita lasse. Ihr seht z.B. in der Zeile 35 kommt Excel...
Daten aus anderer Tabelle zwischen Zeiten einfügen (Office 365)
in Microsoft Excel Hilfe
Daten aus anderer Tabelle zwischen Zeiten einfügen (Office 365): Hallo zusammen, ich hatte früher viel mit Excel zu tun, bin aber seit ein paar Jahres etwas eingerostet. Ich wollte mir eine Tabelle erstellen, in der ich aus den stündlichen Strompreisen der...
Temperatur-Kurve über längere Zeit -> Achsbeschriftung
in Microsoft Excel Hilfe
Temperatur-Kurve über längere Zeit -> Achsbeschriftung: Hallo! Ich habe von einer Wetterstation die Werte mehrere Temperatursensoren. Pro Stunde ein Wert, also 24 Messwerte pro Tag. Die X-Achs-Werte sehen so aus: 22.12.2005 13:00 (Datum & Zeit)...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden