Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Datum Uhrzeit | Herbers Excel-Forum


Betrifft: Datum Uhrzeit von: jamswolf
Geschrieben am: 26.01.2010 14:05:26

Hallo Excel-Team,
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

  

Betrifft: AW: Datum Uhrzeit von: Tino
Geschrieben am: 26.01.2010 14:33:26

Hallo,
versuch aml dies.

Sub SetValue(ByVal Now As Date)
TextBox1.Value = Format(Now, "dd/mm/yyyy hh:mm")
Label1.Caption = Format(Weekday(Now), "dddd")
End Sub

Private Sub SpinButton1_Change()
SetValue CDate(CLng(Now)) + TimeSerial(Hour(Now) + SpinButton1.Value, Minute(Now), Second(Now))
End Sub

Private Sub UserForm_Initialize()
SpinButton1.Max = 10000
SpinButton1.Min = -10000
SetValue (Now)
SpinButton1.Value = 0
End Sub
Gruß Tino


  

Betrifft: AW: Datum Uhrzeit von: JDommi
Geschrieben am: 26.01.2010 21:43:38

Warum benutzt du nicht einfach DateAdd?

DateAdd ( interval, number, date )

Intervall-Variablen:
yyyy Jahr
q Quartal
m Monat
y Tag im Jahr
d Tag
w Wochentag
ww Woche
h Stunde
n Minute
s Sekunde

Die Spin-Routine kannst du ja von Tino übernehmen...


Beiträge aus den Excel-Beispielen zum Thema "Datum Uhrzeit"