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

[µo°Ý] ¦~¤ë¤éªº¥[Á`¦Ü­Ó¦ì¼Æ

[µo°Ý] ¦~¤ë¤éªº¥[Á`¦Ü­Ó¦ì¼Æ

¤£¦n·N«ä ½Ð±Ð¤@¤U vba¦p¦ó¼g
Ä´¦p  §Úªº¥Í¤é ¬O1972 12 20
·Q­n §PÂ_¥[Á`«áªº­È
1+9+7+2  +   1+2  + 2+0  = 24
2+4 =6
´N¬O¦Û°Ê§PÂ_ ¬Û¥[¨ìÅܦ¨­Ó¦ì¼Æ¬°¤î
¥Î¤½¦¡Áö¥i¸Ñ¨M  ¦ý¬OÁcº¾¤FÂI ½Ð±Ð¦U¦ì¤j¤j ¦p¦ó¥Îvba¸Ñ¨M ·PÁÂ

¦^´_ 1# pinklee
  1. Sub Ex()
  2.     Dim d$, C%, ii%
  3.     d = Format(Date, "YYYMD")
  4.     C = 0
  5.     Do
  6.         For ii = 1 To Len(d)
  7.             C = C + Mid(d, ii, 1)
  8.         Next
  9.         d = C
  10.         C = 0
  11.     Loop Until Len(d) = 1
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE


    ·PÁÂ ¤Ó±j¤F

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD