GetRokuyou(日付)

指定項目 内 容
 日付  六曜を取得する日を指定します。

戻り値  六曜

    Private Sub Button_GetRokuyou_Click(sender As System.Object, _
                                    e As System.EventArgs) Handles Button_GetRokuyou.Click

        Dim w As New ChoiKits.Day

        MsgBox("今日は、 " & Today() & ”( ” & w.GetRokuyou(Today()) & " )" & " です。",, "六曜を取得する")

    End Sub

      

      サンプルプログラムダウンロード

    Public Function GetRokuyou(ByVal wrk_day As Date) As String

        '六曜をを求める

        Dim Lunar_YYMMDD As Date
        Dim Lunar_MM As Integer
        Dim Lunar_DD As Integer

        '新暦→旧暦
        Lunar_YYMMDD = GetKyuurekiDay(wrk_day)

        Lunar_MM = CDate(Lunar_YYMMDD).Month
        Lunar_DD = CDate(Lunar_YYMMDD).Day

        Dim Rokuyou As String = "大安赤口先勝友引先負仏滅"

        Return Rokuyou.Substring(((Lunar_MM + Lunar_DD) Mod 6) * 2, 2)

    End Function

 ChoiKits  GetKyuurekiDay
 Microsoft  
 ステートメント  
 オブジェクト  
 メソッド  
 プロパティ