• 파일시티 이벤트
  • 캠퍼스북
  • LF몰 이벤트
  • 서울좀비 이벤트
  • 탑툰 이벤트
  • 닥터피엘 이벤트
  • 아이템베이 이벤트
  • 아이템매니아 이벤트

비주얼 베이직을 이용한 일정관리 프로그램

*공석*
최초 등록일
2007.12.21
최종 저작일
2006.11
파일확장자 압축파일
가격 2,500원 할인쿠폰받기
다운로드
장바구니

소개글

Microsoft Visual Basic 6 을 이용해 제작한
일정관리 프로그램입니다.

만년달력과 일정과 기념일 등록 삭제가 가능하며
일별 메모등록 기능, 검색기능도 갖추고 있습니다.
기준일로부터 몇일이 지났는지혹은 몇일 남았는지
계산이 가능한 날짜계산기 기능을 포함하고 있습니다.

이프로그램은 실행후 3개의 txt 파일을 생성합니다.
일정을 등록하면 이 파일에 기록되며 파일을 삭제할시
모든 정보가 삭제되니 주의 하시기 바랍니다.

비주얼 베이직을 공부하시는 초보 프로그래머
분들께 많은 도움이 되실거라고 생각합니다.

소스 일부입니다.

Public Function datecal(ByVal year1 As Integer, ByVal month1 As Integer, ByVal day1 As Integer, ByVal year2 As Integer, ByVal month2 As Integer, ByVal day2 As Integer)

Dim datedif As Integer
Dim i As Integer
Dim ctr As Integer

If year1 = year2 And month1 = month2 And day1 = day2 Then
datecal = 0
ElseIf year1 < year2 Then

Do

If year1 = year2 And month1 = month2 And day1 = day2 Then
Exit Do
End If


day1 = day1 + 1
datedif = datedif + 1

If day1 > monthdays(year1, month1) Then
day1 = 1
month1 = month1 + 1
If month1 > 12 Then
year1 = year1 + 1
month1 = 1
End If
End If


Loop

ElseIf year1 > year2 Then

Do

If year1 = year2 And month1 = month2 And day1 = day2 Then
Exit Do
End If

day1 = day1 - 1
datedif = datedif - 1

If day1 = 0 Then
month1 = month1 - 1
day1 = monthdays(year1, month1)
If month1 = 0 Then
year1 = year1 - 1
month1 = 12
day1 = 31
End If
End If


Loop

Else
If month1 < month2 Then

Do

If year1 = year2 And month1 = month2 And day1 = day2 Then
Exit Do
End If

day1 = day1 + 1
datedif = datedif + 1

If day1 > monthdays(year1, month1) Then
day1 = 1
month1 = month1 + 1
End If

Loop

ElseIf month1 > month2 Then

Do

If year1 = year2 And month1 = month2 And day1 = day2 Then
Exit Do
End If

day1 = day1 - 1
datedif = datedif - 1

If day1 = 0 Then
month1 = month1 - 1
day1 = monthdays(year1, month1)
End If


Loop

Else
datedif = day2 - day1
End If


End If


datecal = datedif

End Function
Public Function dateadd2(ByVal days As Integer, ByVal year As Integer, ByVal month As Integer, ByVal day As Integer) As String
Dim i As Integer
Dim s As Integer
Dim strmonth As String
Dim strday As String

If days > 0 Then
s = 1
days = days - 1
ElseIf days < 0 Then
s = -1
days = days + 1
Else
dateadd2 = charform(year, month, day)
End If

For i = 0 To days Step s

If s > 0 Then
day = day + 1
If day > monthdays(year, month) Then
month = month + 1
day = 1
If month > 12 Then
year = year + 1
month = 1
End If
End If
End If

If s < 0 Then
day = day - 1
If day = 0 Then
month = month - 1
day = monthdays(year, month)
If month = 0 Then
year = year - 1
month = 12
day = 31
End If
End If
End If

Next

dateadd2 = charform(year, month, day)

End Function

컴파일 실행환경

Microsoft Visual Basic 6

압축파일 내 파일목록

form1-8369-sukjun40-sukjun40-sukjun40.frx
form1-8369-sukjun40-sukjun40-sukjun40.log
form1.frm
form1.frx
Form10.frm
Form11.frm
Form11.frx
Form2.frm
Form2.frx
Form3.frm
Form3.frx
Form4.frm
Form5.frm
Form6.frm
Form7.frm
Form8.frm
Form9.frm
module1.bas
Project1.vbp
Project1.vbw
기념일.txt
메모.txt
일정.txt

참고 자료

없음
*공석*
판매자 유형Bronze개인

주의사항

저작권 자료의 정보 및 내용의 진실성에 대하여 해피캠퍼스는 보증하지 않으며, 해당 정보 및 게시물 저작권과 기타 법적 책임은 자료 등록자에게 있습니다.
자료 및 게시물 내용의 불법적 이용, 무단 전재∙배포는 금지되어 있습니다.
저작권침해, 명예훼손 등 분쟁 요소 발견 시 고객센터의 저작권침해 신고센터를 이용해 주시기 바랍니다.
환불정책

해피캠퍼스는 구매자와 판매자 모두가 만족하는 서비스가 되도록 노력하고 있으며, 아래의 4가지 자료환불 조건을 꼭 확인해주시기 바랍니다.

파일오류 중복자료 저작권 없음 설명과 실제 내용 불일치
파일의 다운로드가 제대로 되지 않거나 파일형식에 맞는 프로그램으로 정상 작동하지 않는 경우 다른 자료와 70% 이상 내용이 일치하는 경우 (중복임을 확인할 수 있는 근거 필요함) 인터넷의 다른 사이트, 연구기관, 학교, 서적 등의 자료를 도용한 경우 자료의 설명과 실제 자료의 내용이 일치하지 않는 경우
최근 본 자료더보기
  • 프레시홍 - 전복
탑툰 이벤트
비주얼 베이직을 이용한 일정관리 프로그램
  • 레이어 팝업
  • 레이어 팝업
  • 레이어 팝업
  • 레이어 팝업
  • 레이어 팝업
  • 레이어 팝업