Zeitstempel per Klick in Feld einfügen
Verfasst: Mo, 18.07.2011 14:42
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.
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
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 SubKönnt ihr mir da behilflich sein?
Vielen Dankt schon im Vorraus