12
返回列表 上一主題 發帖

[發問] 日期相減

sillykin

帖子
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

帖子
169 
主題
41 
精華
0 
積分
219 
點名
0  
作業系統
WIN10 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-7-31 
最後登錄
2023-9-15 
13#
發表於 2015-10-5 23:24 | 只看該作者
回復 12# 准提部林


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

TOP

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-15 
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

帖子
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)

9999.jpg

TOP

sillykin

帖子
169 
主題
41 
精華
0 
積分
219 
點名
0  
作業系統
WIN10 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-7-31 
最後登錄
2023-9-15 
10#
發表於 2015-10-5 10:33 | 只看該作者
回復 9# 准提部林


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

TOP

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-15 
9#
發表於 2015-10-4 20:26 | 只看該作者
回復 8# sillykin


A1=TODAY()
A2= 77.8.7

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

TOP

sillykin

帖子
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

帖子
169 
主題
41 
精華
0 
積分
219 
點名
0  
作業系統
WIN10 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-7-31 
最後登錄
2023-9-15 
7#
發表於 2015-10-3 23:35 | 只看該作者
回復 6# 准提部林


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

TOP

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-15 
6#
發表於 2015-10-3 12:34 | 只看該作者
DT = "85.10.1" '民國
MsgBox "西元：" & DateValue(Replace("r" & DT, ".", "/"))

TOP

ShaoQiang

帖子
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

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
12
返回列表 上一主題