Right Function

ཡིག་རྒྱུན་གསལ་བརྗོད་ཀྱི་ཡིག་འབྲུ་ "n" ཐོབ་དབང་མང་ཤོས་དེ་ཚུ་སླར་ལོགཔ་ཨིན།

ད་རུང་བལྟ: གཡོན་ལས་འགན.

ཚིག་སྦྱོར:

གཡས (Text As String, n As Long)

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

ཡིག་རྒྱུན།

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

ཚིག་ཡིག་: ཡིག་རྒྱུན་གསལ་བརྗོད་གང་རུང་ཁྱོད་ཀྱིས་བདེན་ཤོས་ཡིག་འབྲུ་ཚུ་གི་དེ་སླར་ལོག་ནི་ཨིན་མི།

ཨེན་: ཨང་གྲངས་ཀྱི་གསལ་བརྗོད་དེ་གིས་ཁྱོད་ཀྱི་་སླར་ལོག་ནི་ཨིན་མི་ཡིག་འབྲུ་ཚུ་གི་ཨང་དེ་ངེས་འཛིན་འབདཝ་ཨིན། ཨེན་ = ༠ ཡིག་རྒྱུན་རིང་ཚད་ཀླད་ཀོར་སླར་ལོགཔ་ཨིན། གནས་གོང་མང་མཐའ་དེ་ ༦༥༥༣༥ བཅུགཔ་ཨིན།

འོག་གི་དཔེར་བརྗོད་ཀྱིས་YYYY-MM-DD ནང་ཚེས་རྩ་སྒྲིག་ལས་ཡུ་ཨེསི་ཚེས་རྩ་སྒྲིག་ (MM/DD/YYYY)ལུ་གཞི་བསྒྱུར་འབདཝ་ཨིན།

དཔེར་བརྗོད:

Sub ExampleUSDate

Dim sInput As String

Dim sUS_date As String

    ཨེསི་ཨིན་པུཊི = ཨིན་པུཊི་སྒྲོམ་("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