TimeSerial Function

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

བརྡ་འཕྲོད་


TimeSerial (hour, minute, second)

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

ཚེས་གྲངས་

ཁུགས་གྲངས་

hour ཧྲིལ་གྲངས་གང་རུང་གི་མཚོན་ཚུལ་ རིམ་སྒྲིག་དུས་ཚོད་ཐང་གི་དུས་ཚོད་ནང་གི་ཆུ་ཚོད་གཏན་འཁེལ་ལ་སྤྱོད་པ་མཚོན། ནུས་ལྡན་ཐང་ནི་ 0-23ཡིན།

minute ཧྲིལ་གྲངས་ཀྱི་མཚོན་ཚུལ་གང་རུང་ནི་གོ་རིམ་དུས་ཚོད་ཐང་གི་དུས་ཚོད་ནང་གི་སྐར་མ་གཏན་འཁེལ་ལ་སྤྱོད་པ་མཚོན་ ཐང་འདི་དུས་རྒྱུན་གྱི་འདེམས་ཐང་ཚད་གཞི་ནི་ 0 ནས་ 59བར་ཡིན། འོན་ཀྱང་སྐར་མའི་གྲངས་ཀྱིས་ཆུ་ཚོད་ཐང་ལ་ཤུགས་རྐྱེན་ཐེབས་དུས་ཁྱབ་ཁོངས་འདི་མིན་པའི་ཐང་ཡང་འདེམས་ཆོག་

second ཧྲིལ་གྲངས་ཀྱི་མཚོན་ཚུལ་གང་རུང་ནི་གོ་རིམ་དུས་ཚོད་ཐང་གི་དུས་ཚོད་ནང་གི་སྐར་ཆ་གཏན་འཁེལ་ལ་སྤྱོད་པ་མཚོན་ ཐང་འདི་དུས་རྒྱུན་གྱི་འདེམས་ཐང་ཁྱབ་ཁོངས་ནི་ 0 ནས་ 59བར་ཡིན། སྐར་ཆའི་གྲངས་ཀྱིས་སྐར་མའི་ཐང་ལ་ཤུགས་རྐྱེན་བྱེད་དུས་ཁྱབ་ཁོངས་འདི་མིན་པའི་ཐང་ཡང་འདེམས་ཆོག་

དཔེ་གཞི་

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.9999999999 ལས་ཆུང་བའི་ཞིབ་ཚད་གྲངས་ཉར་ཚགས་བྱེད། རྟེན་གྲངས་ DateSerial ཡང་ན་ DateValue ནང་གོ་རིམ་ཚེས་གྲངས་ཐང་གི་རྩིས་རྒྱག་མཇུག་འབྲས་ནི་རྒྱས་བཅད་ཚེས་གྲངས་ཀྱི་བར་ཁྱད་ཉིན་གྲངས་ཡིན་ དེར་བརྟེན་ TimeSerial ལ་མཚོན་ན་ཁྱེད་ཀྱིས་དེའི་ཕྱིར་ལོག་ཐང་སྤྱད་ནས་རྩིས་རྒྱག་དགོས་པ་ལས་ཕྱིར་ལོག་ཐང་ཉིད་རྩིས་རྒྱག་མི་ཐུབ་བོ།

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

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,"རྣམ་གཞག་ཅན་དུ་འགྱུར་བའི་དུས་ཚོད་"
End Sub

Please support us!