■ VBAについて（７回目） 関数３回目
今回も引き続き関数の説明をします。
１．format関数
式の結果を指定した書式に変換する。
format(式,書式)
式：書式を変換したい式
書式：変換書式を示す文字列
形式 書式 内容
数値指定 ０ ０で埋めた桁位置を桁数を指定
# 空白で桁位置と桁数を指定
. 小数点の位置を指定
% 数値をパーセントで記述
, 1000単位で区切り記号を挿入
: 時刻の区切り記号を挿入
/ 日付の区切り記号を挿入
\ 円記号を挿入
日付 d １〜３１までの日付を指定
dd １〜３１までの日付を指定
１桁の場合は先頭は0が表示される
yy 西暦年を下２桁で表示
yyyy 西暦年を４桁で表示
ggg 和暦を指定で表示
e 和暦で年を表示
m 月に表示
(例) format(123456789,"###,###,###") → 123,456,789
format(date,"yyyy/mm/dd") → 2003/08/11
format(date,"ggg e年m月d日") → 平成15年8月11日
format(1,"000") → 001
他の方法としてformat(123456789,"###,###,###")と
format(123456789,"Currency")は同じ数値を返します。
2．select case関数
条件を段階的に調べて一致した処理を実行する。
select case 変数
case 値a
処理a
case 値b
処理b
case else
処理c
end select
変数の値を値aから比較して一致する処理をする。
どれにも一致しない場合は、case elseの処理をする
case elseは省略可能
2-1.caseの指定方法
範囲してをする場合： case 1 to 12
区切りで指定する場合： case 1,2,3,4,5
条件式で指定する場合： case IntSu >= 10
(例)
select case IntTuki
case 2
IntHi = 28
case 1,3,5,7,8,10,12
IntHi = 31
case else
IntHi = 30
end select
３．exit
Sub, Function, Do Loop, For Nextなどから抜け出す処理
Exit Sub Sub プロシージャーから抜け出し
Exit Function Function プロシージャーから抜け出し
Exit Do Do Loopから抜け出し
Exit For For Nextから抜け出し
===================================================================
◆
実践テクニック、Accessで作るクラサバシステム ◆
何度もAccessのクラサバシステム挑戦するができないのはなぜか？
それは、実用例題で実践トレーニングをしていないからです。
編集・構成：高橋浩
提供・発行：ティウェア
http://www.1tware.com/index.html
Access2000+MSDE2000、Access2002+MSDE2000、Access2003+MSDE2000で
作る販売管理ソフト、クライアントサーバーシステムを構築
※当メールマガジンに掲載された記事を許可なく転載することを禁じます。
===================================================================
実践テクニック、Accessで作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|