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

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

*대*
최초 등록일
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

참고 자료

없음
*대*
판매자 유형Bronze개인
해당 판매자는 노하우톡 기능을 사용하는 회원입니다.노하우톡
* 노하우톡 기능이란?노하우 자료를 판매하는 회원에게 노하우 컨설팅, 활용방법 등을 1:1 대화를 통해 문의할 수 있는 기능입니다.

주의사항

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

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

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