HOME       LIST

【VBA】 曜日取得

日~土の曜日名を取得するコード

自分を許してあげる。外部のせいだとの言い訳はしないこと。 - 2016/06/18(DOJEUN)

That's understandable.(それは無理もない/それはそうだ/それは理解できる)


Function fncGetYoubi(pDate As String)
    Dim wrkInt1 As Integer
    Dim wrkStr1 As String
    
    wrkInt1 = Weekday(pDate)
    Select Case wrkInt1
        Case 1
            wrkStr1 = "日"
        Case 2
            wrkStr1 = "月"
        Case 3
            wrkStr1 = "火"
        Case 4
            wrkStr1 = "水"
        Case 5
            wrkStr1 = "木"
        Case 6
            wrkStr1 = "金"
        Case 7
            wrkStr1 = "土"
    End Select
    fncGetYoubi = wrkStr1
End Function

例)wrkYoubi = fncGetYoubi(2018/06/20)
    MsgBox wrkYoubi
    => 「水」が表示される。

以前コンテンツ:【C#】'Microsoft.Jet.OLEDB.4.0' プロバイダーはローカルのコンピューターに登録されていません。
次のコンテンツ:【VBA】 MDBにインデックスを追加するサンプルコード



Copyright(c) 2007-2020 dojeun.com All Rights Reserved.

Valid XHTML 1.0 Transitional