Moin zusammen,
kann mir bitte jemand verraten, wie ich es schaffe über eine Schaltfläche ein Textfeld zu befüllen.
Im Detail soll es so aussehen. Wenn ich auf die Schaltfläche klicke, soll in das Textfeld die aktuelle Uhrzeit ( 24 H ) eingetragen werden.
Manuelle Eingaben sind natürlich auch möglich.
Vielen Dank im Voraus
Andreas
HGallo,
einfach so:
Private Sub SchaltflächenName_Click()
Me.TextfeldName = Time
End Sub
Moin Klaus,
lieben Dank, das ist ja einfach.
Aber ich habe noch etwas vergessen. Ich benötige die Zeit in UTC.
Kannst Du mir dabei auch behilflich sein?
LG
Andreas
Hallo,
um UTC darstellen musst Du einfach eine Std. abziehen bzw. bei Sommerzeit 2h.
Du musst also auch ermitteln ob Sommer oder Normalzeit ist.
Hast Du das bedacht, wenn das automatisch gehen soll ?
...bedacht schon, aber ich habe leider keine Lösung.
Die Lösung kann doch nicht sein, dass ich jeweils im März und Oktober von -1 auf -2 stelle und umgekehrt, oder?
Da muss es doch etwas automatisches geben.....
LG
Andreas
Hi,
du kannst den Wert aus dem Datums ermitteln.
Der folgende Ausfdruck liefert dir bspw. den Beginn der Sommerzeit des lfd. Jahres:
DateSerial(Year(Date), 3, 31) - IIf(Weekday(DateSerial(Year(Date), 3, 31), vbMonday) = 7, 0, _
Weekday(DateSerial(Year(Date), 3, 31), vbMonday))
Moin,
leider bekomme ich eine Fehler #NAME?....:-(
Das - vor weekday habe ich bereits durch ein = ersetzt......
LG
Andreas
Das ist ein Ausdruck, den du im Direkltfenster mit vorangestelltem ? testen oder einer Variablen zuweisen kannst.