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