excel 時間是否可以相減

xmi

中學生 Rank: 2

帖子: 26
主題: 3
精華: 0
積分: 50
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
註冊時間: 2011-4-26
最後登錄: 2015-5-23

12^# 跳轉到 »

發表於 2015-3-26 19:35 | 只看該作者

回復 11# sghsgh1111

你好, 25時即是零晨的1時(24+1) , 用以計overnight的時間.

TOP

sghsgh1111

中學生 Rank: 2

帖子: 29
主題: 8
精華: 0
積分: 58
點名: 0
作業系統: WinXP
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-3-2
最後登錄: 2015-6-1

11^#

發表於 2015-3-20 23:29 | 只看該作者

不懂, 一天也才 24 小時, 為什麼會出現 27:00 and 25:45 ?

TOP

xmi

中學生 Rank: 2

帖子: 26
主題: 3
精華: 0
積分: 50
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
註冊時間: 2011-4-26
最後登錄: 2015-5-23

10^#

發表於 2015-3-20 21:06 | 只看該作者

回復 9# sghsgh1111

謝謝你...
請問如果是以下形式又應如何改?
如:
A1          A2          Result
13:00    15:00       2小時
22:00    27:00       5小時
23:00    25:45 2.75小時

TOP

sghsgh1111

中學生 Rank: 2

帖子: 29
主題: 8
精華: 0
積分: 58
點名: 0
作業系統: WinXP
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-3-2
最後登錄: 2015-6-1

9^#

發表於 2015-3-14 17:56 | 只看該作者

Sub ex()
Dim a, b, c
For c = 1 To 20
a = Range("A" & c + 1).Value
b = Range("B" & c + 1).Value
If a = "" Then Exit For
If b < a Then b = b + 1
With Cells(c + 1, 3)
.Value = (b - a) * 24
.NumberFormat = "0.00時"
End With
Next
End Sub

複製代碼

回復 8# xmi

TOP

xmi

中學生 Rank: 2

帖子: 26
主題: 3
精華: 0
積分: 50
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
註冊時間: 2011-4-26
最後登錄: 2015-5-23

8^#

發表於 2015-3-13 21:46 | 只看該作者

回復 sghsgh1111
試試看
GBKEE 發表於 2015-3-10 08:13

請問如果是以CELL的INPUT應如何改?
如:
A1          A2          Result
13:00    15:00       2小時
22:00    03:00       5小時

TOP

sghsgh1111

中學生 Rank: 2

帖子: 29
主題: 8
精華: 0
積分: 58
點名: 0
作業系統: WinXP
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-3-2
最後登錄: 2015-6-1

7^#

發表於 2015-3-11 22:47 | 只看該作者

感謝大大的說明

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2015-3-11 06:09 | 只看該作者

回復 5# sghsgh1111
日期相減後的數字,整數是日數(1天有24小時),小數點後的數字是小時數(*60=分鐘數)
d1-d2 如=2.15 -> 2.15*24=51.6小時,2.15*24*60=3096分鐘,2.15*24*60*60=185760秒

對匯入外部資料不熟悉可參考 VBA的 QueryTable 物件說明

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

sghsgh1111

中學生 Rank: 2

帖子: 29
主題: 8
精華: 0
積分: 58
點名: 0
作業系統: WinXP
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-3-2
最後登錄: 2015-6-1

5^#

發表於 2015-3-11 00:15 | 只看該作者

可以再多問一個問題嗎

QueryTables 要如何滙入其他的 excel 檔案
這是錄置巨集所產生的程式碼, 但不了解這個語法, 可以解答嗎
  這個巨集可以再簡化嗎

  With ActiveSheet.QueryTables.Add(Connection:=Array( _
      "OLEDB

rovider=Microsoft.Jet.OLEDB.4.0

assword="""";User ID=Admin;Data Source=I:\VBA.xls;Mode=Share Deny Write;Extended Prop" _
, _
"erties=""HDR=YES;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB

atabase Password="""";Jet OLEDB:Engine Type=3" _
, _
"5;Jet OLEDB

atabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Datab" _
, _
"ase Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB

on't Copy Locale on Compact=F" _
      , "alse;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"), _
      Destination:=Range("A2"))
      .CommandType = xlCmdTable
      .CommandText = Array("Status$")
      .Name = "VBA_1"
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .PreserveColumnInfo = True
      .SourceDataFile = "I:\VBA.xls"
      .Refresh BackgroundQuery:=False
End With

TOP

sghsgh1111

中學生 Rank: 2

帖子: 29
主題: 8
精華: 0
積分: 58
點名: 0
作業系統: WinXP
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-3-2
最後登錄: 2015-6-1

4^#

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

謝謝指導, 之前也是這樣直接相減, 但減後都是 0.01xxx
但我看上面有在 X 24 , 這個意思不是很懂, 可以說明一下嗎
為什麼不是 X 60 ???
不過以這個算法來, 看起是ok

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 2015-3-10 09:52 | 只看該作者

回復 1# sghsgh1111
可以自己試試 DateDiff 函數

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]