[Solved] Insert today's date as a static date

[Nocton]

I want to automatically insert today's date in a cell, but I don't want it to change in the future. How can I best do that?

Regards,
Nocton

[B Marcelly]

viewtopic.php?f=20&t=68355

[Nocton]

Thank you for pointing me to Villeroy's solution. So I ended up with:

Code: Select all

    =IF(A1="";"";IF(B1="";TODAY();B1))

Very important to allow iterations [Tools>Options>Calc>Calcultation: Enable iterations.] as I had something similar but always got an error.

Regards,
Nocton

[Zizi64]

Macro solutions:

Code: Select all

Sub SetTodayDateToSelectedCellAsLocalizedFormula

rem The target cell will be formatted based on the local settings of the date

 Dim oCell As Object 
 Dim DateStr as string  
	DateStr = Date(DateValue(Now))
	oCell = ThisComponent.getCurrentSelection()
 	oCell.FormulaLocal = DateStr
End sub


Sub SetTodayDateToSelectedCellAsValue

rem In this case You need format the cell manually

 Dim oCell As Object   
	oCell = ThisComponent.getCurrentSelection()
 	oCell.setValue(DateValue(Now))
End sub


Sub SetTodayDateToSelectedCellAsFormattedString

rem The date "value" will be formatted as String (You can not use that string for calculations directly)

 Dim oCell As Object 
 Dim DateStr as string  
	DateStr = (Format(DateValue(Now),"YYYY-MM-DD"))
	oCell = ThisComponent.getCurrentSelection()
 	oCell.String = DateStr
End sub

[Alexys4530]

Hi,
How would I make that macro aply to a specific cell?

Thank you

Macro solutions:


Sub SetTodayDateToSelectedCellAsValue

rem In this case You need format the cell manually

Dim oCell As Object
oCell = ThisComponent.getCurrentSelection()
oCell.setValue(DateValue(Now))
End sub