カテゴリー: 技術系

VBで、どうしても「アルファベットの月表示 日, 年」のフォーマットで出力する必要があった。
表示が「August 31, 2012」になるように整えなければならなったのだ。
（今回は、本当にVB.NETでやった。古くて大変だった・・・）
いろいろと調べてみると、上のフォーマットに曜日や時間つきで
表示するフォーマットはあったが、月と日と年だけを表示するという
フォーマットはなかった。

組み合わせることによって、下記のフォーマットでいけることが判明。

 "MMMM d, yyyy"

ポイントは、MMMMのところ。これにより、月が省略されない形で表示される。

しかし、問題はこれだけではなく、日付の出力では実行環境のロケールをみていることが判明。
英語で出力しようとしていたら、日本語で出力されて、文字化け。
（ちなみにどんな日本語で出力されたかは不明・・・）
整形して出力する際に、ロケールを指定する必要があった。

こんな感じで書くとよい

 Dim usDate as Date = Date.Now()
 Dim culture As New System.Globalization.CultureInfo("en-us")
 Label.text = usDate.ToString("MMMM d, yyyy", culture)

関数にするなら、こんな感じ。
（日付フォーマット以外の文字列を渡すとクラッシュするので、その場合は空文字を返すようにしている）

     '----------------------------------------------------
     ' August 31, 2012 のフォーマットで文字列を返す関数
     '----------------------------------------------------
     Private Function getDateMDYformat(ByVal str As String)
         Try
             Dim usDate As Date = str
             Dim culture As New System.Globalization.CultureInfo("en-us")
             Return usDate.ToString("MMMM d, yyyy", culture)
         Catch ex As Exception
             Return ""
         End Try
 
     End Function

ロケールによって出力が変わるというところは、かなりハマった。
CultureInfoでちゃんと指定してやれば、US以外のフォーマットでも出せるとわかったのはめっけもん。
VBは、やれることは多いんだけど、調べるのが大変だ。

VBで変数やコントロールに改行コードを入れるには、vbCrLfを指定する。
（ControlChars.CrLf と指定してもよい）

■使い方

 Dim str As String
 str = "一行目" & vbCrLf
 str &= "2行目"

ちなみに vbCr ならキャリッジリターン、vbLf ならラインフィードになる。
開発によっては、vbLfを使うこともありえる。

VBでコードを書いているとコードの冒頭に定数宣言などを多数書く。
これが長くなってしまうとソースコードの可読性が下がってしまう。
定数宣言などが長くなる場合には、#Region ディレクティブ / #End Region ディレクティブ を使用し読みやすくする。

#Region ディレクティブを使用することで、Visual Studioのコードのアウトライン機能で 展開や折り畳みができるようになる。

■使い方

Public Class DefaultClass

#Region "定数宣言"
   Private Const ACTIVE_FLAG = 1
   Private Const NONACTIVE_FLAG = 0
   Private Const TAX = 0.05
#End Region