In LibreOffice Calc den Hotkey strg-H einfügen, der genauso wie strg-. in Excel das heutige Datum einfügt

 
REM*****BASIC*****
' ! ! !  
' anpassen:  
' Die zwei folgenden Konstanten bestimmen Datum- und Zeit-Formatcodes   
' Siehe in der F1 Hilfe; sie müssen im Gebietsschema gültig sein.  

' adjust:  
' following constants define data and time formats to be used;  
' for codes to use see in F1 Help.   
' Codes have to be set according to your locale settings  

Const  MYDATEFORMAT = "TT.MM.JJJJ"  
' Const MYDATEFORMAT = "YYYY-MM-DD"  
Const MYTIMEFORMAT = "HH:MM"  

' V2  
' Format eines Zeitstempels  
' Const MYTIMESTAMPFORMAT = "YYYY-MM-DD HH:MM"  
Const MYTIMESTAMPFORMAT = "TT.MM.YYYY HH:MM"  

' this one is used as separator in  
' an ISO-formatted date: 2007-06-24  
Const cDateTime_TRENNER = "."  


' V2  
' neue Schalter für Calc:   
' "Überschreiben- oder Einfügen-" Schalter,  
' bei Einfügen: Positionsbestimmung (vor oder hinter vorhandenem Inhalt)   
' bei Einfügen: Trennzeichen (nur beim Einfügen als Text ! )  

' new switches to define Calc override / insert behaviour   
' (only with text insertions)   

Const cDateTime_Calc_Add2Text_Switch    = TRUE     
' TRUE: add insert to any existing text or value    
' FALSE: replace text or value (if any)  

Const cDateTime_Calc_Add2Text_Position  = "POST"     
' PRE: set insert ahead of an existing text         
' POST: set insert after text   

Const cDateTime_Calc_Add2Text_Separator = ": "       
' definition of part between text and insert   


' used for displaying messages  
Const cMODULNAME = "DateTime "  
Const cMODULDATUM = "15.08.2007 "  
Const cMODULVERSION = "2.0.1 "  
' Variablen -------------------------------------------------------------  
Private oDesktop
Private oController
Private oDokument
Private oTextCursor
Private oViewCursor

Private oSelection
Private oBereich
Private oZelle
Private oDateTimeField
Private nDateTime_Format_DATE
Private nDateTime_Format_TIME
Private nDateTime_Format_DATETIME
Private oZellEinf as Any
Private oZumEinfuegen
Private nDateTime_SetFormat
Private sDatum

Private sDateTime_setAs   ' val txt  
Private sDateTime_setWhat ' DAT TIM  
Private sDateTime_DocType ' kind of doc  
Private sDateTime_DATE as String 'iso  
Private sDateTime_FISO as String ' form. iso  
Private sDateTime_DATETIME as String ' iso w/ time  
Private sDateTime_TIME as String
Private lDateTime_DATE as Long

Private dblDateTime_TIME as Double

Private oText


CONST cEinzelZelle   = "com.sun.star.sheet.SheetCell"  
CONST cVieleBereiche = "com.sun.star.sheet.SheetCellRanges"  
CONST cEinzelBereich = "com.sun.star.sheet.SheetCellRange"  


' Schalter fuer Cursorposition in Textdokumenten  
Private CursorIstHier as Integer
CONST CURPOS_InText = 1
CONST CURPOS_InTabelle = 2
CONST CURPOS_InRahmen = 3
CONST CURPOS_InHeaderFooter = 4

CONST CURPOS_INVALID = 9


' ===========================================================================  
'  
' M A I N  
'  
' ===========================================================================  

' Eine dieser SUBs aufrufen, einer Symbolschaltfläche oder einer  
' Tastenkombination zuordnen. Das Makro erkennt selbst den Dokumententyp.  
' (Momentan nur Calc und Writer)  
'  
' call one of these SUBs, assign to toolbar button or to keyboard combination  
' The macro detects document type (calc and writer)  
' ===========================================================================  

' << Datum als FELD oder WERT  
' Sub insert_Date_asField()  

Sub Datum_Feld
	sDateTime_setAs   = "val"  
	sDateTime_setWhat = "DAT"  
	DateTime_Init
	DateTime_action
End Sub


' << Datum als Text  
' Sub insert_Date_asText()  

Sub Datum_Text
	sDateTime_setAs   = "txt"  
	sDateTime_setWhat = "DAT"  
	DateTime_Init
	DateTime_action
End Sub



' << Zeit als FELD oder WERT  
' Sub insert_Time_asField()  

Sub Zeit_Feld
	sDateTime_setAs   = "val"  
	sDateTime_setWhat = "TIM"  
	DateTime_Init
	DateTime_action
End Sub

' << Zeit als Text  
' Sub insert_Time_asText()  

Sub Zeit_Text
	sDateTime_setAs   = "txt"  
	sDateTime_setWhat = "TIM"  
	DateTime_Init
	DateTime_action
End Sub


'  
' << Zeitstempel als Text  

Sub Zeitstempel_Feld
	sDateTime_setAs   = "val"  
	sDateTime_setWhat = "T_S"  
	DateTime_Init
	DateTime_action
End Sub

' << Zeitstempel als Text  

Sub Zeitstempel_Text
	sDateTime_setAs   = "txt"  
	sDateTime_setWhat = "T_S"  
	DateTime_Init
	DateTime_action
End Sub


' ===========================================================================  
' Allgemeiner Codeteil  
'  
' ===========================================================================  

' Aktuelles Dokument  
'  
Sub DateTime_Init
oDesktop = _
 createUnoService( "com.sun.star.frame.Desktop" )  
oController = _
 oDesktop.getCurrentFrame().getController()
oDokument = _
 oController.Model
If NOT DateTime_isDocTypeOK( oDokument ) then
	' Dokumententyp nicht unterstützt  
	Msgbox _
	"Dokumententyp wird nicht unterstützt" _  
	,64, _
	cMODULNAME & "V " & cMODULVERSION  

' 	print "Dokument not supported"  
	STOP
End If

' diese Zeit nehmen/speichern  
DateTime_secureNow

If sDateTime_setAs = "val" Then  
 ' Aufbereiten der gewünschten Formatierung  
 DateTime_setNumFormat
End If

End Sub




' Bestimmen des Dokumententyps  
' aktuell: Writer, Calc, HTML  
Function DateTime_isDocTypeOK( oDok ) as Boolean
DateTime_isDocTypeOK = FALSE

If oDok.supportsService(_
 "com.sun.star.text.TextDocument" ) Then  
 sDateTime_DocType = "WRITER"  
 DateTime_isDocTypeOK = TRUE
 Exit Function
ElseIf oDok.supportsService(_
 "com.sun.star.text.WebDocument" ) THEN  
 sDateTime_DocType = "WRITERWEB"  
 DateTime_isDocTypeOK = TRUE
 Exit Function
ElseIf oDok.supportsService(_
 "com.sun.star.sheet.SpreadsheetDocument" ) Then  
 sDateTime_DocType = "CALC"  
 DateTime_isDocTypeOK = TRUE
 Exit Function
Else
 sDateTime_DocType = "-n/a-"  
 DateTime_isDocTypeOK = FALSE
End If

End Function

' ===========================================================================  
' Codeteil fuer Datum  
'  
'  
' ===========================================================================  
Sub DateTime_secureNow
' lokales speichern der Systemzeit  
' nummerische Werte  
lDateTime_DATE = DateValue( NOW ) '  
dblDateTime_TIME = CDbl( NOW )
' Zeichenfolgen  
' Das Rueckgabeformat der Funktion "Date" ist von dem Gebietsschema  
' abhaengig, deshalb gewuenschtes Format durch Textmanipulation  
' zusammensetzen  
' msgbox Date zeigt: 21.11.2005  
 ' Right(Date,4) & "-" & Mid(Date,4,2) & "-" & left(Date,2)  
 ' soll: JJJJ-MM-TT 2005-11-21  
sDateTime_DATE = CDateToISO( Now )
' now: jjjjmmtt 20051121'  
' use this variable if needed  
'  

' compose a ISO formatted date  
sDateTime_FISO = _
 Left( sDateTime_DATE, 4 ) & _
 cDateTime_TRENNER & _
 Mid( sDateTime_DATE, 5 , 2 ) & _
 cDateTime_TRENNER & _
 Right( sDateTime_DATE, 2 )
 ' durch Apostroph erzwungenes Textformatnumber  
 ' forced text format  


' die Funktion TIME gibt 12:34:56  
' im Format hh:mm:ss zurück  
' Textteil ausschneiden  
sDateTime_TIME = _
 Mid( TIME, 1, 5 )

' Zeitstempel zusammen setzen  
sDateTime_DATETIME = _
 sDateTime_FISO & _
 " " & _  
 sDateTime_TIME


End Sub

Sub DateTime_setNumFormat
' Abfragen ob gewuenschtes Format schon definiert  
' hier: benutzerdefiniertes Datumsformat  
' query if user-defined date format already in locale settings  
Dim aLocale As New com.sun.star.lang.Locale

oFormats = _
 oDokument.NumberFormats

nDateTime_Format_DATE = _
 oFormats.queryKey( MYDATEFORMAT, aLocale, True )
' Schluesselwert nicht gefunden: hinzufuegen Format  
' format not found - key not returned: add format  
If nDateTime_Format_DATE < 0 Then
 nDateTime_Format_DATE  = _
 oFormats.addNew( MYDATEFORMAT, aLocale )
End If

nDateTime_Format_TIME = _
 oFormats.queryKey( MYTIMEFORMAT, aLocale, True )

' Schluesselwert nicht gefunden: hinzufuegen Format  
' format not found - key not returned: add format  
If nDateTime_Format_TIME < 0 Then
 nDateTime_Format_TIME = _
 oFormats.addNew( MYTIMEFORMAT, aLocale )
End If




nDateTime_Format_DATETIME = _
 oFormats.queryKey( MYTIMESTAMPFORMAT, aLocale, True )

' Schluesselwert nicht gefunden: hinzufuegen Format  
' format not found - key not returned: add format  
If nDateTime_Format_DATETIME < 0 Then
 nDateTime_Format_DATETIME = _
 oFormats.addNew( MYTIMESTAMPFORMAT, aLocale )
End If


End Sub








' Hauptroutine zur Arbeitssteuerung  
'  
Sub DateTime_action()

' on what document do we work  
Select Case sDateTime_DocType

 Case "CALC" ' Calc Dokument  
	' die Auswahl (Zelle/n, Bilder, andere Objekte)  
	oSelection = oController.getSelection()

	If IsNull( oSelection ) Then
	 Exit Sub
	End If

	' Fehlerbehandlung: keine Zelle(n)  
	' error handling: no cell(s) selected  
	If Not oSelection.supportsService(_
	 "com.sun.star.table.CellProperties" ) Then  
	 exit sub
	End If


	Select Case sDateTime_setWhat & sDateTime_setAs
	 Case = "DATval"  
	 	oZellEinf = lDateTime_DATE
	 	nDateTime_SetFormat = nDateTime_Format_DATE
	 Case = "DATtxt"  
	 	oZellEinf = sDateTime_FISO
	 Case = "TIMval"  
		oZellEinf = dblDateTime_TIME
		nDateTime_SetFormat = nDateTime_Format_TIME
	 Case = "TIMtxt"  
		oZellEinf = sDateTime_TIME
	 Case = "T_Sval"  
		oZellEinf = dblDateTime_TIME
		nDateTime_SetFormat = nDateTime_Format_DATETIME
	 Case = "T_Stxt"  
		oZellEinf = sDateTime_DATETIME
	 Case Else
		 Exit Sub
	End Select

	DateTime_setCalc( oSelection , oEinf )


 Case "WRITER" , "WRITERWEB" ' Writer Dokument  
	' als Wert  
	if sDateTime_setAs= "val" then  

		' Textfeld erzeugen  
		oDateTimeField = oDokument.createInstance( _
			"com.sun.star.text.TextField.DateTime" )  
		' einstellen:  
			' Schalter "fest" = wird zur Ausfuehrung gesetzt und nicht geaendert  
			' Schalter "ist ein Datum" einstellen  
			' ermitteltes Datumsformat (ist Nummernformat) anwenden  
			' apply date (number) format  
		Select Case sDateTime_setWhat
			Case = "DAT"  
				nDateTime_SetFormat = nDateTime_Format_DATE
			Case = "TIM"  
				nDateTime_SetFormat = nDateTime_Format_TIME
			Case = "T_S"  
				nDateTime_SetFormat = nDateTime_Format_DATETIME
			Case Else
			    Exit Sub
		End Select

		With oDateTimeField
			.IsFixed = True
			.IsDate = True
			.NumberFormat = nDateTime_SetFormat
		End With
		' in das Dokument eintragen  
		oZumEinfuegen = oDateTimeField
		DateTime_setWriter( oZumEinfuegen )


	' als Text  
	Else
		' in das Dokument eintragen  
		Select Case sDateTime_setWhat
			Case = "DAT"  
				oZumEinfuegen = sDateTime_FISO
			Case = "TIM"  
				oZumEinfuegen = sDateTime_TIME
			Case = "T_S"  
				oZumEinfuegen = sDateTime_DATETIME
			Case Else
				Exit Sub
		End Select


		DateTime_setWriter( oZumEinfuegen )

	End If

 Case Else
	 print "forgotten doc type"  

End Select

End Sub
' ===========================================================================  





' ===========================================================================  



' ===========================================================================  
' Routine zum Eintragen Writer  
Sub DateTime_setWriter( sFeldZumEinfuegen )

' Objekt des sichtbaren Cursors  
oViewCursor = oController.ViewCursor

' Routine aufrufen  
' Cursorstandort bestimmen  
' determine where the cursor is  
DateTime_suchTxtCursor( oViewCursor )


' je nach Position des Cursors unterschiedlicher Zugriff  
' different access depending on cursor position  
Select Case CursorIstHier

	'----------------------------------------------------------------------------  
	' cursor in text  
	Case CURPOS_InText
		if sDateTime_setAs= "val" then  
			oDokument.getText().insertTextContent( _
			oViewCursor, oZumEinfuegen , False )
		else
			oTextCursor = _
			oDokument.getText().createTextCursorByRange( oViewCursor )
			oTextCursor.String = oZumEinfuegen
		end if
	'----------------------------------------------------------------------------   
	'cursor in texttable  
	Case CURPOS_InTabelle
		oZelle = oViewCursor.Cell
		if sDateTime_setAs= "val" then  
			oZelle.getText().insertTextContent( _
			oViewCursor, oZumEinfuegen, False )
		else
			oTextCursor = oZelle.getText().createTextCursorByRange( oViewCursor )
			oZelle.insertString( oTextCursor, oZumEinfuegen, FALSE )
		end if
	'---------------------------------------------------------------------------  
	' cursor in frame  
	Case CURPOS_InRahmen
		if sDateTime_setAs= "val" then  
			oRahmen = oViewCursor.TextFrame()
			oRahmen.getText().insertTextContent( _
			oViewCursor, oZumEinfuegen, False )
		else
			oRahmen = oViewCursor.TextFrame()
			oRahmen.getText().insertText( _
			oViewCursor, oZumEinfuegen, False )
		end if
	'---------------------------------------------------------------------------  
	' in Kopf- oder Fusszeile  
	' cursor in header or footer  
	Case CURPOS_InHeaderFooter
		if sDateTime_setAs= "val" then  

			' Feld einfügen  
			' insert field  
			oText.insertTextContent( _
			oViewCursor, oZumEinfuegen, False )
		else
			oTextCursor = oText.createTextCursorByRange( oViewCursor )
			oText.insertString( oTextCursor, oZumEinfuegen, FALSE )
		end if
	'---------------------------------------------------------------------------  
	Case Else
		' not yet programmed  
End Select

End Sub


' ===========================================================================  
' Diese Routine bestimmt die Position des sichtbaren Cursors im Text eines  
' Writer Dokuments  
' momentan wird die Position erkannt in:   
' Tabellen, Textrahmen, Kopf- und Fusszeilen  

' This routine determines position of viewable cursor within a writer doc  
' detects: cursor in texttable, textframe, header and footer  
Sub	DateTime_suchTxtCursor( oViewCursor )

' init Zeiger fuer Position  
CursorIstHier = 0


' Sonderfall: Cursor im Bereich Kopf-/Fusszeile  
if oViewCursor.getText().ImplementationName = "SwXHeadFootText" then  
	oText = oViewCursor.getText()
	CursorIstHier = CURPOS_InHeaderFooter
	exit sub
end if

if Not IsEmpty( oViewCursor.TextTable ) then
	CursorIstHier = CURPOS_InTabelle
	exit sub
end if

if Not IsEmpty( oViewCursor.TextFrame ) then
	CursorIstHier = CURPOS_InRahmen
	exit sub
end if


' Cursor ist immer "im Text", deshalb diesen Schalter zuletzt setzen  
' cursor always "in" text, so set this trigger last  
if Not IsEmpty( oViewCursor.Text ) then
	CursorIstHier = CURPOS_InText
end if

End Sub





' ===========================================================================  
' Calc Dokumente  

Sub DateTime_setCalc( oSelection , oEinf )
Dim oEinBereich

' Zelle / Bereich / mehrere Bereiche ?  

If	oSelection.supportsService( cEinzelZelle ) Then
' single cell  
    DateTime_setZelle( oSelection )
ElseIf _
	oSelection.supportsService( cVieleBereiche ) Then
	' mehrere Bereiche  
    For i = 0 To oSelection.getCount() - 1
      oEinBereich = oSelection.getByIndex(i)
      DateTime_setCalc( oEinBereich )
    Next
ElseIf _
	oSelection.supportsService( cEinzelBereich ) Then
' 	ein Bereich von Zellen  
    DateTime_set1Bereich( oSelection )
End If

End Sub


' Calc  
' einzelne Zelle  
Sub DateTime_setZelle( oSel )

If sDateTime_setAs= "val" Then  
 ' Wert geht über Formatierung  
 With oSel
  .FormulaLocal = oZellEinf
  .NumberFormat = nDateTime_SetFormat
 End With
Else
' sDateTime_setAs= "txt"  
  ' V2  
  If cDateTime_Calc_Add2Text_Switch = TRUE Then
    Dim sTempText
    sTempText = oSel.getString()
    If ( Len( sTempText ) > 0 ) Then
       Select Case cDateTime_Calc_Add2Text_Position
         Case = "PRE"  
             sTempText = _
               oZellEinf & _
               cDateTime_Calc_Add2Text_Separator & _
               oSel.getString()
               oSel.setString( sTempText )

         Case = "POST"  
             sTempText = _
               oSel.getString() & _
               cDateTime_Calc_Add2Text_Separator & _
               oZellEinf
               oSel.setString( sTempText )
         Case Else
           Exit Sub
         End Select
    Else
	  oSel.setString( oZellEinf )
	End IF
	
  Else
    oSel.setString( oZellEinf )
  End IF
End If
End Sub


' Calc  
' einen Bereich von Zellen setzen  
Sub DateTime_set1Bereich( oSelection )

' Daten des Bereichs  
oDaten() = oSelection.getDataArray()
' die Zeilen des Bereichs  
' zz: ZählerZeilen  
for zz = _
	LBound( oDaten() ) to _
	UBound( oDaten() )

	oDatenZeile() = oDaten( zz )
	' zz: ZählerZeilen  

	' pro Zeile die cells/Zellen  
	' zc: ZählerCells  
	for zc = _
		LBound( oDatenZeile() ) to _
		UBound( oDatenZeile() )

		oDatenZeile( zc ) = oZellEinf
	next ' Zellen  
next ' nächste Datenzeile  


' Daten auf diesen Bereich  
oSelection.setDataArray( oDaten() )
If sDateTime_setAs= "val" Then  
 ' Datumformat (ist ein Nummernformat) anwenden  
 ' apply date (number) format  
 oSelection.NumberFormat = nDateTime_SetFormat
End If

End Sub

' -------------------------------------------------------