If...Then...Else Statement
যদি প্রদত্ত একটি শর্ত True হয় তাহলে এক অথবা ততোধিক স্টেটমেন্ট নির্ধারণ করতে পারেন যা আপনি চালনা করতে চান।
সিনট্যাক্স:
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.
প্যারামিটার:
প্রদত্ত শর্তের উপর ভিত্তি করে If...Then স্টেটমেন্টের মাধ্যমে প্রোগ্রাম ব্লক চালনা করা হয়। যখন LibreOffice বেসিকে একটি If স্টেটমেন্ট পাওয়া যায়, তাহলে শর্তটি পরীক্ষা করা হয়। যদি শর্তটি True হয়, তাহলে পরবর্তী Else অথবা ElseIf স্টেটমেন্ট পর্যন্ত পরবর্তী সকল স্টেটমেন্ট চালনা করা হয়। যদি শর্তটি False হয় এবং একটি ElseIf স্টেটমেন্ট অনুসরণ করে, তাহলে LibreOffice বেসিকে পরবর্তী শর্তটি পরীক্ষা করা হয় এবং শর্তটি True হলে নিচের স্টেটমেন্টটি চালনা করা হয়। যদি False হয় তাহলে প্রোগ্রামটি হয় পরবর্তী ElseIf অথবা Else স্টেটমেন্ট সহ বহাল থাকে। পূর্বে পরীক্ষিত কোন শর্ত True না হলে Else অনুসরণকারী স্টেটমেন্ট চালনা করা হয়। সকল শর্ত মূল্যায়ন করা হলে, সংশ্লিষ্ট স্টেটমেন্ট চালনা করা হলে, প্রোগ্রামটি EndIf অনুসরণকারী স্টেটমেন্টের সহ বহাল থাকবে।
আপনি বহু If...Then স্টেটমেন্ট নেস্ট করতে পারবেন।
Else এবং ElseIf স্টেটমেন্ট ঐচ্ছিক।
GoTo এবং GoSub ব্যবহার করে If...Then ব্লকের বাইরে স্থান পরিবর্তন করতে পারেন, কিন্তু If...Then গঠনের মধ্যে নয়।
নিচের উদহরণের মাধ্যমে আপনি একটি পন্যের মেয়াদউত্তীর্ণের তারিখ সন্নিবেশ করাতে পারেন, এবং মেয়াদউত্তীর্ণের তারিখ অতিক্রম করলে তা নির্ধারণ করতে পারেন।
উদাহরণ:
Sub ExampleIfThenDate
Dim sDate As String
Dim sToday As String
sDate = InputBox("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
MsgBox "The expiration date has passed"
ElseIf sDate > sToday Then
MsgBox "The expiration date has not yet passed"
Else
MsgBox "The expiration date is today"
End If
End Sub