Hallo Zusammen,
ich habe mir ein kleine Formular (sh. Anhang) gebastelt in dem ich im Feld "Minuteneingabe" einen Wert zB 4000 (min) eingeben kann.
Nun möchte ich gerne das dazu die Tage - Stunden und Minuten angezeigt werden.
Die Tage im Feld "Tage" funktioniert noch soweit.
Im Feld "TageStunden" werden zwar die Tage und Stunden angezeigt, aber leider die Stunden mit Kommawert. Wie bekomme ich da die Kommawerte weg? Vermutlich gibt es auch einen besseren Weg!
Wie ich nun die Tage- Stunde - Minuten angezeigt bekommen möchte. Spätestens hier steige ich aus!
Könnte mir jemand Hilfestellung geben?
Gruss
mad
Hallo,
da würde ich eine einfache Prozedur anlegen. Das ist übersichtlicher.
Lässt sich auch noch vereinfachen und als Funktion anlegen.
Private Sub Minuteneingabe_AfterUpdate()
Dim Rest As Long, Tage As Long, Stunden As Long, Minuten As Long
Tage = Me.Minuteneingabe \ 1440
Rest = Me.Minuteneingabe - Tage * 1440
Stunden = Rest \ 60
Minuten = Rest - Stunden * 60
Me.Tage = Tage & " Tag(e)"
Me.TageStunden = Me.Tage & ", " & Stunden & " Stunde(n)"
Me.TageStundenMinuten = Me.TageStunden & ", " & " und " & Minuten & " Minute(n)"
End Sub
Hallo,
oder so im Steuerelementinhalt:
=[Minuteneingabe]\1440 & " Tag/e - " & Format(ZDate([Minuteneingabe]/1440);"h") & " Stunde/n - " & Format(ZDate([Minuteneingabe]/1440);"n") & " Minute/n"
Herzlichen Dank,
werde beide Varianten zum testen in das Formular ausnehmen.
Gruss
mad