- ©«¤l
- 107
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 127
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-29
- ³Ì«áµn¿ý
- 2023-11-17
|
[µo°Ý] ¦³Ãö Calendar1 ªº¨Ï¥Î [¤w¸Ñ¨M]
¥»©«³Ì«á¥Ñ jimmyhk ©ó 2011-9-23 13:37 ½s¿è
½Ð°Ý¦³¨S¦³¿ìªk±±¨î¼u¥X¤é¾ä,
©óÂI¿ï¤é´Á«á¿é¥XªºÈ¬O yyyymmdd,
²{¦b¥¦¥u¯à¥X yyyymd <- ¦p¬OÓ¦ì¼Æ¤ë¥÷¤ÎÓ¦ì¼Æ¤é´Á.- Private Sub Calendar1_Click()
- Calendar1.Visible = False
-
- Label24.Caption = Calendar1.Year & Calendar1.Month & Calendar1.Day
- Sheets("Input").Range("A23").Value = Label24.Caption
- End Sub
- Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
- Calendar1.Visible = True
- End Sub
½Æ»s¥N½X ¼È®É¥Î¤F¥H¤U¤èªk¸Ñ¨M- Private Sub Calendar1_Click()
- Calendar1.Visible = False
- If Calendar1.Month < 10 Then
- m = "0" & Calendar1.Month
- Else
- m = Calendar1.Month
- End If
- If Calendar1.Day < 10 Then
- d = "0" & Calendar1.Day
- Else
- d = Calendar1.Day
- End If
- Label24.Caption = Calendar1.Year & m & d
- Sheets("Input").Range("A23").Value = Label24.Caption
- End Sub
½Æ»s¥N½X |
|