소개글
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
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