summaryrefslogtreecommitdiff
path: root/helpcontent2/source/text/sbasic/shared/03030105.xhp
diff options
context:
space:
mode:
Diffstat (limited to 'helpcontent2/source/text/sbasic/shared/03030105.xhp')
-rw-r--r--helpcontent2/source/text/sbasic/shared/03030105.xhp44
1 files changed, 23 insertions, 21 deletions
diff --git a/helpcontent2/source/text/sbasic/shared/03030105.xhp b/helpcontent2/source/text/sbasic/shared/03030105.xhp
index aa9070caf..10245b344 100644
--- a/helpcontent2/source/text/sbasic/shared/03030105.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03030105.xhp
@@ -57,26 +57,28 @@
<embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<paragraph role="heading" id="hd_id3148616" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph>
-<paragraph role="paragraph" id="par_id3145749" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleWeekDay</paragraph>
-<paragraph role="paragraph" id="par_id3147426" xml-lang="en-US" l10n="U" oldref="12">Dim sDay As String</paragraph>
-<paragraph role="paragraph" id="par_id3148576" xml-lang="en-US" l10n="U" oldref="13">REM Return and display the day of the week</paragraph>
-<paragraph role="paragraph" id="par_id3155412" xml-lang="en-US" l10n="U" oldref="14">Select Case WeekDay( Now )</paragraph>
-<paragraph role="paragraph" id="par_id3155306" xml-lang="en-US" l10n="U" oldref="15">case 1</paragraph>
-<paragraph role="paragraph" id="par_id3151117" xml-lang="en-US" l10n="U" oldref="16">sDay="Sunday"</paragraph>
-<paragraph role="paragraph" id="par_id3152460" xml-lang="en-US" l10n="U" oldref="17">case 2</paragraph>
-<paragraph role="paragraph" id="par_id3153952" xml-lang="en-US" l10n="U" oldref="18">sDay="Monday"</paragraph>
-<paragraph role="paragraph" id="par_id3149666" xml-lang="en-US" l10n="U" oldref="19">case 3</paragraph>
-<paragraph role="paragraph" id="par_id3153157" xml-lang="en-US" l10n="U" oldref="20">sDay="Tuesday"</paragraph>
-<paragraph role="paragraph" id="par_id3154730" xml-lang="en-US" l10n="U" oldref="21">case 4</paragraph>
-<paragraph role="paragraph" id="par_id3154942" xml-lang="en-US" l10n="U" oldref="22">sDay="Wednesday"</paragraph>
-<paragraph role="paragraph" id="par_id3145799" xml-lang="en-US" l10n="U" oldref="23">case 5</paragraph>
-<paragraph role="paragraph" id="par_id3155416" xml-lang="en-US" l10n="U" oldref="24">sDay="Thursday"</paragraph>
-<paragraph role="paragraph" id="par_id3150716" xml-lang="en-US" l10n="U" oldref="25">case 6</paragraph>
-<paragraph role="paragraph" id="par_id3154015" xml-lang="en-US" l10n="U" oldref="26">sDay="Friday"</paragraph>
-<paragraph role="paragraph" id="par_id3146971" xml-lang="en-US" l10n="U" oldref="27">case 7</paragraph>
-<paragraph role="paragraph" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="28">sDay="Saturday"</paragraph>
-<paragraph role="paragraph" id="par_id3155065" xml-lang="en-US" l10n="U" oldref="29">End Select</paragraph>
-<paragraph role="paragraph" id="par_id3148993" xml-lang="en-US" l10n="U" oldref="30">msgbox "" + sDay,64,"Today is"</paragraph>
-<paragraph role="paragraph" id="par_id3149019" xml-lang="en-US" l10n="U" oldref="31">End Sub</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3145749" xml-lang="en-US" localize="false">Sub ExampleWeekDay</paragraph>
+<paragraph role="bascode" id="par_id3147426" xml-lang="en-US" localize="false">Dim sDay As String</paragraph>
+<paragraph role="bascode" id="par_id3148576" xml-lang="en-US" l10n="U" oldref="13">' Return And display the day of the week</paragraph>
+<paragraph role="bascode" id="par_id3155412" xml-lang="en-US" localize="false"> Select Case WeekDay( Now )</paragraph>
+<paragraph role="bascode" id="par_id3155306" xml-lang="en-US" localize="false"> Case 1</paragraph>
+<paragraph role="bascode" id="par_id3151117" xml-lang="en-US" l10n="U" oldref="16"> sDay="Sunday"</paragraph>
+<paragraph role="bascode" id="par_id3152460" xml-lang="en-US" localize="false"> Case 2</paragraph>
+<paragraph role="bascode" id="par_id3153952" xml-lang="en-US" l10n="U" oldref="18"> sDay="Monday"</paragraph>
+<paragraph role="bascode" id="par_id3149666" xml-lang="en-US" localize="false"> Case 3</paragraph>
+<paragraph role="bascode" id="par_id3153157" xml-lang="en-US" l10n="U" oldref="20"> sDay="Tuesday"</paragraph>
+<paragraph role="bascode" id="par_id3154730" xml-lang="en-US" localize="false"> Case 4</paragraph>
+<paragraph role="bascode" id="par_id3154942" xml-lang="en-US" l10n="U" oldref="22"> sDay="Wednesday"</paragraph>
+<paragraph role="bascode" id="par_id3145799" xml-lang="en-US" localize="false"> Case 5</paragraph>
+<paragraph role="bascode" id="par_id3155416" xml-lang="en-US" l10n="U" oldref="24"> sDay="Thursday"</paragraph>
+<paragraph role="bascode" id="par_id3150716" xml-lang="en-US" localize="false"> Case 6</paragraph>
+<paragraph role="bascode" id="par_id3154015" xml-lang="en-US" l10n="U" oldref="26"> sDay="Friday"</paragraph>
+<paragraph role="bascode" id="par_id3146971" xml-lang="en-US" localize="false"> Case 7</paragraph>
+<paragraph role="bascode" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="28"> sDay="Saturday"</paragraph>
+<paragraph role="bascode" id="par_id3155065" xml-lang="en-US" localize="false"> End Select</paragraph>
+<paragraph role="bascode" id="par_id3148993" xml-lang="en-US" l10n="U" oldref="30"> MsgBox "" + sDay,64,"Today Is"</paragraph>
+<paragraph role="bascode" id="par_id3149019" xml-lang="en-US" localize="false">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>