검색어 입력폼

[비주얼베이직]비주얼베이직 기념일 계산 프로그램

저작시기 2006.04 |등록일 2006.07.08 파일확장자압축파일 (zip) | 가격 700원

*해당 문서는 미리보기가 지원되지 않습니다.

소개글

기념일계산프로그램입니다.

기념일로부터 며칠째, ex)130일째입니다.
100일, 200일 ....1000일, ex)100일째 2006-10-03 200일째.....
며칠째는 몇월몇일 ex)3000일째는 2011-11-11 입니다.

컴파일 실행환경

visual basic 6.0

본문내용

Private Sub Command2_Click()
Dim fDate
Dim I, J As Integer
Dim nDay As String

nDay = ""
For I = 99 To 1000 Step 100
nDay = nDay & Str(I + 1) & "일째 : " & _
DateSerial(Text1.Text, Text2.Text, Text3.Text + I) & _
Chr(13) & Chr(10)
Next

MsgBox nDay, , ""

End Sub

Private Sub Command3_Click()
Dim Mess As Integer
Dim nDay As Variant

Mess = InputBox("???일째는 몇월 몇일일까?", "그후며칠")
nDay = DateSerial(Text1.Text, Text2.Text, Text3.Text + Mess - 1)
MsgBox "그녀와 만난지 " & Str(Mess) & "일째는 " & nDay & "입니다.", , ""
End Sub

Private Sub Form_Load()
Text1.Text = 2005
Text2.Text = 4
Text3.Text = 18
Text4.Text = Date

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus

압축파일내 파일목록

Project1.vbp
Form1.frm
다운로드 맨위로