Module
Contents
Index 🔎︎

# Left Function

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

## ཚིག་སྦྱོར:

    གཡོན་(ཚིག་ཡིག་ ཡིག་རྒྱུན་བཟུམ་སྦེ ཨེན་རིངམ་སྦེ)

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

ཡིག་རྒྱུན།

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

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

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

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

## Error codes:

༥ ནུས་མེད་བྱ་སྒོའི་ལམ་ལུགས་བོད་བརྡ་

## དཔེར་བརྗོད:

    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