Archiv des LibreOffice- und OpenOffice.org-Wiki

[ÜberSicht] [TitelIndex] [WortIndex] [SeiteFinden

Aktuelles Systemdatum wird als String eingefügt

SO5.1 SO5.2

Sub Aktuelles_Datum
        if GetSolarversion > 517 then
                Version = "com.sun.star" 'SO 5.2 und höher
        else
                Version = "stardiv.one"  'SO 5.1 & SO 5.1a
        end if
        oDesktop = createUNOService( Version & ".frame.Desktop" )
        oDoc = oDesktop.ActiveComponent
        oRA = oDoc.CurrentSelection.RangeAddress 'Prüfung ob nur eine Zelle selektiert ist!
        if oRA.StartRow = oRA.EndRow and oRA.StartColumn = oRA.EndColumn then
                oDoc.CurrentSelection.SetString(date()) 'Fügt das aktuelle Systemdatum als String ein.
        else
                Print "Mehrere Zellen selektiert!"
        end if
End Sub

Klaus Osigus 13.09.2004

SO6.0 OO1.0 oder höher

sub Aktuelles_Datum
   odoc=thisComponent
   oZelle=oDoc.getCurrentSelection()
   ' Prüfen ob es sich um eine Zelle oder einen Bereich handelt
   checkzelle=HasUnoInterfaces( oZelle, "com.sun.star.table.XCell" )
   if checkzelle then 
     oZelle.string=date
    else
     msgbox "Mehrere Zellen markiert"
   end if  
end sub

Michael Dannenhöfer 18.05.2005


KategorieMakro KategorieCalc


LizenzBedingungen | AnbieterKennzeichnung | DatenschutzErklärung | Stand: 2013-04-28