TimeValue Function

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

བརྡ་འཕྲོད་


TimeValue (Text As String)

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

ཚེས་གྲངས་

ཁུགས་གྲངས་

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

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

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

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

རྟེན་གྲངས་ TimeSerial ནང་ ཁེར་རྐྱང་གི་གྲངས་ཀ་མཚོན་ཚུལ་སྤྱད་ནས་རྐྱང་པའི་ཞུགས་གྲངས་ (hour minute second)བརྒྱུད་སྐྱེལ་བྱེད་ཆོག་ རྟེན་གྲངས་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

Please support us!