TimeSerial Function

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

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


TimeSerial (hour, minute, second)

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

កាល​​បរិច្ឆេទ

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

hour ៖ កន្សោម​​ចំនួន​គត់​ណា​មួយ​ដែល​បញ្ជាក់​ពី​ម៉ោង​នៃ​ពេល​វេលា ដែល​ត្រូវ​បាន​ប្រើ​ដើម្បី​កំណត់​តម្លៃ​សម្គាល់​ពេល​វេលា ។ តម្លៃ​ត្រឹមត្រូវ ៖ ០-២៣ ។

minute ៖ កន្សោម​ចំនួន​គត់​ណា​មួយ​ដែល​បញ្ជាក់​ពី​នាទី​នៃ​ពេល​វេលា ដែល​ត្រូវ​បាន​ប្រើ​ដើម្បី​កំណត់​តម្លៃ​សម្គាល់​ពេល​វេលា ។ ជា​ទូទៅ ប្រើ​តម្លៃ​ចន្លោះ ០ និង ៥៩ ។ ទោះ​ជា​យ៉ាង​ណា​ក៏​ដោយ អ្នក​ក៏​អាច​ប្រើ​តម្លៃ​ដែល​ស្ថិត​នៅ​ក្រៅ​ជួរ​នេះ ដែល​ចំនួន​នាទី​មាន​ឥទ្ធិពល​លើ​តម្លៃ​ម៉ោង ។

second ៖ កន្សោម​ចំនួន​គត់​ណា​មួយ​ដែល​បញ្ជាក់​ពី​វិនាទី​នៃ​ពេល​វេលា ដែល​ត្រូវ​បាន​ប្រើ​ដើម្បី​កំណត់​តម្លៃ​សម្គាល់​ពេល​វេលា ។ ជា​ទូទៅ អ្នក​អាច​ប្រើ​តម្លៃ​ចន្លោះ ០ និង ៥៩ ។ ទោះ​ជា​យ៉ាង​ណា​ក៏​ដោយ អ្នក​ក៏​អាច​ប្រើ​តម្លៃ​ដែល​ស្ថិត​នៅ​ក្រៅ​ជួរ​នេះ ដែល​ចំនួន​វិនាទី​មាន​ឥទ្ធិពល​លើ​តម្លៃ​នាទី ។

ឧទាហរណ៍ ៖

12, -5, 45 ត្រូវ​គ្នា​ទៅ​នឹង 11, 55, 45

12, 61, 45 ត្រូវ​គ្នា​ទៅ​នឹង 13, 2, 45

12, 20, -2 ត្រូវ​គ្នា​ទៅ​នឹង 12, 19, 58

12, 20, 63 ត្រូវ​គ្នា​ទៅ​នឹង 12, 21, 4

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

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

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

Error codes:

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

ឧទាហរណ៍ ៖


Sub ExampleTimeSerial
Dim dDate As Double, sDate As String
    dDate = TimeSerial(8,30,15)
    sDate = TimeSerial(8,30,15)
    MsgBox dDate,64,"Time as a number"
    MsgBox sDate,64,"Formatted time"
End Sub