الوظائف التي تحسب اختلافات مرتين
'*********************************
'|| functionTimediff (sbegin ، send)
'|| هذه الوظيفة تحسب الفرق بين مرتين ويمكن استخدامها مباشرة دون تغييرها.
'|| المؤلف: machinecat2001/10/66
'*********************************
'*********************************
ملاحظة: أولاً ، تحتاج إلى تحديد الحجم بين sbegin وأرسله من قبل المستخدم
"يمكن الحصول على اختلاف الوقت بين الاثنين من خلال وظيفة Datadiff ، دون تحويل الوقت المعقد
'*********************************
Promisptimediff (sbegin ، إرسال)
Dimihourb ، iminuteb ، isecondb ، iminisecondb
Dimihoure ، iminutee ، iseconde ، iminiseconde
Dimdtimeb ، دتيم ، دمدف
Dimihour ، 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) و "Seconds"
الوظيفية