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

¦~«×¥u¥[¤j©ó¹s

¦^´_ 10# JBY
«e½ú!ÁÂÁÂ!!
   ¥Î¤¤¾ä¨Ó¿é¤J¥X¥Í¤é´Á¤ñ¸û¶¶
   ©Ò¥HK1¬O¥Ñ¦p¤Uµ{¦¡¼g¤J
   Sub ¥X¥Í¤é´Á()
      ZZ = InputBox("¿é¤J¤é´Á", "        ½Ð¿é¤J§Aªº¥X¥Í¦~¤ë¤é", "67/2/16")
      If ZZ <= 0 Then Exit Sub
      a = Split(ZZ, "/")
      a(0) = a(0) + 1911
      [K1] = Join(a, "/")
      [K1].NumberFormat = "e/m/d"
   End Sub
   ¦pªGK2=YEAR(K1)-1911¬OµLªkÅã¥Ü¥¿½Tªº¦~¦¸
   ­þª¾K2=CONCATENATE(MID(YEAR(J1),1,4)-1911)Áö¥iÅã¥Ü¥¿½Tªº¦~¦¸
   ¦ý«o«D¼Æ­ÈÀYµh­C!!

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD