Uhrzeit in Textbox mit Drehfeld
25.10.2012 12:08:08
Jürgen
ich tüftel jetzt schon den ganzen Tag an dem Problem. Ich möchte in einem, Userform in einer Textbox die Uhrzeit einblenden und diese minutengenau mit einem Drehfeld (Spinbutton) ändern können. Ich komme hier nicht weiter!
Das einzige was ich beim suchen und googeln gefunden habe ist der folgende Code:
Private Sub SpinButton1_Change()
Dim t As Date
t = CDate(Me.SpinButton1 / 48)
Me.TextBox1 = Format(t, "short time")
End Sub
Private Sub TextBox1_Change()
Dim tim As Date
tim = CDate(Me.TextBox1)
Me.SpinButton1 = Int(CDbl(tim) * 48 + 0.5)
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1 = Format(Int(Now * 48 + 0.5) / 48, "short Time")
End Sub
Format(Int(Now * 48 + 0.5) / 48, "short Time")
Me.SpinButton1 = Int(CDbl(tim) * 48 + 0.5)
t = CDate(Me.SpinButton1 / 48)
Ich hoffe es kann mir einer von Euch helfen.
Vorab besten Dank.
Viele Grüße