歲數,月數?!

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

10^# 跳轉到 »

發表於 2012-1-7 23:51 | 只看該作者

本帖最後由 register313 於 2012-1-9 12:00 編輯

回復 7# myleoyes

A8=DATEDIF(A6,TODAY(),"Y")
A9=DATEDIF(A6,TODAY(),"YM")
A10=IF(TODAY()=EOMONTH(TODAY(),0),IF(A6=EOMONTH(A6,0),0,DAY(EOMONTH(A6,0))-DAY(A6)),IF(DAY(TODAY())>=DAY(A6),DAY(TODAY())-DAY(A6),EOMONTH(A6,0)-A6+DAY(TODAY())))

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

9^#

發表於 2012-1-7 21:43 | 只看該作者

回復 8# jarodz
前輩!小弟愚昧不懂你的方式
再附有程式的檔案
請不吝賜教謝謝再三!!

Leo20-1.rar (9.81 KB)

TOP

jarodz

中學生 Rank: 2

帖子: 32
主題: 7
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: 2011
閱讀權限: 20
性別: 男
註冊時間: 2011-12-13
最後登錄: 2014-7-8

8^#

發表於 2012-1-7 12:37 | 只看該作者

回復 7# myleoyes

只要在每個公式前面加Application.WorksheetFunction就可以了
如Application.WorksheetFunction.DATEDIF

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

7^#

發表於 2012-1-7 12:03 | 只看該作者

回復 3# myleoyes
各位前輩你們好!
      續前題
      A10=DATEDIF(DATE(YEAR(TODAY())-1,12,16),TODAY(),"D")
      因為用程式跑所以A10這個公式,並不適當請問有何公式替代?
      請知道的前輩,不吝賜教謝謝再三!!

Leo20.rar (6.09 KB)