日期相減 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 日期相減

返回列表下一主題上一主題發帖

[發問] 日期相減

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

1^# 跳轉到 »

發表於 2015-10-3 12:34 | 顯示全部帖子

DT = "85.10.1" '民國
MsgBox "西元：" & DateValue(Replace("r" & DT, ".", "/"))

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

2^#

發表於 2015-10-4 20:26 | 顯示全部帖子

回復 8# sillykin

A1=TODAY()
A2= 77.8.7

A3:=A1-SUBSTITUTE("R"&A2,".","/") 是〔距今幾天〕而不是〔幾年幾月幾日〕

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

3^#

發表於 2015-10-5 13:49 | 顯示全部帖子

回復 11# sillykin

DT = "85.10.1" '民國
D = Split(DT, ".")
D = DateSerial(D(0) + 1911, D(1), D(2))
MsgBox "西元：" & D

靜思自在 : 是非當教育，讚美作警惕。

返回列表下一主題上一主題