カテゴリー: 技術系

消費税を計算する場合、原則として1円未満の場合は切り捨てを行う。
（ただし、四捨五入も認められているので、四捨五入をしても間違えではない。）

VBで消費税計算をする場合は、小数点以下を切り捨てるために Math.Floor() メソッドを使用する。

■例）

 Dim TaxRate As Double = 0.05
 Dim UnitPrice As Integer = 103
 Dim Total As Integer
 
 Total = Math.Floor(UnitPrice * TaxRate)

■結果：切り捨てしない場合には108.15、切り捨てにより108になる。

計算結果に対して、Math.Floorメソッドを使うことにより、
切り捨てた数をInteger型にいれることができる。

ちなみに、小数点以下を切り上げしたい場合には、Math.Ceiling() メソッドを使う。

他の方法としては、ToString() メソッドで小数点以下をまるめることもできる。
変数.ToString(“C”) を指定することで、小数点以下を四捨五入することができる。

■例）

 Dim TaxRate As Double = 0.05
 Dim UnitPrice As Integer = 103
 Dim TotalTemp As Double
 Dim Total As Integer
 
 TotalTemp = UnitPrice * TaxRate
 Total = TotalTemp.ToString("C")

この方法でも、小数点以下の表示はなくせるが、四捨五入になる。

.NET Framework 4.5では、CLRのバージョンが4.5になっており、独自のCLRとなった。
.NET Frameworkは、2.0～3.5SPまでがCLR2.0、4.0がCLR4.0となっている。
.NET Frameworkは実行環境がCLRのバージョンにより左右されるため、
CLR4.0しか動作しないWindowsでは、.NET Framework4.5のアプリを
動作させることができない。

ただし、CLR4.0とCLR4.5は完全互換性があるとのこと。

どちらにしても、基盤となるCLRのバージョンが違うため、
開発などを進める際には注意が必要。
互換性があるといっても、ベースになるバージョンが違うと実行できないはずなので、
コンパイルのし直しなどは発生するはずだし、実行環境のアップデートが求められる。
せめて、4系は同じCLRを使ってほしかったところではある。
2系のように少し長いこと使えるようにしてくれると、
開発する側はいろいろと楽なんだがね。

strConv関数を使うことで、文字列の種類を変えられる。

■例）

 Dim Text As String = "ＷＨＡＴ　ＴＩＭＥ　ＩＳ　ＩＴ　ＮＯＷ？"
 Dim narrowText As String = StrConv(Text, VbStrConv.Narrow)

・VbStrConv.Narrow で文字列内の全角文字 (2 バイト) を半角文字 (1 バイト) に変換
・VbStrConv.Wide で文字列内の文字列内の全角文字 (2 バイト) を半角文字 (1 バイト) に変換

他にも、VbStrConv.XXXで指定することにより、ひらがなからカタカナ、
繁体字を簡体字、というように変換用のセットが用意されているため、
簡単に変換することができる。

なお、例のように全角文字から半角文字に変換する場合、
文字列に含まれたカタカナが半角カタカナに変換されてしまうので注意が必要。

カタカナのケアだけ別途やる必要があるので、万能ではない。
カタカナが混じる場合は、別途組み合わせて対応が必要。

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を使うこともありえる。