標題: [發問] 日期相減 [打印本頁]

---

作者: sillykin    時間: 2015-8-12 22:01     標題: 日期相減

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

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

---

作者: ikboy    時間: 2015-8-12 23:03

這個用公式更簡單
c1==a1-b1

---

作者: sillykin    時間: 2015-8-12 23:51

回復 2# ikboy


    此方式不對...
需採VBA模式..
且今日日期為104/08/12
   輸入日期為85.08.01
差異為”／”及”.”
要如何用ＶＢＡ去相減呢？？？？

---

作者: sillykin    時間: 2015-8-13 22:35

回復 3# sillykin


    能否幫解答呢???

---

作者: ShaoQiang    時間: 2015-10-3 11:17

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

---

作者: 准提部林    時間: 2015-10-3 12:34

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

---

作者: sillykin    時間: 2015-10-3 23:35

回復 6# 准提部林


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

---

作者: sillykin    時間: 2015-10-4 00:00

回復 7# sillykin


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


抱歉,製造大大的困擾

---

作者: 准提部林    時間: 2015-10-4 20:26

回復 8# sillykin


A1=TODAY()
A2= 77.8.7

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

---

作者: sillykin    時間: 2015-10-5 10:33

回復 9# 准提部林


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

---

作者: sillykin    時間: 2015-10-5 12:50

回復 10# sillykin


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

   EXCEL2013版--出現錯誤

---

作者: 准提部林    時間: 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

---

作者: sillykin    時間: 2015-10-5 23:24

回復 12# 准提部林


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

---

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