曜日の算出方法


サンプルファイルのダウンロード
タイトル 圧縮ファイル名 バージョン 初回登録日 最新登録日 元ファイルザイズ 圧縮ファイルサイズ
曜日 youbi.lzh V 1.0 2002.05.04 2002.05.05 18 KB 6 KB

----------------------------------------------------------
VBAのソース内容
----------------------------------------------------------

Function 曜日(A)
'****************************************
'***<<PG. M.kujira >>***
'指定した日の曜日の計算処理
'****************************************
'MAIN 引数
'A:日のカウント数
'****************************************

　　　　年号 = Choose(Weekday(A), "日", "月", "火", "水", "木", "金", "土")

End Function


----------------------------------------------------------
関数説明
----------------------------------------------------------

Weekday：曜日の数字を求める関数

　Weekday(○)
　文法/書式
　○：日のカウント数

　帰り値：日曜日：１
　　　　　　月曜日：２・・・土曜日：７

Choose：指定した数値に対応する値をリストから選択して返す関数

　Choose（○,●・・・◎）
　○：指定した数値
　●，◎：選択リスト


----------------------------------------------------------
Memo
 ----------------------------------------------------------

　　この関数は、現場編の交通整理人とかのファイルの中で使ってたりします。単純なモノですが、同じ処理が多く使われる場合、生でセルに入力するよりも、VBAにしておくと、その分だけファイルサイズが小さくなるのでそうしています。