Zeitstempel per Klick in Feld einfügen

[seve1980]

Hallo Ihr,
ich hoffe Ihr könnt mir weiterhelfen. Ich möchte in einem Zeitfeld in einem Formular die Aktuelle Uhrzeit (Systemzeit) per klick einfügen. Ich dachte mir wenn man ein kleines Makro schreibt welches die Uhrzeit einfügt wenn das Feld losgelassen wird. Nun ich finde mein Feld und kann dieses auch ansprechen ich schaffe es aber nicht in einen Wert in das Zeitfeld zu schreiben.

Code: Alles auswählen

Dim oDoc As Object
Dim oForm As Object
Dim oTest1 As Object

Sub Init

oDoc = thisComponent
oForm = oDoc.DrawPage.Forms.GetByName("Formular")

oTest1 = oForm.GetByName("Startfeld")
Xray oTest1
oTest1.Text.write("12:00:01")
End Sub

die Uhrzeit 12:00:01 will ich dann noch durch die aktuelle Zeit ersetzen.
Könnt ihr mir da behilflich sein?
Vielen Dankt schon im Vorraus

[DPunch]

Aloha

Schau mal, ob Dir das hier weiterhilft:
Systemzeit automatisch in (Zeit)Formularfeld eintragen

[seve1980]

Viele Dank,
das war was ich gesucht habe.