TimeValue Function

স্ট্রিং হিসেবে পাস করা নির্দর্ষ্ট ঘন্টা, মিনিট এবং সেকেন্ড প্যারামিটার থেকে ক্রমানুসার সময় মান গণনা করা হয় যায় যা সময়কে একক সংখ্যাসূচক মান হিসেবে নির্দেশ করে থাকে। এই মানটি দ্বারা সময়ের মধ্যে পার্থক্য পরিমাপের জন্য ব্যবহৃত হয়ে থাকে।

সিনট্যাক্স:


TimeValue (Text As String)

প্রদান মান:

তারিখ

প্যারামিটার:

লেখ: যেকোনো স্ট্রিং এক্সপ্রেশন যা "HH:MM:SS" বিন্যাসে গণনা করতে চাওয়া সময় ধারণ করে থাকে।

যেকোনো সময়কে একক মানে রূপান্তর করতে TimeValue ফাংশনটি ব্যবহার করুন, যাতে সময়ের পার্থক্য গণনা করতে পারেন।

এই TimeValue ফাংশনটি VarType 7 (তারিখ) সহ একটি টাইপ ভেরিয়েন।ট প্রদান করে থাকে, এবং এই মান অভ্যন্তরীণভাবে 0 এবং 0.9999999999 মধ্যে ডাবল-প্রিসিশন হিসেবে সংরক্ষণ করতে পারেন।

DateSerial অথবা DateValue ফাংশনের বিপরীত হিসেবে, যেখানে ক্রমানুসার তারিখ মান একটি নির্দিষ্ট তারিখ সংশ্লিষ্ট দিন হিসেবে হিসাব করা হয়, আপনি TimeValue ফাংশন দ্বারা প্রদান করা মান দ্বারা তা গণনা করতে পারেন, কিন্তু আপনি তা মূল্যায়ন করতে পারেন না।

TimeSerial ফাংশনে, আপনি পৃথক সংখ্যাসূচক এক্সপ্রেশন হিসেবে একক প্যারামিটার (ঘন্টা, মিনিট, সেকেন্ড) পাস করতে পারেন। TimeValue ফাংশনের জন্য, যদিও, আপনি সময়যুক্ত প্যারামিটার হিসেবে একটি স্ট্রিং পাস করতে পারেন।

Error codes:

5 Invalid procedure call

13 Type mismatch

উদাহরণ:


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

Please support us!