If...Then...Else Statement
གསལ་བཤད་བཀག་དམ་གཅིག་ཡང་ན་ལྷགཔ་ཁྱོད་ཀྱིས་གྲ་སྒྲིག་གནས་སྟངས་དེ་བདེན་པ་ཅིན་ལག་ལེན་འཐབ་ནི་ཨིན་མུ་ངེས་འཛིན་འབདཝ་ཨིན།
ཚིག་སྦྱོར:
If condition=true Then Statement block [ElseIf condition=true Then] Statement block [Else] Statement block EndIf
Instead of Else If you can write ElseIf, instead of End If you can write EndIf.
ཚད་བཟུང་ཚུ་:
ཅིན་...དེ་ལས་ གསལ་བཤད་དེ་ལས་རིམ་བཀག་དམ་ཚུ་གྲ་སྒྲིག་གནས་སྟངས་ཚུ་གུ་རྟེན་ལག་ལེན་འཐབ་ཨིན། LibreOffice གཞི་རིམ་གྱིས་ ཅིན་ གསལ་བཤད་དེ་གདོང་ཐུག་འབྱུང་པ་ཅིན་ གནས་སྟངས་དེ་བརྟག་ཞིབ་འབད་ཡོདཔ་ཨིན། གནས་སྟངས་དེ་བདེན་པ་ཅིན་འབྱུང་རིམ་འོག་མ་གསལ་བཤད་ཚུ་ཆ་མཉམ་ཤུལ་མ་ཡར་ གཞན་ ཡང་ན་ གཞན་ཅིན་གསལ་བཤད་ཆ་མཉམ་ལག་ལེན་འཐབ་ཡོདཔ་ཨིན། གནས་སྟངས་རྫུན་མ་ཅིན་ གཞན་ཅིན་ གསལ་བཤད་དེ་གིས་ LibreOffice གཞི་རིམ་གྱིས་གནས་སྟངས་ཤུལ་མ་བརྟག་ཞིབ་འབདཝ་དང་འོག་གི་གསལ་བཤད་ཚུ་གནས་སྟངས་དེ་བདེན་པ་ཅིན་ལག་ལེན་འཐབ་མི་རྗེས་སུ་གྲངསམ་ཨིན། རྫུན་མ་ཅིན་ ལས་རིམ་་དེ་ཤུལ་མ་་གཞན་ཅིན་ ཡང་ གཞན་ གསལ་བཤད་་འཕྲོ་མཐུདཔ་ཨིན། གསལ་བཤད་ཚུ་གཞན་རྗེས་སུ་གྲངས་མི་ཆ་མཉམ་ཧེ་མ་བརྟག་ཞིབ་འབད་མི་གནས་སྟངས་གཅིག་བདེན་པ་ཨིན་པ་ཅིན་རྐྱངམ་ཅིག་ལག་ལེན་འཐབ་ཡོདཔ་ཨིན། གནས་སྟངས་ཚུ་ཆ་མཉམ་བརྟག་ཞིབ་འབད་ཡོད་པ་ཅིན་ཆ་མཉམ་པའི་གསལ་བཤད་་ཚུ་ལག་ལེན་འཐབ་ཡོདཔ་དང་ ལས་རིམ་དེ་འོག་གི་གསལ་བཤད་དེ་ མཇུག་ཅིན་དང་གཅིག་ཁར་་འཕྲོ་མཐུད་འབདཝ་ཨིན།
ཁྱོད་ཀྱིས་སྣ་མང་་ནེསིཊི་ ཨིན་པ་ཅིན...དེ་ལས་ གསལ་བཤད་ཚུ་འབད་བཏུབ།
གཞན་ དང་ གཞན་ཨིན་པ་ཅིན་ གསལ་བཤད་ཚུ་གདམ་ཁ་ཅན་ཨིན།
ཁྱོད་ཀྱིས་ ལུ་འགྱོ་ དང་ འགྱོ་འོག་མ་ ཨིན་པ་ཅིན་...དེ་ལས སྡེབ་ཚན་གྱི་ཕྱི་ཁ་མཆོངས་ནི་ལུ་ ཨིན་རུང་ ཨིན་པ་ཅིན་...དེ་ལས་ གཞི་བཀོད་ནང་ལུ་མཆོངས་ནི་མེན།
འོག་གི་དེཔར་བརྗོད་ཀྱིས་ཁྱོད་ལུ་ཐོན་སྐྱེད་ཀྱི་དུས་ཡོལ་ཚེས་ལུ་ལྕོགས་ཅན་བཟོཝ་ཨིནམ་དང་ དུས་ཡོལ་ཚེས་དེ་རྩིས་སྤྲོད་འབད་ཡོདཔ་ཨིན་པ་ཅིན་གཏན་འབེབས་བཟོཝ་ཨིན།
དཔེར་བརྗོད:
Sub ExampleIfThenDate
Dim sDate As String
Dim sToday As String
ཨེསི་ཚེས་ = ཨིན་པུཊི་སྒྲོམ་("Enter the expiration date (MM.DD.YYYY)")
sDate = Right$(sDate, 4) + Mid$(sDate, 4, 2) + Left$(sDate, 2)
sToday = Date$
sToday = Right$(sToday, 4)+ Mid$(sToday, 4, 2) + Left$(sToday, 2)
If sDate < sToday Then
འཕྲིན་དོན་སྒྲོམ "The expiration date has passed"
ElseIf sDate > sToday Then
འཕྲིན་དོན་སྒྲོམ "The expiration date has not yet passed"
Else
འཕྲིན་དོན་སྒྲོམ "The expiration date is today"
End If
End Sub