"Time" als DATE schreiben

[clag]

Hallo Kenner und Könner,

in einem Makro möchte ich die Systemzeit mit dem "TIME" in eine Zelle schreiben

allerdings gelingt mir das nur als string mit

Code: Alles auswählen

myCell.string = TIME

mit diesem Code bekomme ich eine Fehlermeldung

Code: Alles auswählen

myCell.date = TIME 

wie erreiche ich, dass eine echte Zeit in die Zelle geschrieben wird ?

[Axel Richter]

Hallo clag,

in einem Makro möchte ich die Systemzeit mit dem "TIME" in eine Zelle schreiben
allerdings gelingt mir das nur als string

Ja, denn TIME liefert ja auch einen String zurück.
Es gibt allerdings TIMEVALUE(), welche aus einem String einen Zeitwert berechnet. Diesen Wert muss man .Value der Zelle zuweisen

Code: Alles auswählen

myCell.Value = TIMEVALUE(TIME)

Nun muss die Zelle natürlich noch im Zeitformat formatiert werden.

Code: Alles auswählen

Dim locale As New com.sun.star.lang.Locale
nFormat = thisComponent.NumberFormats.queryKey("HH:MM:SS", locale, false)
if nFormat < 0 then 
 nFormat = thisComponent.NumberFormats.addNew("HH:MM:SS", locale)
endif

myCell.NumberFormat = nFormat

viele Grüße

Axel

[clag]

Hallo Axel,

allerbesten Dank für deine detaillierte Erklärung, so wird das Verhalten auch mir verständlich,
dann werde ich das gerade dazugelernte gleich mal austesten

[Karolus]

Hallo

Code: Alles auswählen

...
mycell.formulalocal = format( now , "hh:mm:ss" )
...

Karo

[clag]

Hallo Karolus,

auch dir allerbesten Dank
wie es nicht anders zu erwarten war, ist dein Vorschlag natürlich wieder kürzer