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
sDate = आगत बाकस("समापन मिति प्रविष्ट गर्नुहोस्(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
MsgBox "समायावधी मिति पास भैसक्यो"
ElseIf sDate > sToday Then
MsgBox "समयावधी मितिअहिले सम्म बितेको छैन "
Else
MsgBox "समयावधी मिति आज हो"
End If
End Sub