Right Function

ཡིག་རྟགས་ཕྲེང་བའི་མཚོན་ཚུལ་གྱི་ཆེས་གཡོན་ངོས་ཀྱི་ཡིག་རྟགས་ n ལ་ཕྱིར་ལོག་པ།

Left རྟེན་གྲངས་ལ་གཟིགས།

བརྡ་འཕྲོད་

Right (Text As String, n As Integer)

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

ཡིག་རྟགས་ཕྲེང་བ་

ཁུགས་གྲངས་

Text ཆེས་གཡས་་ཕྱོགས་གྱི་ཡིག་རྟགས་གྱི་ཡིག་རྟགས་ཕྲེང་བའི་མཚོན་ཚུལ་གང་རུང་དུ་ཕྱིར་ལོག་རྒྱུ།

n ཕྱིར་ལོག་དགོས་རྒྱུ་ཡིག་རྟགས་མོ་གྲངས་ཧྲིལ་གྲངས་མཚོན་ཚུལ་ལ་མཚན་འཇོག་བྱ་དགོས། གལ་སྲིད་ n = 0ཡིན་ན་ཀླད་ཀོང་རིང་ཚད་ཀྱི་ག་ཡིག་རྟགས་ཕྲེང་བ་ཞིག་དུ་ཕྱིར་ལོག་རྒྱུ་ ཆོག་པའི་གྲངས་ཐང་ཆེ་ཤོས་ནི་ 65535

གཤམ་གྱི་དཔེ་གཞི་ཚེ་གྲངས་རྣམ་གཞག་ YYYY-MM-DD ནས་ US ཚེ་གྲངས་རྣམ་གཞག་ (MM/DD/YYYY)བརྗེ་བསྒྱུར་བྱེད།

Error codes:

5 ནུས་མེད་ཀྱི་བརྒྱུད་རིམ་འཁོར་སྤྱོད་

དཔེ་གཞི་

Sub ExampleUSDate

Dim sInput As String

Dim sUS_date As String

    sInput = InputBox("Please input a date in the international format 'YYYY-MM-DD'")

    sUS_date = Mid(sInput, 6, 2)

    sUS_date = sUS_date & "/"

    sUS_date = sUS_date & Right(sInput, 2)

    sUS_date = sUS_date & "/"

    sUS_date = sUS_date & Left(sInput, 4)

    MsgBox sUS_date

End Sub