How can write whole date into cell and set CellContentType as value?

[luofeiyu1]

With the following code, “2025-09-01” was shown in message box,but the content in cell “a1” is “2025” , its CellContentType is value.

Sub WriteFormattedDateTime()
    Dim oSheet As Object
    Dim oCell As Object
    Dim sFormattedDate As String
    oSheet = ThisComponent.Sheets.getByName("Sheet1")
    oCell = oSheet.getCellByPosition(0, 0)  
    sFormattedDate = Format(Now(), "YYYY-MM-DD")
    msgbox sFormattedDate
    oCell.value = sFormattedDate
End Sub

With the following code, “2025-09-01” was shown in message box,but the content in cell “a1” is “2025-09-01” , its CellContentType is text.

Sub WriteFormattedDateTime()
    Dim oSheet As Object
    Dim oCell As Object
    Dim sFormattedDate As String
    oSheet = ThisComponent.Sheets.getByName("Sheet1")
    oCell = oSheet.getCellByPosition(0, 0)  
    sFormattedDate = Format(Now(), "YYYY-MM-DD")
    msgbox sFormattedDate
    oCell.string = sFormattedDate
End Sub

How can write whole date “2025-09-01” into cell and set CellContentType as value ?

[karolus]

@luofeiyu1

oCell.string = sFormattedDate

⇒ oCell.FormulaLocal = sFormattedDate

[fpy]

Calc - Macro: Enter Date as a Date

Working with styles makes everything easier in the UI and when writing macros. oCell.setValue(Now()) oCell.CellStyle = “My_Sophisticated_Cell_Style”

Formatting a calc cell as a date in a basic macro

See online help Number Format Codes . As of LO 7.4 using lower case keywords with queryKey() should work as well, see tdf#52602. Btw, the correct ISO 3166 country code is upper case US but that doesn’t matter here.