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

DatePart ªº§PÂ_¦¡

  1. Sub nn()
  2. If IsDate([A1].Value) Then
  3. MsgBox Month([A1])
  4. Else
  5. MsgBox "Err"
  6. End If
  7. End Sub
½Æ»s¥N½X
¤£¹L¦pªG¿é¤J¼Æ­È1~2958465
1900 ¦~ 1 ¤ë 1 ¤é(¼Æ­È¬°1)¡]¦pªG¨Ï¥Î 1904 ¦~¤é´Á¨t²Î¡A«h¬° 1904 ¦~ 1 ¤ë 1 ¤é¡^
9999 ¦~ 12 ¤ë 31 ¤é(¼Æ­È¬°2958465)
¦b¦¹¤§¶¡ªº¼Æ­È¤]·|³Q»{¬°¬O¤é´Á
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD