über eine Schaltfläche ein Textfeld befüllen

[Lalikowski]

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

[MzKlMu]

HGallo,
einfach so:

Code [Auswählen] Erweitern

Private Sub SchaltflächenName_Click()
    Me.TextfeldName = Time
End Sub

[Lalikowski]

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

[MzKlMu]

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 ?

[Lalikowski]

...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

[MaggieMay]

Hi,

du kannst den Wert aus dem Datums ermitteln.

Der folgende Ausfdruck liefert dir bspw. den Beginn der Sommerzeit des lfd. Jahres:

Code [Auswählen] Erweitern

DateSerial(Year(Date), 3, 31) - IIf(Weekday(DateSerial(Year(Date), 3, 31), vbMonday) = 7, 0, _
                                                   Weekday(DateSerial(Year(Date), 3, 31), vbMonday))

[Lalikowski]

Moin,

leider bekomme ich eine Fehler #NAME?....:-(

Das - vor weekday habe ich bereits durch ein = ersetzt......

LG
Andreas

[MaggieMay]

Das ist ein Ausdruck, den du im Direkltfenster mit vorangestelltem ? testen oder einer Variablen zuweisen kannst.