OOoBasic/Generic/NumberFormats

数書式

Calc やセル、書式フィールドなどで利用できる数書式フォーマットされた文字列を単独で利用できます。

NumberFormatsSupplier

数書式を提供するサービス。数書式を実際にフォーマットしてくれる NumberFormatter サービスで利用します。また、NumberFormats サービスをこのサービスから取得します。

oNFS = CreateUnoService("com.sun.star.util.NumberFormatsSupplier")

XNumberFormats

数書式を保持、作成などを行うインターフェース。NumberFormatsSupplier サービスから次のようにして取得します。このインターフェースで数書式のキーなどを取得します。

oNumberFormats = oNFS.getNumberFormats()

NumberFormatter

実際に数書式にフォーマットしてくれるサービス。attachNumberFormatsSupplier メソッドで利用する XNumberFormatsSupplier を与えてから利用します。

Sub nf_4
  Dim aLocale As New com.sun.star.lang.Locale
  aLocale.Language = "ja"
  aLocale.Country = "JP"

  oNFS = CreateUnoService("com.sun.star.util.NumberFormatsSupplier")
  oNumberFormats = oNFS.getNumberFormats()
  
  nKey = oNumberFormats.queryKey( "#,##0", aLocale, False )
  
  oNF = CreateUnoService("com.sun.star.util.NumberFormatter")
  oNF.attachNumberFormatsSupplier(oNFS)
  
  msgbox oNF.convertNumberToString(nKey,10000)
End Sub

convertNumberToString メソッドは数値をフォーマットされた文字列に変換します。

変換後の色が必要なときには queryColorForNumber メソッドを利用します。三つ目の引数はデフォルトの色です。

msgbox oNF.queryColorForNumber(nKey,10000,0)