[APP] 심플한 날짜 계산기

작성자
dra****
작성일
2021-06-09 13:52
조회
58

엑셀에서 작업하다 어떤 경우에는 수동으로 날짜를 계산 해야 하는 경우가 있는데,

64비트 엑셀에서 DTPicker가 지원이 잘 안돼서 VB로 만든 프로그램입니다. VBA때문에 32비트로 회귀.

그때마다 빈 시트에 두개의 날짜를 넣고 계산하는 것이 귀찮아서 만든 아주 심플한 프로그램입니다.

필요하신 분은 다운 받아 쓰세요.

회원등급 : 열매2단계
포인트 : 1377 EP
전체 3

  • 2021-06-14 18:56

    와우 ㅎㅎ 간단하고 좋네요. 폼에 사용된 달력 아이콘이 아주 좋습니다! 👍👍


  • 2021-06-14 18:57

    왜인지 모르겠지만 이런 오류가 나오는 것만 빼면유..ㅜ

    Screenshot_1.png


    • 2021-06-14 23:22

      그렇지요? 달력 아이콘 선정에 제일 많은 시간을 투자 했습니다.

      ㅎㅎㅎ 아무런 짓도 안했는데... 여기 소스 공개 할 게요... ^^
      Vusiual Studio 로 콘트롤만 배열하고 간단 코딩 컴파일 했는데... 이젠 출처가 불분명하면 무조건 저런 메시지를 띄우나 보네요. 바이러스 앱 회사들 돈 벌기 쉽네요.

      Private Sub DateStart_ValueChanged(sender As Object, e As EventArgs) Handles DateStart.ValueChanged, DateEnd.ValueChanged
      Call GetDateDiff()
      End Sub

      Private Sub GetDateDiff()
      Dim sDate, eDate As Date
      Dim Diff As Long
      sDate = DateStart.Value
      eDate = DateEnd.Value
      Diff = DateAndTime.DateDiff("d", sDate, eDate)
      lblDiff.Text = Diff & " DAYs"
      End Sub

      Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
      Me.Close()
      End Sub

      Private Sub frmDateDiff_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      GetDateDiff()
      End Sub

      Private Sub txtDays_DoubleClick(sender As Object, e As EventArgs) Handles txtDays.DoubleClick
      Me.txtDays.Text = vbNullString
      End Sub

      Private Sub SetAddedDate()
      Dim Days
      If Me.txtDays.Text = vbNullString Then Exit Sub
      Days = Me.txtDays.Text
      'MsgBox(TypeName(Days) & vbTab & Me.txtDays.Text, vbOK, vbInformation)
      If IsNumeric(Me.txtDays.Text) And Days < 1000 And Days > -1000 Then
      Me.lblAddedDate.Text = DateAdd("D", Days, DateStart2.Value)
      End If
      End Sub

      Private Sub txtDays_KeyDown(sender As Object, e As KeyEventArgs) Handles txtDays.KeyDown
      If e.KeyCode = Keys.Enter Then
      SetAddedDate()
      End If
      End Sub

      Private Sub lblAddedDate_DoubleClick(sender As Object, e As EventArgs) Handles lblAddedDate.DoubleClick
      SetAddedDate()
      End Sub
      End Class


전체 404
번호 제목 작성자 작성일 추천 조회
360
New 엑셀의 끝은 과연 어디인가? (4)
꾸루꾸루 | 2021.06.17 | 추천 4 | 조회 22
꾸루꾸루 2021.06.17 4 22
359
[엑셀 VBA] Naming Convention - 변수나 개체 이름 붙이는 관행 (2)
dra**** | 2021.06.14 | 추천 1 | 조회 35
dra**** 2021.06.14 1 35
358
[엑셀 VBA] 자동화 - FORMS를 이용한 직원 근무시간과 급여 계산하기
dra**** | 2021.06.13 | 추천 1 | 조회 50
dra**** 2021.06.13 1 50
357
고맙습니다 (3)
가자 ! 하자!! 아자!!! | 2021.06.13 | 추천 1 | 조회 39
가자 ! 하자!! 아자!!! 2021.06.13 1 39
356
방가워요 (1)
dfgh**** | 2021.06.11 | 추천 1 | 조회 27
dfgh**** 2021.06.11 1 27
355
[엑셀 VBA] 자동화 - 데이터 관리의 기본과 고급필터의 유용성
dra**** | 2021.06.10 | 추천 3 | 조회 63
dra**** 2021.06.10 3 63
354
방문 상담 요청 방법?
dr**** | 2021.06.10 | 추천 0 | 조회 43
dr**** 2021.06.10 0 43
353
모두 오빠두엑셀 덕분입니다. (2)
DollShe365 | 2021.06.10 | 추천 5 | 조회 94
DollShe365 2021.06.10 5 94
352
[APP] 심플한 날짜 계산기 첨부파일 (3)
dra**** | 2021.06.09 | 추천 0 | 조회 58
dra**** 2021.06.09 0 58
351
빌게이츠가 한글을 사랑한다는 말이 사실일까? 엑셀에서 확인
dra**** | 2021.06.08 | 추천 0 | 조회 55
dra**** 2021.06.08 0 55
350
엑린이(?)입니다 (3)
투덜이스머프 | 2021.06.06 | 추천 4 | 조회 58
투덜이스머프 2021.06.06 4 58
349
[마소 FORMS] 무료로 마소 서버를 이용하여 필요한 정보 수집하기 - 매우 쉬움 (3)
dra**** | 2021.06.06 | 추천 0 | 조회 50
dra**** 2021.06.06 0 50
348
[액셀 VBA] 자동화 - 직책별로 뽑은 직원들을 폼에 연동하여 수정 조회 하기
dra**** | 2021.06.03 | 추천 1 | 조회 83
dra**** 2021.06.03 1 83
347
이제야 알게 되어 아쉽다. (6)
wshm**** | 2021.06.03 | 추천 8 | 조회 100
wshm**** 2021.06.03 8 100
346
Q&A 채택하고 싶은데 어떤식으로 채택해야 하나요? (4)
0328 | 2021.06.01 | 추천 0 | 조회 50
0328 2021.06.01 0 50
345
벽돌쌓기 첨부파일 (6)
눈사람 | 2021.06.01 | 추천 5 | 조회 79
눈사람 2021.06.01 5 79
344
[엑셀 VBA] 자동화 - ONEDRIVE를 서버로 활용하기 - 화상영어 회사 자동화 사례 (3)
dra**** | 2021.05.30 | 추천 2 | 조회 86
dra**** 2021.05.30 2 86
343
[엑셀 함수] WEEKNUM()으로 구한 몇 주차로 다시 날짜 구하기
dra**** | 2021.05.29 | 추천 0 | 조회 56
dra**** 2021.05.29 0 56
342
[엑셀 VBA] 자동화 - 1. 데이터 입력, 2. 양식에 자동으로 대입 3. 이메일 자동 발송 (2)
dra**** | 2021.05.28 | 추천 1 | 조회 95
dra**** 2021.05.28 1 95
341
VBA 이메일 자동발송 개별발송 질문드립니다 (4)
소람 | 2021.05.27 | 추천 1 | 조회 69
소람 2021.05.27 1 69
340
"최대 이익을 내는 판매가격의 예측" 강의 관련 문의입니다!!!! (1)
naver_5ef1913e089b5 | 2021.05.27 | 추천 0 | 조회 44
naver_5ef1913e089b5 2021.05.27 0 44
339
[엑셀 함수] 엑셀에 쓰이는 모든 함수들입니다. 첨부파일 (9)
dra**** | 2021.05.26 | 추천 21 | 조회 177
dra**** 2021.05.26 21 177
338
[엑셀 VBA] 자동화의 딜레마 (8)
dra**** | 2021.05.25 | 추천 6 | 조회 161
dra**** 2021.05.25 6 161
337
[엑셀 VBA] 데이터베이스 다루기 (3)
dra**** | 2021.05.24 | 추천 2 | 조회 127
dra**** 2021.05.24 2 127
336
[엑셀 VBA]-[팁] 콤보박스에 시트에 있는 값을 자동으로 집어 넣기 (1)
dra**** | 2021.05.22 | 추천 0 | 조회 78
dra**** 2021.05.22 0 78