麻辣家族討論版版 » Excel程式區 » Format與Text的差異

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

Format與Text的差異

中學生 Rank: 2

帖子: 132
主題: 31
精華: 0
積分: 167
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2011-4-14
最後登錄: 2024-2-28

2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2019-6-6 10:00 | 只看該作者

Format與Text的差異

Hi 各位前輩，
小弟我最近發現一個問題，在用Format取得二個時間也的相減值時，與Text的方法顯示會有所不同？一直找不到原因，特上來求解答題目如下：
Dim aDate As Date
aDate = Now

aDate = Now - aDate
Debug.Print Format(aDate, ["d天h時m分s秒"])
Debug.Print Application.Text(aDate, ["d天h時m分s秒"])

Format顯示的是【30天0時0分1秒】
Text顯示的是【0天0時0分1秒】
為什麼Format會有多出30天呢？還請知道的前輩幫小弟我解惑一下，感謝您。

樓主熱帖

收藏

clio

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 2019-6-6 22:17 | 只看該作者

本帖最後由 n7822123 於 2019-6-6 22:20 編輯

回復 1# clio

加上年月之後，發現起算的時間不一樣!?
因時間間隔太小，可直接代0，產生的一樣結果

Debug.Print Format(0, ["yyyy年m月d日h時m分s秒"])
Debug.Print Application.Text(0, ["yyyy年m月d日h時m分s秒"])

結果:
1899年12月30日0時0分0秒
1900年1月0日0時0分0秒

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

版主 Rank: 7 Rank: 7 Rank: 7

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

3^#

發表於 2019-6-7 10:49 | 只看該作者

基本上, 兩個日期相減, 結果是"天數", 而非一個標準日期,
再使用format或text去取, 是根本上的錯誤,
MsgBox Application.Text(32, "d天") >>> 結果就不是32天
何況, format及text的起算日期並不相同~~

中學生 Rank: 2

帖子: 132
主題: 31
精華: 0
積分: 167
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2011-4-14
最後登錄: 2024-2-28

2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章

4^#

發表於 2019-6-18 09:01 | 只看該作者

回復 3# 准提部林
感謝准提部林的提醒…我再想想別的辨法好了，感謝您

clio

中學生 Rank: 2

帖子: 132
主題: 31
精華: 0
積分: 167
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2011-4-14
最後登錄: 2024-2-28

2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章

5^#

發表於 2019-6-18 09:02 | 只看該作者

回復 2# n7822123

感謝n7822123的告知，我再想想別的辨法，感謝您

clio

中學生 Rank: 2

帖子: 132
主題: 31
精華: 0
積分: 167
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2011-4-14
最後登錄: 2024-2-28

2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章

6^#

發表於 2019-6-18 09:11 | 只看該作者

回復 3# 准提部林
再請教准提部林前輩：
假若我需要二個日期相減，得出差異的時間，需要細到有【w天x時y分z秒】這樣的話，我應該要怎麼做比較正確呢？

clio

版主 Rank: 7 Rank: 7 Rank: 7

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

7^#

發表於 2019-6-18 10:06 | 只看該作者

回復 6# clio

a1 起始日期時間
b1 結束日期時間
[C1] = Int([B1] - [A1]) & "天" & Format([B1] - [A1], "hh時mm分ss秒")

中學生 Rank: 2

帖子: 132
主題: 31
精華: 0
積分: 167
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2011-4-14
最後登錄: 2024-2-28

2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章

8^#

發表於 2019-6-18 13:05 | 只看該作者

回復 7# 准提部林
感謝准提部林的回覆…太感謝您了

clio

靜思自在 : 心中常存善解、包容、感思、知足、惜福。

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