Mid Function, Mid Statement

ཡིག་རྒྱུན་གསལ་བརྗོད་ཀྱི་གསལ་བཀོད་འབད་ཡོད་མི་ཆ་ཚད་དེ་སླར་ལོགཔ (མི་ཌི་ལས་འགན) ཡང་ན་ཡིག་རྒྱུན་གསལ་བརྗོད་གཅིག་ཁར་ཡིག་རྒྱུན་གཞན་གྱི་ཆ་ཚད་ཚབ་བཙུགསཔ་ཨིན (གསལ་བཤད་འབྲིང་མ).

ཚིག་སྦྱོར:

འབྲིང་མ (ཚིག་ཡིག་ ཡིག་རྒྱུན་སྦེ [, Length As Long]) ཡང་ན་འབྲིང་མ (ཚིག་ཡིག་ ཡིག་རྒྱུན་སྦེ་ རིངམ་སྦེ་འགོ་བཙུགས་ རིང་ཚད་རིངམ་སྦེ་ ཚིག་ཡིག་་ཡིག་རྒྱུན་སྦེ)

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

ཡིག་རྒྱུན (only by Function)

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

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

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

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

མི་ཌི་ལས་འགན་ནང་གི་ཚད་བཟུང་གི་རིང་ཚད་དེ་བསྐྱུར་ཡོད་པ་ཅིན་ ཡིག་རྒྱུན་གསལ་བརྗོད་ནང་ཡིག་འབྲུ་ཚུཆ་མཉམ་གནས་ས་འགོ་བཙུགས་ལས་མཇུགས་བསྡུ་ལུ་ཡིག་རྒྱུན་དེ་སླར་ལོག་ཡོདཔ་ཨིན།

མི་ཌི་གསལ་བཤད་ ནང་གི་ཚད་བཟུང་དེ་རིང་ཚད་དེ་ཁྱོད་ཀྱིས་ཚབ་བཙུགས་ནི་གི་ཚིག་ཡིག་གི་རིང་ཚད་ལས་ཉུང་མ་ཅིན་ ཚིག་ཡིག་དེ་གསལ་བཀོད་འབད་ཡོད་མི་རིང་ཚད་ལུ་མར་ཕབ་འབད་ཡོདཔ་ཨིན།

ཚིག་ཡིག: ཡིག་རྒྱུན་དེ་ (མིཌི་གསལ་བཤད་)ཡིག་རྒྱུན་གསལ་བརྗོད་ལུ་ཚབ་བཙུགས་ནི།

དཔེར་བརྗོད:

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