Supportnet / Forum / Datenbanken
Umwandlung Uhrzeit in Dezimalzahl
Frage
hab noch ein Problem:
wie kann ich eine Uhrzeit in eine Dezimalzahl umwandeln?
Aus z.B. 16.45 Uhr sollte nachher die Zahl 16,75 herauskommen oder aus 16.30 Uhr sollte 16,50 werden.
grüßle Bim
Antwort 1 von MacGyver031
Hallo,
Mathematisch ist das problem sehr einfach: Min/60 + Std.
Falls du irgendwo programmiern willst muss du schon sagen welcher Sprache.
Gruss.
Mathematisch ist das problem sehr einfach: Min/60 + Std.
Falls du irgendwo programmiern willst muss du schon sagen welcher Sprache.
Gruss.
Antwort 2 von Bim
Danke erst mal, soweit kann ich folgen.
bin im Formular und möchte eine vom System vorgegebene Zeit im Hintergrund in eine Dezimalzahl wandeln und so in eine Tabelle einfügen lassen, ob ich dafür jetzt vba brauch weiß ich nicht, vielleicht gehts ja auch mit ner einfachen Access funktion.
grüßle
bin im Formular und möchte eine vom System vorgegebene Zeit im Hintergrund in eine Dezimalzahl wandeln und so in eine Tabelle einfügen lassen, ob ich dafür jetzt vba brauch weiß ich nicht, vielleicht gehts ja auch mit ner einfachen Access funktion.
grüßle
Antwort 3 von sts67
Hallo Bim,
vielleicht nicht zu 100 % das was Du suchst, aber evtl. hilft Dir folgender Link ja weiter.
Gruß, Stefan
http://www.donkarl.com/FAQ/FAQ2Allgemein.htm#2.10
vielleicht nicht zu 100 % das was Du suchst, aber evtl. hilft Dir folgender Link ja weiter.
Gruß, Stefan
http://www.donkarl.com/FAQ/FAQ2Allgemein.htm#2.10
Antwort 4 von Koebi
Grüezi Bim
Versuch es mal mit folgender Funktion:
' Stundenbruchteile (Minuten und Sekunden) dezimal darstellen
' im Testfenster: ?HourDecimal("12:30") / Ergebnis: 12.5
' Steuerelementinhalt eines berechneten Feldes: =HourDecimal([Feldname])
Public Function HourDecimal(ThisTime As Date) As Double
Dim nDblTime As Double
nDblTime = CDbl(ThisTime)
HourDecimal = (nDblTime - Fix(nDblTime)) * 24
End Function
Die Funktion in ein neues Modul kopieren und im Formular als Steuerelementinhalt eines Feldes
=HourDecimal([DeinFeldname])
eingeben.
Gruss
Köbi
Versuch es mal mit folgender Funktion:
' Stundenbruchteile (Minuten und Sekunden) dezimal darstellen
' im Testfenster: ?HourDecimal("12:30") / Ergebnis: 12.5
' Steuerelementinhalt eines berechneten Feldes: =HourDecimal([Feldname])
Public Function HourDecimal(ThisTime As Date) As Double
Dim nDblTime As Double
nDblTime = CDbl(ThisTime)
HourDecimal = (nDblTime - Fix(nDblTime)) * 24
End Function
Die Funktion in ein neues Modul kopieren und im Formular als Steuerelementinhalt eines Feldes
=HourDecimal([DeinFeldname])
eingeben.
Gruss
Köbi