文字列の日付から曜日を表示する

＜分類：値変換＞
＜使用例：文字列の日付(20190223)から曜日(土)を表示する＞
＜プログラム例＞

Sub 使用例()
   Dim date_moji As String
   Dim rtn1 As String

   date_moji = "20190223"
   rtn1 = 共通_文字列の日付から曜日(date_moji)

   MsgBox ("文字列の日付" & date_moji & "は" & rtn1 & "曜日です")

End Sub

Function 共通_文字列の日付から曜日(date_moji As String) As String
'date_moji:対象文字列の日付
    
    Select Case Weekday(共通_cov_date_9d(date_moji))
           Case "1"
                共通_文字列の日付から曜日 = "日"
           Case "2"
                共通_文字列の日付から曜日 = "月"
           Case "3"
                共通_文字列の日付から曜日 = "火"
           Case "4"
                共通_文字列の日付から曜日 = "水"
           Case "5"
                共通_文字列の日付から曜日 = "木"
           Case "6"
                共通_文字列の日付から曜日 = "金"
           Case "7"
                共通_文字列の日付から曜日 = "土"
    End Select
    
End Function

Function 共通_cov_date_9d(p1 As String) As Date
    Dim d As Date
    d = Left(p1, 4) & "/" & Mid(p1, 5, 2) & "/" & Right(p1, 2)
    共通_cov_date_9d = (Format(d, "yyyy/mm/dd"))
End Function

数字の先頭を0(ゼロ)付きの文字列で表示する

＜分類：値変換＞
＜使用例：数字(3)を任意の桁(4)に合わせて先頭から0(ゼロ)を設定して文字列表示(0003)する＞
＜プログラム例＞

Sub 使用例()
   Dim suuji As Long
   Dim keta As Long
   Dim rtn1 As String

   suuji = 3
   keta = 4
   rtn1 = 数字の先頭0埋め(suuji, keta)

   MsgBox ("数字" & suuji & "を" & keta & "桁に合わせて先頭からゼロ埋めした文字列は" & rtn1 & "です")

End Sub

Function 数字の先頭0埋め(suuji As Long, keta As Long) As String
'suuji:変換元数字
'keta：任意の桁
    Dim mojis As String
    Dim cnt As String
    cnt = keta
    Do While cnt > 0
       mojis = mojis & "0"
       cnt = cnt - 1
    Loop
    
    数字の先頭0埋め = Format(suuji, mojis)
    
End Function

小文字が含まれる文字列を大文字に変換する

＜分類：値変換＞
＜使用例：小文字が含まれる文字列(abcdef)を大文字(ABCDEF)に変換する＞
＜プログラム例＞

Sub 使用例
   Dim s As String
   Dim s2 As String
   
   s = "abcdef"
   s2 = StrConv(s, vbUpperCase)

   MsgBox (s & "の文字列を" & s2 & "に変換しました")

End Sub