TimeValue Function

ཡིག་རྟགས་ཕྲེང་བ་བརྒྱུད་སྐྱེལ་གྱི་གཏན་འཁེལ་ཆུ་ཚོད་དང་སྐར་མ་ སྐར་ཆའི་ཞུགས་གྲངས་གཞིར་བཟུང་རྐྱང་པའི་གྲངས་ཐང་མཚོན་པའི་གོ་རིམ་དུས་ཚོད་ཐང་རྩིས་རྒྱག་པ། ཐང་འདི་དུས་ཚོད་གཉིས་བར་ཁྱད་དུས་ཚོད་རྩིས་རྒྱག་པར་སྤྱད་ཆོག་

བརྡ་འཕྲོད་

TimeValue (Text As String)

ཕྱིར་ལོག་ཐང་

ཚེས་གྲངས་

ཁུགས་གྲངས་

Text རྩིས་རྒྱག་རྒྱུའི་རྣམ་གཞག་"HH:MM:SS"ཡིན་པའི་དུས་ཚོད་ཀྱི་ཡིག་སྦྲེལ་རྟགས་གང་རུང་ཡིན་པའི་མཚོན་ཚུལ་ལྡན།

རྟེན་གྲངས་འདི་དུས་ཚོད་གང་རུང་རྐྱང་པའི་ཐང་ལ་བརྗེ་སྒྱུར་བྱེད་པར་སྤྱད་ནས་དུས་ཚོད་བར་ཆོད་རྩིས་རྒྱག་པར་ཕན།

རྟེན་གྲངས་TimeValue ཡི་ཕྱིར་ལོག་རིགས་ནི་འགྱུར་ཚད་ཡིན་ VarType 7(ཚེས་གྲངས་)ལྡན་པ་མ་ཟད་ནང་ཁུལ་དུ་དེའི་ཐང་ནི 0 ལས་ཆེ་བ་དང་ 0.9999999999 ལས་ཆེ་བའི་དག་ཚད་ཆ་ལྡན་གྲངས་གསོག་ཉར་བྱེད།

རྟེན་གྲངས་ DateSerialཡང་ན་ DateValue ནང་ གོ་རིམ་ཚེས་གྲངས་ཐང་གི་རྩིས་རྒྱག་འབྲས་བུ་ནི་རྒྱས་བཅད་ཚེས་གྲངས་ཤིག་གི་བར་ཁྱད་ཀྱི་ཉིན་གྲངས་ཡིན་ འོན་ཀྱང་རྟེན་གྲངས་TimeValue ལ་མཚོན་ན་ ཁྱེད་ཀྱིས་ཕྱིར་ལོག་ཐང་ཁོ་ན་སྤྱད་ནས་རྩིས་བརྒྱབ་ཆོག་པ་ལས་ཕྱིར་ལོག་ཐང་རྩིས་རྒྱག་མི་ཐུབ།

རྟེན་གྲངས་ TimeSerial ནང་ ཁེར་རྐྱང་གི་གྲངས་ཀ་མཚོན་ཚུལ་སྤྱད་ནས་རྐྱང་པའི་ཞུགས་གྲངས་ (hour minute second)བརྒྱུད་སྐྱེལ་བྱེད་ཆོག་ རྟེན་གྲངས་TimeValue ནང་ དུས་ཚོད་ལྡན་པའི་ཞུགས་གྲངས་སྤྱད་ནས་ཡིག་རྟགས་ཕྲེང་བ་བརྒྱུད་སྐྱེལ་བྱེད།

དཔེ་གཞི་

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