Datum Uhrzeit
jamswolf
ich habe folgenden VBA-Code, hierbei wird das Datum vor- oder rückwärts gezählt. Das ganze möchte ich kombinieren mit der Zeit ( dd.mm.jjjj hh:mm ), wobei das Datum um 00:00 Uhr nartürlich weiterspringen muß. Hat einer eine Idee? bastele schon seit ein paar Tagen :-( und kann jede Hilfe gebrauchen. Danke!
jamswolf
Userform
Textbox1
Spinbuttom1
Label1
CommandButtom ok
CommandButtom Abrechen
Sub SetValue(ByVal Datum As Date)
TextBox1.Value = Format(Datum, "dd.mm.yyyy")
Label1.Caption = Format(WeekDay(Datum), "dddd")
SpinButton1.Value = CLng(Datum)
End Sub
Private Sub CancelButton1_Click()
Unload Me
End Sub
Private Sub EndButton_Click()
Datum = (CDate(SpinButton1.Value))
Unload Me
End Sub
Private Sub SpinButton1_Change()
SetValue (CDate(SpinButton1.Value))
End Sub
Private Sub TextBox1_Enter()
MsgBox "Finger weg!"
End Sub
Private Sub ToDayButton_Click()
SetValue (Date)
End Sub
Private Sub UserForm_Initialize()
SetValue (Date) - 1
End Sub
Anzeige