[VBNET] DateTime 클래스 : 현재 선택된 달의 마지막 요일 및 날짜 구하기

* DateTime Class 를 이용한 현재 선택된 달의 마지막 날짜 및 요일 구하기 예제...

 

메인화면

 

 

전체 소스코드

Form1.vb

 

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'C# 과 같은 DateTime Class 이용
        numYear.Value = DateTime.Now.Year
        numMonth.Value = DateTime.Now.Month

        'VB6 처럼 사용
        'numYear.Value = Date.Now.Year
        'numMonth.Value = Date.Now.Month

    End Sub

    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

        '날짜 타입으로 변환 하기...
        Dim dtTmp As DateTime = DateTime.Parse(numYear.Value.ToString() + "-" + numMonth.Value.ToString() + "-01")

        '현재 선택된 달 +1 하기...
        Dim dt As DateTime = dtTmp.AddMonths(1)
        '+1 된 달에서 하루 빼기...
        dt = dt.AddDays(-1)

        label4.Text = "선택된 년월: " + numYear.Value.ToString() + "-" + numMonth.Value.ToString()
        label5.Text = "마지막 일: " + dt.ToString("dd")
        label6.Text = "마지막 요일: " + GetDayOfWeek(dt)


    End Sub


    Private Function GetDayOfWeek(ByVal dt As DateTime) As String

        Dim strDay As String = ""

        Select Case dt.DayOfWeek
            Case DayOfWeek.Monday
                strDay = "월요일"
            Case DayOfWeek.Tuesday
                strDay = "화요일"
            Case DayOfWeek.Wednesday
                strDay = "수요일"
            Case DayOfWeek.Thursday
                strDay = "목요일"
            Case DayOfWeek.Friday
                strDay = "금요일"
            Case DayOfWeek.Saturday
                strDay = "토요일"
            Case DayOfWeek.Sunday
                strDay = "일요일"
        End Select

        Return strDay

    End Function

End Class

 

* 사용자 정의 함수 GetDayOfWeek => 요일 값을 문자열로 변환 하여 리턴 하는 함수

 

* 예제 결과

 

결과화면