Module
Contents
Index 🔎︎

# 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