TimeValue Function

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

ཚིག་སྦྱོར:

དུས་ཚོད་གནས་གོང་ (Text As String)

གནས་གོང་སླར་ལོག:

ཚེས་གྲངས་

ཚད་བཟུང་ཚུ་:

ཚིག་ཡིག་: ཡིག་རྒྱུན་གསལ་བརྗོད་འདི་ནང་ཁྱོད་ཀྱིས་རྩ་སྒྲིག་ནང་རྩིས་སྟོན་ནི་ལུ་ "HH:MM:SS" དུས་ཚོད་འདི་ཡོདཔ་ཨིན།

གནས་གོང་རྐྱང་པ་ནང་ལུ་དུས་ཚོད་གང་རུང་གཞི་བསྒྱུར་འབད་ནི་ལུ་དུས་ཚོད་གནས་གོང་ལས་འགན་ལག་ལེན་འཐབ་ ཁྱོད་ཀྱིས་དུས་ཚོད་ཁྱད་པར་ཚུ་རྩིས་སྟོན་བཏུབ།

དུས་ཚོད་གནས་གོང་ལས་འགན་དེ་གིས་དབྱེ་བ་མི་མཐུན་པ་དང་གཅིག་ཁར་ཝར་དབྱེ་བ་ ༧ (ཚེས་)དང་ ༠ དང་ ༩༩༩༩༩༩༩༩༩༩ བར་ན་གཉིས་ལྡན་ཀྲིག་ཀྲི་ཨང་སྦེ་གནས་གོང་དེའི་ནང་འཁོད་གསོག་འཇོག་འབད་མི་སླར་ལོགཔ་ཨིན།

ཚེས་རིམ་ཨང་ཡང་ན་ཚེས་གནས་གོང་ལས་འགན་དེ་ལུ་རྒྱབ་འགལ་སྦེ་ གཏན་བཟོ་ཚེས་ལུ་འབྲུལ་བའི་ཉིནམ་ཚུ་ནང་་འབྱུང་མི་རིམ་ཨང་ཚེས་གནས་གོང་ཚུ་ཡོད་ས་ ཁྱོད་ཀྱིས་དུས་ཚོད་གནས་གོང་ལས་འགན་གྱིས་སླར་ལོག་ཡོད་མི་གནས་གོང་ཚུ་དང་གཅིག་ཁར་རྩིས་སྟོན་བཏུབ་ཨིན་རུང་ ཁྱོད་ཀྱིས་བརྟག་ཞིབ་འབད་མི་བཏུབ་ཨིན།

དུས་ཚོད་རིམ་ཨང་ལས་འགན་དེ་ནང་ ཁྱོད་ཀྱིས་ཚད་བཟུང་ཚུ་ངོ་རེ་རེ་(ཆུ་ཚོད་ སྐར་མ་ སྐར་ཆག)དབྱེ་སེལ་ཨང་གྲངས་ཀྱི་གསལ་བརྗོད་ཚུ་སྦེ་རྩིས་སྤྲོད་བཏུབ་ཨིན། དུས་ཚོད་གནས་གོང་ལས་འགན་དོན་ལུ་ ཁྱོད་ཀྱིས་ཚད་བཟུང་ནང་ན་དུས་ཚོད་ཡོདཔ་སྦེ་ཡིག་རྒྱུན་ཅིག་རྩིས་སྤྲོད་བཏུབ་ཨིན།

དཔེར་བརྗོད:

Sub ExampleTimerValue
Dim daDT As Date
Dim a1, b1, c1, a2, b2, c2 As String
    ཨེ་༡ = "start time"
    བི་༡ = "end time"
    སི་༡ = "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