diff options
Diffstat (limited to 'source/text/sbasic/shared/03120307.xhp')
| -rw-r--r-- | source/text/sbasic/shared/03120307.xhp | 28 |
1 files changed, 16 insertions, 12 deletions
diff --git a/source/text/sbasic/shared/03120307.xhp b/source/text/sbasic/shared/03120307.xhp index 88bd2d6dc5..3e148d0792 100644 --- a/source/text/sbasic/shared/03120307.xhp +++ b/source/text/sbasic/shared/03120307.xhp @@ -48,7 +48,9 @@ </section> <paragraph role="paragraph" id="par_id3149763" xml-lang="en-US" l10n="U" oldref="3">See also: <link href="text/sbasic/shared/03120303.xhp" name="Left Function">Left Function</link>.</paragraph> <paragraph role="heading" id="hd_id3145315" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3153061" xml-lang="en-US" l10n="CHG" oldref="5">Right (Text As String, n As Long)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3153061" xml-lang="en-US" oldref="5">Right (Text As String, n As Long)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3145068" xml-lang="en-US" level="2" l10n="U" oldref="6">Return value:</paragraph> <paragraph role="paragraph" id="par_id3156344" xml-lang="en-US" l10n="U" oldref="7">String</paragraph> <paragraph role="heading" id="hd_id3146795" xml-lang="en-US" level="2" l10n="U" oldref="8">Parameters:</paragraph> @@ -60,16 +62,18 @@ <embed href="text/sbasic/shared/00000003.xhp#errorcode"/> <embed href="text/sbasic/shared/00000003.xhp#err5"/> <paragraph role="heading" id="hd_id3156212" xml-lang="en-US" level="2" l10n="U" oldref="12">Example:</paragraph> -<paragraph role="paragraph" id="par_id3150869" xml-lang="en-US" l10n="U" oldref="13">Sub ExampleUSDate</paragraph> -<paragraph role="paragraph" id="par_id3153105" xml-lang="en-US" l10n="U" oldref="14">Dim sInput As String</paragraph> -<paragraph role="paragraph" id="par_id3154124" xml-lang="en-US" l10n="U" oldref="15">Dim sUS_date As String</paragraph> -<paragraph role="paragraph" id="par_id3159252" xml-lang="en-US" l10n="U" oldref="16">sInput = InputBox("Please input a date in the international format 'YYYY-MM-DD'")</paragraph> -<paragraph role="paragraph" id="par_id3149561" xml-lang="en-US" l10n="U" oldref="17">sUS_date = Mid(sInput, 6, 2)</paragraph> -<paragraph role="paragraph" id="par_id3146984" xml-lang="en-US" l10n="U" oldref="18">sUS_date = sUS_date & "/"</paragraph> -<paragraph role="paragraph" id="par_id3155308" xml-lang="en-US" l10n="U" oldref="19">sUS_date = sUS_date & Right(sInput, 2)</paragraph> -<paragraph role="paragraph" id="par_id3153727" xml-lang="en-US" l10n="U" oldref="20">sUS_date = sUS_date & "/"</paragraph> -<paragraph role="paragraph" id="par_id3145365" xml-lang="en-US" l10n="U" oldref="21">sUS_date = sUS_date & Left(sInput, 4)</paragraph> -<paragraph role="paragraph" id="par_id3152940" xml-lang="en-US" l10n="U" oldref="22">MsgBox sUS_date</paragraph> -<paragraph role="paragraph" id="par_id3146120" xml-lang="en-US" l10n="U" oldref="23">End Sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleUSDate</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sInput As String</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sUS_date As String</paragraph> +<paragraph role="bascode" id="par_id3159252" xml-lang="en-US" l10n="U" oldref="16"> sInput = InputBox("Please input a date in the international format 'YYYY-MM-DD'")</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = Mid(sInput, 6, 2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = sUS_date & "/"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = sUS_date & Right(sInput, 2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = sUS_date & "/"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> sUS_date = sUS_date & Left(sInput, 4)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sUS_date</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> |