広告

posted by fanblog

2014年08月18日

VBA 曜日関数 配列を使う

前回は関数を作成し、曜日を漢字で表示しました。今回は曜日をひらがなにし、文字列の違うものを表示します。

Public Function yobi3(pDate As Date) As String
Const cTitle = "にちよう日,げつよう日,かよう日,すいよう日,もくよう日,きんよう日,どよう日"
Dim xYobino As Integer
Dim arTitle() As String

If pDate = 0 Then
yobi3 = ""
Exit Function
End If

arTitle = Split(cTitle, ",")
xYobino = Weekday(pDate, 1)

If xYobino >= 1 And xYobino <= 7 Then
yobi3 = arTitle(xYobino - 1)
Else
yobi3 = "xxx"
End If

End Function

[Dim arTitle() As String] は、配列を定義します。
[arTitle = Split(cTitle, ",")]は、cTitleの文字列を”,”カンマで分割し、それぞれを配列に代入します。配列の添え字は、定義しなければゼロから始まります。( arTitle(0), arTitle(1), arTitle(2),・・・・ )
なので、[yobi3 = arTitle(xYobino - 1)]で”-1”になっています。







posted by kaz at 10:25 | Comment(0) | TrackBack(0) | コンピュータ
この記事へのコメント
コメントを書く

お名前:

メールアドレス:


ホームページアドレス:

コメント:

※ブログオーナーが承認したコメントのみ表示されます。

この記事へのトラックバックURL
https://fanblogs.jp/tb/2694099
※ブログオーナーが承認したトラックバックのみ表示されます。

この記事へのトラックバック
リンク
access:
online:
ファン
検索
<< 2022年09月 >>
        1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30  
最新記事
最新コメント
オレンジ色の猫が by オーナー (02/06)
オレンジ色の猫が by 翠星石 (01/23)
ドローンを修理する by kaz (03/14)
ドローンを修理する by obayashi (03/10)
タグクラウド
カテゴリアーカイブ
プロフィール




×

この広告は30日以上新しい記事の更新がないブログに表示されております。