oFeld.NumberFormat

[komma4]

In diesem Fall beschreibst Du Dein gewünschtes Format - und fragst das NumberFormat ab.

Code: Alles auswählen

public Const  MYDATEFORMAT = "JJJJ-MM-TT"
[...]
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

aus meiner Extension: DateTime2

Hilft das weiter?

[komma4]

Diese "Zahl" (=numberformat) erhälst Du nach Ablauf des geposteten Codes, also ein:

msgbox nDateTime_Format_DATE
als letzte Anweisung.

[komma4]

Da kam die Meldung: Basic-Syntax Fehler, erwartet Sub.

Was mache ich da falsch ??

Du hast nur ein snippet erhalten: da fehlt
Sub anzeigen_NummerFormat
oben und
End Sub unten

http://www.ooowiki.de/StarBasic

[komma4]

ja: eine PUBLIC Deklaration muss ausserhalb einer SUB stehen...

Brauchst Du nicht, wenn die Variable nicht durch andere Codeteile genutzt wird... (s. F1 Onlinehilfe; über die Gültigkeit von Variablen)

[moritz]

Hallo,
wenn ich die richtigen Einstellungen für das Nummernformat ermitteln will, formatiere ich eine Beispielzelle wie gewünscht und frage dann die Eigenschaften mit XRAY ab. Xray kannst Du Dir als OO- Erweiterung herunterladen.
Moritz

sub Eigenschaften
BasicLibraries.LoadLibrary("XrayTool")
If thisComponent.SupportsService("com.sun.star.sheet.SpreadsheetDocument") Then
xray thisComponent.getCurrentSelection()
end if
end sub

[turtle47]

Hi Roland,

Code: Alles auswählen

84

Jürgen