文字列のひらがなをカタカナに変換したり、全角を半角に変換したりすることが多々あると思います。
VBやC#には、そのような変換を行うことができる、StrConvという関数が標準で準備されてます。
StrConv関数は、第1引数に変換対象の文字列、第2引数に変換方法を指定します。
第2引数で指定出来る主な値を紹介します。
| 変換内容 | 値 | 定数（VB6、VBA） | 定数（VB.NET、C#） |
|---|---|---|---|
| 小文字を大文字に変換 | 1 | vbUpperCase | UpperCase |
| 大文字を小文字に変換 | 2 | vbLowerCase | LowerCase |
| 単語の先頭のみ大文字に変換 | 3 | vbProperCase | ProperCase |
| 半角を全角に変換 | 4 | vbWide | Wide |
| 全角を半角に変換 | 8 | vbNarrow | Narrow |
| ひらがなをカタカナに変換 | 16 | vbKatakana | Katakana |
| カタカナをひらがなに変換 | 32 | vbHiragana | Hiragana |
年齢計算をする方法は色々ありますが、割と簡単に計算する方法を紹介します。
(現在日 – 誕生日) / 10000
上記の小数点以下を切り捨てたものが年齢になります。
現在日と誕生日は、数値のみの形式に変換します。
例）2010/11/11 → 20101111
ソースのライセンスはGPLとします。
System.Math.Floor((Integer.Parse(Now.ToString("yyyyMMdd")) - Integer.Parse(Date.Parse("1980/01/01").ToString("yyyyMMdd"))) / 10000)
Int((CLng(Format(Now, "yyyymmdd")) - CLng(Format(CDate("1980/01/01"), "yyyymmdd"))) / 10000)
ちなみに、VB.NETでも上記の方法で年齢計算をすることが出来ます。
floor((date("Ymd") - date("Ymd", strtotime("1980/01/01"))) / 10000);
UPDATE:
コメント欄よりご意見を頂きVB6、VBAのサンプルを修正しました。