返回列表 上一主題 發帖

[發問] 工時計算

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-4-10 08:13 | 只看該作者

[發問] 工時計算

有2個時間,請問如何使用VBA計算工時
時間1:8:20:10
時間2:10:10:05
工時:1:49:55
收藏 分享

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2017-4-10 15:18 | 只看該作者
Sub AA()
  Sheet1.Range("A3") = Sheet1.Range("A2") - Sheet1.Range("A1")
  Selection.NumberFormatLocal = " hh:mm:ss"
End Sub
羅

TOP

hcm19522

帖子
1387 
主題
4 
精華
0 
積分
1397 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-11-27 

熱烈參與勳章
3#
發表於 2017-4-17 10:16 | 只看該作者
=TEXT(B2-A2,"HH:MM:SS")
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

fansofcheer0987

帖子
4 
主題
1 
精華
0 
積分
6 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE2016 
閱讀權限
10 
註冊時間
2017-2-26 
最後登錄
2017-6-15 
4#
發表於 2017-5-20 01:57 | 只看該作者
時間1:8:20:10
時間2:10:10:05-------A1
工時:1:49:55----------B1
結果------------------C1
先把資料K進excel，格式設定時間格式，hh:mm:ss
sub work_time()
Sheet1.Range("C1") = Sheet1.Range("B1") - Sheet1.Range("A1")
end sub

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題