Supportnet / Forum / Datenbanken

Hallo Profis, ein Problem, mit der Bitte um Hilfe! In einem Formular sind die Felder "Arbeitsbeginn" und "Arbeitsende" enthalten. Daraus soll nun die "Arbeitszeit" in Stunden ermittelt werden (z. B. 7,5 Stunden). Das Ergebnisfeld "Arbeitszeit" soll dann in dem Formular aufsummiert werden. Die Stundenberechnung hab ich einigermaßen hingekriegt (z. B. 8:00 bis 15:00 = 07:00). Allerdings bin ich mir nicht sicher, ob das nun wirklich als 7 Stunden gespeichert wird oder ob 7 Uhr gemeint ist. Die Summenbildung hat auf jeden Fall nicht funktionert --> #Fehler. Hat jemand Rat?

Russische Lösung (einfach und sicher) : rechne um in Minuten und speichere die Minuten.
Hilfreich sind dabei die Funktionen hour und minute:
Dim Zeit1, Stunde1
Zeit1 = #4:35:17 PM# ´ Zeitangabe zuweisen.
Stunde1 = Hour(Zeit1) ´ Stunde1 enthält 16.


Dim Zeit1, Minute1
Zeit1 = #4:35:17 PM# ´ Zeitangabe zuweisen.
Minute1 = Minute(Zeit1) ´ Minute1 enthält 35.

Gruß
Teddy

Noch´ne einfache Lösung:

DIM intStunden AS Integer
DIM Arbeitsbeginn, Arbeitsende as Date

intStunden = DateDiff("h";Arbeitsbeginn;Arbeitsende)

Zu erwähnen ist noch die leidige Sprachabhängigkeit:

Im VBA-Code muss es wie oben heissen, in einer Abfrage (Entwurfsansicht) DatDiff!

Gruss,

Rolf

• Text in Datum und Zeitangabe umwandeln
• Access schließt sich automatisch
• Zählenwenn in Access
• Access-Abfrage