TimeValue Function

គណនាតម្លៃសម្គាល់ពេលវេលាពីប៉ារ៉ាម៉ែត្រម៉ោង នាទី និងវិនាទីដែលបានបញ្ជាក់ ដែលបានហុចជាខ្សែអក្សរ ដែលតំណាងឲ្យពេលវេលាក្នុងតម្លៃលេខតែមួយ ។ តម្លៃនេះអាចត្រូវបានប្រើដើម្បីគណនាភាពខុសគ្នារវាងពេលវេលា ។

វាក្យសម្ពន្ធ ៖


TimeValue (Text As String)

តម្លៃត្រឡប់ ៖

កាលបរិច្ឆេទ

ប៉ារ៉ាម៉ែត្រ ៖

Text ៖ កន្សោមខ្សែអក្សរណាមួយ ដែលមានពេលវេលាដែលអ្នកចង់គណនាក្នុងទ្រង់ទ្រាយ "HH:MM:SS" ។

ប្រើអនុគមន៍ TimeValue ដើម្បីបម្លែងពេលវេលាណាមួយទៅជាតម្លៃតែមួយ ដូច្នេះអ្នកអាចគណនាភាពខុសគ្នានៃពេលវេលា ។

អនុគមន៍ TimeValue នេះត្រឡប់វ៉ារ្យង់ប្រភេទ VarType 7 (កាលបរិច្ឆេទ) និងរក្សាទុកតម្លៃនេះនៅខាងក្នុងជា លេខដែលមានចំនួនទសភាគទ្វេចន្លោះពី 0 ដល់ 0.9999999999 ។

ដោយផ្ទុយគ្នាទៅនឹងអនុគមន៍ DateSerial ឬ DateValue ដែលតម្លៃសម្គាល់កាលបរិច្ឆេទបង្ហាញលទ្ធផលជាថ្ងៃដែលទាក់ទងទៅនឹងកាលបរិច្ឆេទថេរមួយ អ្នកអាចគណនាជាមួយតម្លៃដែលត្រូវបានត្រឡប់ដោយអនុគមន៍ TimeValue ប៉ុន្តែអ្នកមិនអាចវាយតម្លៃពួកវាបានទេ ។

នៅក្នុងអនុគមន៍ TimeSerial អ្នកអាចហុចប៉ារ៉ាម៉ែត្រផ្សេងគ្នា (ម៉ោង នាទី វិនាទី) ជាកន្សោមលេខដាច់ពីគ្នា ។ សម្រាប់អនុគមន៍ TimeValue ទោះជាយ៉ាងណាក៏ដោយ អ្នកអាចហុចខ្សែអក្សរមួយជាប៉ារ៉ាម៉ែត្រដែលមានពេលវេលា ។

Error codes:

5 ការហៅបែបបទមិនត្រឹមត្រូវ

13 ប្រភេទទិន្នន័យមិនត្រូវគ្នា

ឧទាហរណ៍ ៖


Sub ExampleTimerValue
Dim daDT As Date
Dim a1, b1, c1, a2, b2, c2 As String
    a1 = "start time"
    b1 = "end time"
    c1 = "total time"
    a2 = "8:34"
    b2 = "18:12"
    daDT = TimeValue(b2) - TimeValue(a2)
    c2 = a1 & ": " & a2 & chr(13)
    c2 = c2 & b1 & ": " & b2 & chr(13)
    c2 = c2 & c1 & ": " & trim(Str(Hour(daDT))) & ":" & trim(Str(Minute(daDT))) & ":" & trim(Str(Second(daDT)))
    MsgBox c2
End Sub