[비주얼베이직]비주얼베이직 기념일 계산 프로그램
- 최초 등록일
- 2006.07.08
- 최종 저작일
- 2006.04
- 압축파일
- 가격 1,000원
소개글
기념일계산프로그램입니다.
기념일로부터 며칠째, 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
참고 자료
없음