자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb.net

IT HUB를 찾아주셔서 감사합니다.

Controls [vb.net] DateTimePicker 전월, 전주, 어제, 오늘, 금주 설정하기

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 2,860회 작성일 23-05-22 13:15

본문

    Private Sub cmd_d_x_Click(sender As Object, e As EventArgs) Handles cmd_d_5.Click, cmd_d_4.Click, cmd_d_3.Click, cmd_d_2.Click, cmd_d_1.Click
        Dim nm As String = sender.Name
        Dim idx As Integer = nm.Split("_").Last
        Select Case idx
            Case 1  '// 전월
                DTP_0_1.Value = DateSerial(Year(Now), Month(Now) - 11)
                DTP_0_2.Value = DateSerial(Year(Now), Month(Now), 0)
            Case 2  '// 전주
                DTP_0_2.Value = Now.Date.AddDays(-Weekday(Now, FirstDayOfWeek.Sunday))
                DTP_0_1.Value = DTP_0_2.Value.AddDays(-6)
            Case 3  '// 어제
                DTP_0_1.Value = Now.Date.AddDays(-1)
                DTP_0_2.Value = DTP_0_1.Value
            Case 4  '// 오늘
                DTP_0_1.Value = Now.Date
                DTP_0_2.Value = DTP_0_1.Value
            Case 5  '// 금주
                DTP_0_1.Value = Now.Date.AddDays(-Weekday(Now, FirstDayOfWeek.Monday))
                DTP_0_2.Value = Now.Date
            Case 6
        End Select
    End Sub

댓글목록

등록된 댓글이 없습니다.