|
= Combo1.Text & "-" & Combo2.Text & "-" & "01"
fd1 = Format(fd, "w")
'Print fd1
'Print Format(DateAdd("d", -1, DateAdd("m", 1, fd)), "dd")
For i = 1 To Format(DateAdd("d", -1, DateAdd("m", 1, fd)), "dd")
Command1(i + (fd1 - 2) + 7).Caption = i
Next
End Sub 비쥬얼 베이직으로 만든 달력입니다.
|
- 페이지 11페이지
- 가격 2,300원
- 등록일 2002.06.22
- 파일종류 한글(hwp)
- 참고문헌 없음
- 최근 2주 판매 이력 없음
|