前回は関数を作成し、曜日を漢字で表示しました。
今回は曜日をひらがなにし、文字列の違うものを表示します。
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”になっています。