helpcontent2/source/text/sbasic/shared/03090101.xhp | 30 ++++++++++----------
1 file changed, 15 insertions(+), 15 deletions(-)
New commits:
commit e9f3bd2782afcd2dc1c89593c98891a06f6d40d6
Author: Andras Timar <ati...@suse.com>
Date: Thu Sep 13 13:52:06 2012 +0200
change paragraph role to 'code' for Basic code
Change-Id: I2d8b4a062858678561c6808f106a29035b144794
diff --git a/helpcontent2/source/text/sbasic/shared/03090101.xhp
b/helpcontent2/source/text/sbasic/shared/03090101.xhp
index 409372d..120c345 100644
--- a/helpcontent2/source/text/sbasic/shared/03090101.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03090101.xhp
@@ -56,20 +56,20 @@
<paragraph role="warning" id="par_id3152939" xml-lang="en-US" l10n="U"
oldref="9">You can use <emph>GoTo</emph> and <emph>GoSub</emph> to jump out of
an <emph>If...Then</emph> block, but not to jump into an <emph>If...Then</emph>
structure.</paragraph>
<paragraph role="paragraph" id="par_id3153951" xml-lang="en-US" l10n="U"
oldref="10">The following example enables you to enter the expiration date of a
product, and determines if the expiration date has passed.</paragraph>
<paragraph role="heading" id="hd_id3152576" xml-lang="en-US" level="2"
l10n="U" oldref="11">Example:</paragraph>
-<paragraph role="paragraph" id="par_id3150011" xml-lang="en-US" l10n="U"
oldref="12">Sub ExampleIfThenDate</paragraph>
-<paragraph role="paragraph" id="par_id3148645" xml-lang="en-US" l10n="U"
oldref="13">Dim sDate as String</paragraph>
-<paragraph role="paragraph" id="par_id3155855" xml-lang="en-US" l10n="U"
oldref="14">Dim sToday as String</paragraph>
-<paragraph role="paragraph" id="par_id3154490" xml-lang="en-US" l10n="U"
oldref="16">sDate = InputBox("Enter the expiration date
(MM.DD.YYYY)")</paragraph>
-<paragraph role="paragraph" id="par_id3154943" xml-lang="en-US" l10n="U"
oldref="17">sDate = Right$(sDate, 4) + Mid$(sDate, 4, 2) + Left$(sDate,
2)</paragraph>
-<paragraph role="paragraph" id="par_id3154098" xml-lang="en-US" l10n="U"
oldref="18">sToday = Date$</paragraph>
-<paragraph role="paragraph" id="par_id3144765" xml-lang="en-US" l10n="U"
oldref="19">sToday = Right$(sToday, 4)+ Mid$(sToday, 4, 2) + Left$(sToday,
2)</paragraph>
-<paragraph role="paragraph" id="par_id3154792" xml-lang="en-US" l10n="U"
oldref="20">If sDate < sToday Then</paragraph>
-<paragraph role="paragraph" id="par_id3155601" xml-lang="en-US" l10n="U"
oldref="21">MsgBox "The expiration date has passed"</paragraph>
-<paragraph role="paragraph" id="par_id3146972" xml-lang="en-US" l10n="U"
oldref="22">ElseIf sDate > sToday Then</paragraph>
-<paragraph role="paragraph" id="par_id3146912" xml-lang="en-US" l10n="U"
oldref="23">MsgBox "The expiration date has not yet passed"</paragraph>
-<paragraph role="paragraph" id="par_id3153710" xml-lang="en-US" l10n="U"
oldref="24">Else</paragraph>
-<paragraph role="paragraph" id="par_id3154754" xml-lang="en-US" l10n="U"
oldref="25">MsgBox "The expiration date is today"</paragraph>
-<paragraph role="paragraph" id="par_id3154361" xml-lang="en-US" l10n="U"
oldref="26">End If</paragraph>
-<paragraph role="paragraph" id="par_id3148405" xml-lang="en-US" l10n="U"
oldref="28">End Sub</paragraph>
+<paragraph role="code" id="par_id3150011" xml-lang="en-US" l10n="U"
oldref="12">Sub ExampleIfThenDate</paragraph>
+<paragraph role="code" id="par_id3148645" xml-lang="en-US" l10n="U"
oldref="13">Dim sDate as String</paragraph>
+<paragraph role="code" id="par_id3155855" xml-lang="en-US" l10n="U"
oldref="14">Dim sToday as String</paragraph>
+<paragraph role="code" id="par_id3154490" xml-lang="en-US" l10n="U"
oldref="16">sDate = InputBox("Enter the expiration date
(MM.DD.YYYY)")</paragraph>
+<paragraph role="code" id="par_id3154943" xml-lang="en-US" l10n="U"
oldref="17">sDate = Right$(sDate, 4) + Mid$(sDate, 4, 2) + Left$(sDate,
2)</paragraph>
+<paragraph role="code" id="par_id3154098" xml-lang="en-US" l10n="U"
oldref="18">sToday = Date$</paragraph>
+<paragraph role="code" id="par_id3144765" xml-lang="en-US" l10n="U"
oldref="19">sToday = Right$(sToday, 4)+ Mid$(sToday, 4, 2) + Left$(sToday,
2)</paragraph>
+<paragraph role="code" id="par_id3154792" xml-lang="en-US" l10n="U"
oldref="20">If sDate < sToday Then</paragraph>
+<paragraph role="code" id="par_id3155601" xml-lang="en-US" l10n="U"
oldref="21">MsgBox "The expiration date has passed"</paragraph>
+<paragraph role="code" id="par_id3146972" xml-lang="en-US" l10n="U"
oldref="22">ElseIf sDate > sToday Then</paragraph>
+<paragraph role="code" id="par_id3146912" xml-lang="en-US" l10n="U"
oldref="23">MsgBox "The expiration date has not yet passed"</paragraph>
+<paragraph role="code" id="par_id3153710" xml-lang="en-US" l10n="U"
oldref="24">Else</paragraph>
+<paragraph role="code" id="par_id3154754" xml-lang="en-US" l10n="U"
oldref="25">MsgBox "The expiration date is today"</paragraph>
+<paragraph role="code" id="par_id3154361" xml-lang="en-US" l10n="U"
oldref="26">End If</paragraph>
+<paragraph role="code" id="par_id3148405" xml-lang="en-US" l10n="U"
oldref="28">End Sub</paragraph>
</body>
</helpdocument>
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
