標題: [發問] 年月日的加總至個位數 [打印本頁]

---

作者: pinklee    時間: 2011-8-15 11:02     標題: 年月日的加總至個位數

不好意思 請教一下 vba如何寫
譬如  我的生日 是1972 12 20
想要 判斷加總後的值
1+9+7+2  +   1+2  + 2+0  = 24
2+4 =6
就是自動判斷 相加到變成個位數為止
用公式雖可解決  但是繁瑣了點 請教各位大大 如何用vba解決 感謝

---

作者: GBKEE    時間: 2011-8-15 14:49

回復 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

複製代碼

---

作者: pinklee    時間: 2011-8-15 14:55

回復 2# GBKEE


    感謝 太強了

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)