หากคุณต้องการคำนวณความแตกต่างระหว่างสองครั้งคุณควรใช้ฟังก์ชั่นอะไร วันนี้บรรณาธิการของช่องเทคโนโลยีใหม่จะสอนวิธีคำนวณฟังก์ชั่นของความแตกต่างระหว่างสองครั้ง ฉันหวังว่ามันจะเป็นประโยชน์สำหรับคุณในการเรียนรู้ความรู้นี้!
-
'|| ฟังก์ชั่น timeDiff (sbegin, ส่ง)
'|| ฟังก์ชั่นนี้คำนวณความแตกต่างระหว่างสองครั้งและสามารถใช้งานได้โดยตรงโดยไม่ต้องเปลี่ยน
'|| ผู้แต่ง: Machinecat 2001/10/26
-
-
'หมายเหตุ: ก่อนอื่นคุณต้องกำหนดขนาดระหว่าง sbegin และส่งที่ป้อนโดยผู้ใช้
'ความแตกต่างของเวลาระหว่างทั้งสองสามารถรับได้ผ่านฟังก์ชั่น DataDiff โดยไม่ต้องแปลงเวลาที่ซับซ้อน
การคัดลอกรหัสมีดังนี้:ฟังก์ชั่น TimeDiff (sbegin, ส่ง)
Dim Ihourb, Iminuteb, isecondb, iminisecondb
dim ihoure, iminutee, iseconde, iminiseconde
Dim dtimeb, dtimee, dtimediff
dim ihour, iminute, isecond, iminisecond
ihourb = clng (ซ้าย (sbegin, 2))
iminuteb = clng (mid (sbegin, 4, 2))
ISECONDB = CLNG (MID (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) & "วินาที"
ฟังก์ชันสิ้นสุด
ข้างต้นเป็นบทนำที่เกี่ยวข้องที่รวบรวมโดยบรรณาธิการของช่องเทคโนโลยีใหม่ที่ผิดพลาด ฉันหวังว่ามันจะเป็นประโยชน์สำหรับคุณที่จะเข้าใจฟังก์ชั่นที่คำนวณความแตกต่างระหว่างสองครั้ง!