ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦³Ãö Calendar1 ªº¨Ï¥Î [¤w¸Ñ¨M]

[µ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­Ó¦ì¼Æ¤ë¥÷¤Î­Ó¦ì¼Æ¤é´Á.
  1. Private Sub Calendar1_Click()
  2.     Calendar1.Visible = False


  3.     Label24.Caption = Calendar1.Year & Calendar1.Month & Calendar1.Day
  4.     Sheets("Input").Range("A23").Value = Label24.Caption
  5. End Sub

  6. Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  7.     Calendar1.Visible = True
  8. End Sub
½Æ»s¥N½X
¼È®É¥Î¤F¥H¤U¤èªk¸Ñ¨M
  1. Private Sub Calendar1_Click()
  2.     Calendar1.Visible = False
  3. If Calendar1.Month < 10 Then
  4.     m = "0" & Calendar1.Month
  5.     Else
  6.     m = Calendar1.Month
  7.     End If
  8. If Calendar1.Day < 10 Then
  9.     d = "0" & Calendar1.Day
  10.     Else
  11.     d = Calendar1.Day
  12.     End If
  13.     Label24.Caption = Calendar1.Year & m & d
  14.     Sheets("Input").Range("A23").Value = Label24.Caption
  15. End Sub
½Æ»s¥N½X

¦^´_ 1# jimmyhk
2003ª© ¤£¤ä´© Calendar ¤F
¸Õ¸Õ¬Ý:
  1. Label24.Caption = Format(Calendar1.Value, "YYYY/MM/DD")
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE


    Calendarª«¥ó¨Ã«D¤£¤ä´©¡A¥u¦]±z¥¼¦w¸ËMS ACCESS½t¬G
¦w¸Ë¤é¾ä±±¥ó
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# GBKEE

­ì¨Ó¥u¬O¥[¥y´N¥i¥H°µ¨ì.
µ{¦¡½X¤ñ§Ú­ì°µªº§ó²³æ~
¤S¾Ç¨ìªF¦è¤F.


ÁÂÁÂ

TOP

¦^´_ 2# GBKEE


¥t¦³¤@ÂI¤pª¾ÃÑ.
¥u­n¦b 2003 ¤W¶×¤J MSCAL.OCX ³o­ÓÀÉ®×´N¥i¥H¦b 2003 ¤W°õ¦æ¤p¤é¾äªº¤F~

TOP

¦^´_ 3# Hsieh
·PÁ§iª¾,MS ACCESS §Ú¨S¦w¸Ë.
¦^´_ 5# jimmyhk
¾Ç²ß¤F

TOP

¦^´_ 6# GBKEE

³o­Ó¬O«Ü²³æªº¤èªk,
¥u¬O¥¿¦b·Q³o¼Ë¨Ï¥Î·|§_»P«IÅv¦³½Ä¬ð.

TOP

¦^´_ 7# jimmyhk
¥u¬O¥¿¦b·Q³o¼Ë¨Ï¥Î·|§_»P«IÅv¦³½Ä¬ð
½Ð°Ý·|¦³¤°»ò «IÅv,½Ä¬ð

TOP

¦^´_ 8# GBKEE

¦]¬°­ì©w¬Y¨Ç OFFICE ª©¥»¨S¦³  MSCAL.OCX,
(­n¦³¥]¬A Access/¦w¸Ë Access ªºª©¥»¤~¦³)
²{¦b¥ý¨ì¤@³¡¦³ Access license ªº¹q¸£§Û MSCAL.OCX ¨ì¤@³¡¨S¦³ Access License ªº¹q¸£¤º,
¦n¹³·|¦³°ÝÃD.  (¥H¤½¥q¥Î¤á¨Ó¬Ý)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-9-22 20:30 ½s¿è

¦^´_ 9# jimmyhk
¨ì3¼Ó Hsieh ¶Wª©  ©Ò«üªº   ¦w¸Ë¤é¾ä±±¥ó ¤U¸ü §Y¥i
©Î§ï¥Î 2003ªº DTPicker
  ¦p¹Ï :  ¤Ä¿ï   Microsoft Date and Time Picker Control 6.0


¢ÓX1.GIF
2011-9-22 20:30

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD