Seite 1 von 1

Re: oFeld.NumberFormat

Verfasst: Di, 20.01.2009 11:59
von 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?

Re: oFeld.NumberFormat

Verfasst: Di, 20.01.2009 13:29
von komma4
Diese "Zahl" (=numberformat) erhälst Du nach Ablauf des geposteten Codes, also ein:

msgbox nDateTime_Format_DATE

als letzte Anweisung.

Re: oFeld.NumberFormat

Verfasst: Mi, 21.01.2009 08:45
von komma4
Rooland hat geschrieben: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

Re: oFeld.NumberFormat

Verfasst: Do, 22.01.2009 23:11
von 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)

Re: oFeld.NumberFormat

Verfasst: Fr, 23.01.2009 18:30
von 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

Re: oFeld.NumberFormat

Verfasst: Fr, 23.01.2009 21:04
von turtle47
Hi Roland, Jürgen