ªð¦^¦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 : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD