ฟังก์ชั่นที่คำนวณความแตกต่างสองครั้ง
-
'|| functiontimediff (sbegin, ส่ง)
'|| ฟังก์ชั่นนี้คำนวณความแตกต่างระหว่างสองครั้งและสามารถใช้งานได้โดยตรงโดยไม่ต้องเปลี่ยน
'|| ผู้แต่ง: MachineCat2001/10/26
-
-
'หมายเหตุ: ก่อนอื่นคุณต้องกำหนดขนาดระหว่าง sbegin และส่งที่ป้อนโดยผู้ใช้
'ความแตกต่างของเวลาระหว่างทั้งสองสามารถรับได้ผ่านฟังก์ชั่น DataDiff โดยไม่ต้องแปลงเวลาที่ซับซ้อน
-
functiontimediff (sbegin, ส่ง)
dimihourb, iminuteb, isecondb, iminisecondb
dimihoure, iminutee, iseconde, iminiseconde
dimdtimeb, dtimee, dtimediff
dimihour, iminute, isecond, iminisecond
ihourb = clng (ซ้าย (sbegin, 2))
iminuteb = clng (mid (sbegin, 4,2)))
ISECONDB = CLNG (กลาง (SBEGIN, 7,2)))
iminisecondb = clng (mid (sbegin, 10,4)))
ihoure = clng (ซ้าย (ส่ง, 2))
iminutee = clng (กลาง (ส่ง 4,2))
iseconde = clng (กลาง (ส่ง, 7,2))
iminiseconde = clng (กลาง (ส่ง 10,4))
dtimeb = ihourb*3600+iminuteb*60+isecondb+iminisecondb/1000
dtimee = ihoure*3600+iminutee*60+iseconde+iminiseconde/1000
dtimediff = dtimee-dtimeb
ihour = int (dtimediff/3600)
dtimediff = dtimediff-ihour*3600
iminute = int (dtimediff/60)
dtimediff = dtimediff-iminute*60
isecond = int (dtimediff)
dtimediff = dtimediff-int (dtimediff)
iminisecond = dtimediff
timeDiff = ihour & "ชั่วโมง" & iminute & "นาที" & isecond & formatNumber (iminisecond, 3) & "วินาที"
endfunction