OpenOffice.info

[quote="turtle47"][quote="dherr"]Wo kann man gerade solche Eigenschaftswerte nachlesen? Hast du evtl. nen Link parat...[/quote]Kann ich Dir leider auch nicht sagen. Aber: "Versuch macht kluch*"[/quote]
So etwas steht in der [url=http://api.openoffice.org/docs/DevelopersGuide/DevelopersGuide.xhtml]Doumentation[/url].
Genauer: [url=http://development.openoffice.org/]SDK vom Projekt laden[/url] und installieren.

Lest ihr dann das Kapitel über Zahlenformate [Kap. 7.2.5] kommt ihr auf die Aufstellung der Konstanten [color=#008000]com.sun.star.util.NumberFormat[/color].

Wolltet ihr das auch wissen?

function Datum()
   oZell = thisComponent.getcurrentSelection()
   if not oZell.supportsService("com.sun.star.sheet.SheetCell") then
       msgbox "Bitte nur eine Zelle auswählen", 48, "Fehler!"
       exit function
   end if
   oZell.value = now()
    'oZell.NumberFormat = 30 'Format 13.05.06
    'oZell.NumberFormat = 31 'Format Sa 13.Mai 06
    'oZell.NumberFormat = 32 'Format 05.06
    'oZell.NumberFormat = 33 'Format 13.Mai
    'oZell.NumberFormat = 34 'Format Mai
    'oZell.NumberFormat = 35 'Format 2. Quartal 06
    oZell.NumberFormat = 36 'Format 13.05.2006
    'oZell.NumberFormat = 38 'Format Samstag, 13. Mai 2006
    'oZell.NumberFormat = 39 'Format 13. Mai 06
end function

Hallo Dietrich,

[quote="dherr"]Danke turtle47![/quote] Gerne geschehen :lol:. Ich lerne dabei auch immer noch dazu.

[quote="dherr"]Ich habe selbst natürlich intensiv gesucht nach Lösung. [/quote]Das glaube ich Dir.

[quote="dherr"]Allerdings bin ich OO Neuling und es ist bisschen mühsam als Autodidakt ;-)[/quote]Das geht mir genau so.

[quote="dherr"]Wo kann man gerade solche Eigenschaftswerte nachlesen? Hast du evtl. nen Link parat...[/quote]Kann ich Dir leider auch nicht sagen. Aber: "Versuch macht kluch*"

Nach lesen Deiner Frage habe ich mal in meiner Makro-Grabbelkiste nachgesehen und folgende Function gefunden:[code]function Datum()
oZell = thisComponent.getcurrentSelection()
if not oZell.supportsService("com.sun.star.sheet.SheetCell") then
msgbox "Bitte nur eine Zelle auswählen", 48, "Fehler!"
exit function
end if
oZell.value = now()
'oZell.NumberFormat = 30 'Format 13.05.06
'oZell.NumberFormat = 31 'Format Sa 13.Mai 06
'oZell.NumberFormat = 32 'Format 05.06
'oZell.NumberFormat = 33 'Format 13.Mai
'oZell.NumberFormat = 34 'Format Mai
'oZell.NumberFormat = 35 'Format 2. Quartal 06
oZell.NumberFormat = 36 'Format 13.05.2006
'oZell.NumberFormat = 38 'Format Samstag, 13. Mai 2006
'oZell.NumberFormat = 39 'Format 13. Mai 06
end function[/code]
Also habe ich mir gedacht, wenn man das Format über einen Zahlencode vorgeben kann, dann müsste man ja eigentlich
über den Zahlencode prüfen können ob ein Datum vorhanden ist. 8)

Es hat jetzt nichts damit zu tun, aber wenn Du mehr über die Methoden und Eigenschaften von Objecten erfahren möchtest, kann ich Dir das Tool "Xray" für OO.o Basic nur wärmsten empfehlen. Gib einfach mal Xray in die Suchfunktion hier im Forum ein.

[quote="dherr"]Gruß aus Salzburg[/quote]
Schöne Stadt.

Ich wünsche Dir ein schönes Wochenende aus dem Rheinland.

Jürgen

*Ich weis, es heißt klug, aber es reimt sich so schlecht.

Danke turtle47!

Das ists.
Nur noch eine Frage:
Ich habe selbst natürlich intensiv gesucht nach Lösung. Allerdings bin ich OO Neuling und es ist bisschen mühsam als Autodidakt ;-)
Wo kann man gerade solche Eigenschaftswerte nachlesen? Hast du evtl. nen Link parat...

Gruß aus Salzburg
Dietrich

Sub AufDatumPruefen
	myDoc = thisComponent
	mySheet = myDoc.sheets(0) 'erstes Tabellenblatt
	mycell1 = mysheet.getCellByPosition(0,0)'Zelle A1
	myvalue1 = mycell1.value
	'oZell.NumberFormat = 30 'Format 13.05.06
    'oZell.NumberFormat = 31 'Format Sa 13.Mai 06
    'oZell.NumberFormat = 32 'Format 05.06
    'oZell.NumberFormat = 33 'Format 13.Mai
    'oZell.NumberFormat = 34 'Format Mai
    'oZell.NumberFormat = 35 'Format 2. Quartal 06
    'oZell.NumberFormat = 36  'Format 13.05.2006
    'oZell.NumberFormat = 38 'Format Samstag, 13. Mai 2006
    'oZell.NumberFormat = 39 'Format 13. Mai 06
	If myCell1.type = 2 then 'Prüft auf String
	msgbox "Kein Datum vorhanden"
	'Prüfen der Zelle auf Datumformat 1.02.2008
	elseif myCell1.NumberFormat = 36 then 
	msgbox "Die Zelle enthält ein Datum"
	end if
End Sub

myCell1.type = 2 then 'Prüft auf String

Hi Dietrich,

Wenn Du weist in welchen Format das Datum vorliegt kannst Du es wie folgt prüfen:
[code]Sub AufDatumPruefen
myDoc = thisComponent
mySheet = myDoc.sheets(0) 'erstes Tabellenblatt
mycell1 = mysheet.getCellByPosition(0,0)'Zelle A1
myvalue1 = mycell1.value
'oZell.NumberFormat = 30 'Format 13.05.06
'oZell.NumberFormat = 31 'Format Sa 13.Mai 06
'oZell.NumberFormat = 32 'Format 05.06
'oZell.NumberFormat = 33 'Format 13.Mai
'oZell.NumberFormat = 34 'Format Mai
'oZell.NumberFormat = 35 'Format 2. Quartal 06
'oZell.NumberFormat = 36 'Format 13.05.2006
'oZell.NumberFormat = 38 'Format Samstag, 13. Mai 2006
'oZell.NumberFormat = 39 'Format 13. Mai 06
If myCell1.type = 2 then 'Prüft auf String
msgbox "Kein Datum vorhanden"
'Prüfen der Zelle auf Datumformat 1.02.2008
elseif myCell1.NumberFormat = 36 then
msgbox "Die Zelle enthält ein Datum"
end if
End Sub[/code]

Mehr zu [code]myCell1.type = 2 then 'Prüft auf String[/code]findest Du [url=http://www.dannenhoefer.de/faqstarbasic/WiekannmandenTypeinerZellebestimmen..html#Zweig174]hier[/url].

Jürgen

Hallo,

leider gibts wohl nicht den Celltyp für Datum-Werte in OO-Basic. Wenn ich aber Zellinhalte aus Calc in bspw. anderes Programm übernehmen will, kann ich nicht feststellen, ob der Inhalt der Zelle ein datum ist.
Datumswerte werden als Zahl übergeben, also als Long. Alle anderen Zahlen werden naturgemäß als Zahlenwerte übergeben.
Ich sehe aber momentan keine Möglichkeit, programmatisch zu erkennen, ob ein Datumswert vorliegt.

Oder weiß jemand nen Trick??

Gruß-
Dietrich