Berfungsi yang menghitung dua perbedaan waktu
'***********************************
'|| functionTimEdiff (sbegin, kirim)
'|| Fungsi ini menghitung perbedaan antara dua kali dan dapat digunakan secara langsung tanpa mengubahnya.
'|| Penulis: MachineCat2001/10/26
'***********************************
'***********************************
'Catatan: Pertama, Anda perlu menentukan ukuran antara SBEGIN dan Kirim yang dimasukkan oleh pengguna
'Perbedaan waktu antara keduanya dapat diperoleh melalui fungsi datadiff, tanpa konversi waktu yang rumit
'***********************************
FunctionTimediff (SBegin, Kirim)
Dimihourb, iminuteb, isecondb, iminisecondb
Dimihoure, iminutee, iseconde, iminiseconde
DIMDTIMEB, DTIMEE, DTIMEDIFF
Dimihour, iminute, isecond, iminisecond
ihourb = clng (kiri (sbegin, 2))
iminuteb = clng (mid (sbegin, 4,2)))
isecondb = clng (mid (sbegin, 7,2))
iminisecondB = clng (mid (sbegin, 10,4))
ihoure = clng (kiri (kirim, 2))
iMinutee = clng (mid (kirim, 4,2))
iseconde = clng (mid (send, 7,2))
iminiiseconde = clng (mid (kirim, 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 & "jam" & iminute & "risalah" & isecond & formatnumber (iminisecond, 3) & "detik"
Fungsi endfungsi