カテゴリー ‘ VBA

文字列の形式(ひらがな→カタカナ、全角→半角等)を変換する関数

文字列のひらがなをカタカナに変換したり、全角を半角に変換したりすることが多々あると思います。

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

 

Share on Facebook

年齢を簡単に計算する方法(VB.NET、VB6、VBA、PHPのサンプル)

年齢計算をする方法は色々ありますが、割と簡単に計算する方法を紹介します。

計算方法

(現在日 – 誕生日) / 10000

上記の小数点以下を切り捨てたものが年齢になります。

現在日と誕生日は、数値のみの形式に変換します。

例)2010/11/11 → 20101111

 

 ソースのライセンスはGPLとします。

VB.NETのサンプル

System.Math.Floor((Integer.Parse(Now.ToString("yyyyMMdd")) - Integer.Parse(Date.Parse("1980/01/01").ToString("yyyyMMdd"))) / 10000)

VB6、VBAのサンプル

 

Int((CLng(Format(Now, "yyyymmdd")) - CLng(Format(CDate("1980/01/01"), "yyyymmdd"))) / 10000)

ちなみに、VB.NETでも上記の方法で年齢計算をすることが出来ます。

PHPのサンプル

floor((date("Ymd") - date("Ymd", strtotime("1980/01/01"))) / 10000);

UPDATE:

コメント欄よりご意見を頂きVB6、VBAのサンプルを修正しました。

Share on Facebook

広告

Facebook

カレンダー

2017年3月
« 5月    
 1234
567891011
12131415161718
19202122232425
262728293031  

最近の投稿

アーカイブ