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

소개

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

참고자료

· 없음