الوظيفة التي تحسب الفرق بين مرتين

إذا كنت ترغب في حساب الفرق بين مرتين ، فما هي الوظيفة التي يجب أن تستخدمها؟ اليوم ، يعلمك محرر قناة التكنولوجيا الجديدة كيفية حساب وظيفة الفرق بين مرتين. آمل أن يكون من المفيد لك أن تتعلم هذه المعرفة!

'*********************************

'|| وظيفة 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 (منتصف (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) و "Seconds"

وظيفة نهاية

ما سبق هو مقدمة ذات صلة جمعها محرر قناة التكنولوجيا الجديدة الخاطئة. آمل أن يكون من المفيد لك أن تفهم الوظيفة التي تحسب الفرق بين مرتين!