date

Public Class DateUtil

#Region " 時間のフォーマット "
               Public Shared Function FormatTime(ByVal dtInput As Date) As String
            Dim strTime As String

            strTime = dtInput.ToString("hh:mm")

            Return strTime
        End Function

#End Region

#Region " 日付のフォーマット "
               Public Shared Function FormatDate(ByVal dtInput As Date) As String
            Dim strDate As String
            strDate = dtInput.ToString("yy/MM/dd(ddd)")

            Return strDate
        End Function

               Public Shared Function FormatDateTo4Y(ByVal dtInput As Date) As String
            Dim strDate As String
            strDate = dtInput.ToString("yyyy/MM/dd(ddd)")

            Return strDate
        End Function

#End Region

#Region " システム日付の得る "
                Public Shared Function GetSystemDate() As Date
            Return DateTime.Now.Date
        End Function
#End Region

#Region " システム日付STRINGの得る "
        
        Public Shared Function GetSystemDateString() As String
            Return DateTime.Now.Date.ToString("yyyy/MM/dd")
        End Function
#End Region

#Region " システム日付時間STRINGの得る "
               Public Shared Function GetSystemDTString() As String
            Return DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss")
        End Function
#End Region

#Region " システム時間の得る "
        '        Public Shared Function GetSystemTime() As String
            Return CType(DateTime.Now.Hour, String) & ":" & CType(DateTime.Now.Minute, String) & ":" & CType(DateTime.Now.Second, String)
        End Function
#End Region

#Region " 曜日を取得する。（日本語) "
               Public Shared Function GetDayOfWeekJapanese(ByVal targetDate As Date) As String
            Select Case targetDate.DayOfWeek
                Case DayOfWeek.Sunday
                    Return "日"
                Case DayOfWeek.Monday
                    Return "月"
                Case DayOfWeek.Tuesday
                    Return "火"
                Case DayOfWeek.Wednesday
                    Return "水"
                Case DayOfWeek.Thursday
                    Return "木"
                Case DayOfWeek.Friday
                    Return "金"
                Case DayOfWeek.Saturday
                    Return "土"
            End Select
        End Function
#End Region

    End Class