[Gelöst] Datum als Datum einfügen, nicht als String

[Reginald]

Hallo zusammen,

mit dem Code hier in Calc

Code: Alles auswählen

mydoc = ThisComponent
mySheet = myDoc.sheets(0)
mysheet.getCellByPosition(0,0).String = FileDateTime ("C:\autoexec.bat")

lasse ich mir das Änderungsdatum mit Uhrzeit in die Zelle A1 schreiben, allerdings packt mir OO immer das Hochkomma davor, also behandelt es als Text. Wenn ich statt .String .Formula nehme passiert das gleiche. Nehme ich .Value habe ich immer nur eine 0 als Wert.

Ich brauche das ganze als echtes Datum, nicht als String in der Zelle.

Was tun sprach Zeus?

Grüße R

[komma4]

Wenn ich statt .String .Formula nehme passiert das gleiche. Nehme ich .Value habe ich immer nur eine 0 als Wert.

Gibt eine Zeichenkette zurück, die Datum und Uhrzeit der Erstellung oder letzten Änderung einer Datei enthält.

Da die Rückgabe eine Zeichenkette ist - kann nichts anderes gesetzt werden (der Wert [.Value] einer Zeichenkette ist 0)

Verwende zusäzlich die Funktion DateValue um einen gültigen Zahlenwert mit .Value zu setzen.


Das hilft Dir weiter?

[Frieder D.]

Hallo

versuche es mahl damit:

Code: Alles auswählen

Sub Main
Dim mydoc AS Object
Dim mySheet AS Object
Dim myCell AS Object
mydoc = ThisComponent
mySheet = myDoc.sheets(0)
myCell=myDoc.sheets(0).getCellByPosition(3,0)
myCell.Value = DateValue(FileDateTime (myDoc.URL))
setNumberFormat(mydoc , myCell, "TT.MM.JJJJ")
End Sub
'-------------------------------------------------------
Sub setNumberFormat(oDoc as object ,oCellrange As Object,sFormatString AS String)
Dim aLocale AS Object
dim nFormatKey As Long
aLocale = CreateUnoStruct("com.sun.star.lang.Locale")
with aLocale 
   .Language = "de"
   .Country = "DE"
End With
' den Nummern-Format key erhalten (oder einen neuen erZeugen, falls er noch nicht existiert.) 
nFormatKey = oDoc.NumberFormats.queryKey(sFormatString, aLocale, True)
If nFormatKey = - 1 Then 'not found
   'create a new key for this number format
   nFormatKey = oDoc.NumberFormats.addNew(sFormatString, aLocale)
End If
'die Zelle formatieren:
oCellrange.NumberFormat = nFormatKey
end sub
'----------------------------------

Gruß Frieder

[Stephan]

Was tun sprach Zeus?

.FormulaLocal verwenden:

Code: Alles auswählen

mysheet.getCellByPosition(0,0).FormulaLocal = FileDateTime ("C:\autoexec.bat")

Gruß
Stephan

[Reginald]

Hallo zusammen,

vielen Dank für die Antworten! Die Funktion DateValue funktioniert, gibt mir aber nicht die Uhrzeit mit an.

Am besten ist das hier von Stephan.

Code: Alles auswählen

mysheet.getCellByPosition(0,0).FormulaLocal = FileDateTime ("C:\autoexec.bat")

Danke!

Reginald