sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-8-12 22:01 | 只看該作者

[發問] 日期相減

[A1]=今天日期（=TODAY）
[B1]=例如85.01.08（可輸入（隨時更動））
[C1]=結果？

如何用VBA計算日期相減答案????

樓主熱帖

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

13^#

發表於 2015-10-5 23:24 | 只看該作者

回復 12# 准提部林

謝謝大大耐心的指導..感恩

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

12^#

發表於 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

TOP

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

11^#

發表於 2015-10-5 12:50 | 只看該作者

回復 10# sillykin

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

EXCEL2013版--出現錯誤

9999.jpg (17.14 KB)

TOP

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

10^#

發表於 2015-10-5 10:33 | 只看該作者

回復 9# 准提部林

謝謝大大的回覆....小弟巳了解

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

9^#

發表於 2015-10-4 20:26 | 只看該作者

回復 8# sillykin

A1=TODAY()
A2= 77.8.7

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

TOP

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

8^#

發表於 2015-10-4 00:00 | 只看該作者

回復 7# sillykin

謝謝大大..
小弟可能沒有說清楚
A1=TODAY() ; 日期格式為 104/10/1
A2= 77/8/7
A3=結果 ;(為幾年幾月幾日)民國格式顯示

抱歉,製造大大的困擾

TOP

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

7^#

發表於 2015-10-3 23:35 | 只看該作者

回復 6# 准提部林

謝謝大大的回覆及指導..,小弟試試..感恩

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

6^#

發表於 2015-10-3 12:34 | 只看該作者

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

TOP

ShaoQiang

中學生 Rank: 2

帖子: 41
主題: 10
精華: 0
積分: 51
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2014-11-9
最後登錄: 2022-1-13

5^#

發表於 2015-10-3 11:17 | 只看該作者

先把B1的日期轉換成跟A1的格式相同再相減呢

TOP