diff options
Diffstat (limited to 'source/text/sbasic/shared/03030303.xhp')
| -rw-r--r-- | source/text/sbasic/shared/03030303.xhp | 26 |
1 files changed, 15 insertions, 11 deletions
diff --git a/source/text/sbasic/shared/03030303.xhp b/source/text/sbasic/shared/03030303.xhp index 1d673ef380..cdb8337bb5 100644 --- a/source/text/sbasic/shared/03030303.xhp +++ b/source/text/sbasic/shared/03030303.xhp @@ -48,19 +48,23 @@ </section> <paragraph role="note" id="par_id3156212" xml-lang="en-US" l10n="U" oldref="3">You must first declare a variable to call the Timer function and assign it the "Long " data type, otherwise a Date value is returned.</paragraph> <paragraph role="heading" id="hd_id3153768" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3161831" xml-lang="en-US" l10n="U" oldref="5">Timer</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3161831" xml-lang="en-US" oldref="5">Timer</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3146975" xml-lang="en-US" level="2" l10n="U" oldref="6">Return value:</paragraph> <paragraph role="paragraph" id="par_id3146984" xml-lang="en-US" l10n="U" oldref="7">Date</paragraph> <paragraph role="heading" id="hd_id3156442" xml-lang="en-US" level="2" l10n="U" oldref="8">Example:</paragraph> -<paragraph role="paragraph" id="par_id3153951" xml-lang="en-US" l10n="U" oldref="9">Sub ExampleTimer</paragraph> -<paragraph role="paragraph" id="par_id3147427" xml-lang="en-US" l10n="U" oldref="10">Dim lSec as long,lMin as long,lHour as long</paragraph> -<paragraph role="paragraph" id="par_id3153092" xml-lang="en-US" l10n="U" oldref="11">lSec = Timer</paragraph> -<paragraph role="paragraph" id="par_id3145748" xml-lang="en-US" l10n="U" oldref="12">MsgBox lSec,0,"Seconds since midnight"</paragraph> -<paragraph role="paragraph" id="par_id3149260" xml-lang="en-US" l10n="U" oldref="13">lMin = lSec / 60</paragraph> -<paragraph role="paragraph" id="par_id3148646" xml-lang="en-US" l10n="U" oldref="14">lSec = lSec Mod 60</paragraph> -<paragraph role="paragraph" id="par_id3148575" xml-lang="en-US" l10n="U" oldref="15">lHour = lMin / 60</paragraph> -<paragraph role="paragraph" id="par_id3150418" xml-lang="en-US" l10n="U" oldref="16">lMin = lMin Mod 60</paragraph> -<paragraph role="paragraph" id="par_id3156283" xml-lang="en-US" l10n="U" oldref="17">MsgBox Right("00" & lHour , 2) & ":"& Right("00" & lMin , 2) & ":" & Right("00" & lSec , 2) ,0,"The time is"</paragraph> -<paragraph role="paragraph" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="18">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleTimer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim lSec As Long,lMin As Long,lHour As Long</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lSec = Timer</paragraph> +<paragraph role="bascode" id="par_id3145748" xml-lang="en-US" l10n="U" oldref="12"> MsgBox lSec,0,"Seconds since midnight"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lMin = lSec / 60</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lSec = lSec Mod 60</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lHour = lMin / 60</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> lMin = lMin Mod 60</paragraph> +<paragraph role="bascode" id="par_id3156283" xml-lang="en-US" l10n="U" oldref="17"> MsgBox Right("00" & lHour , 2) & ":"& Right("00" & lMin , 2) & ":" & Right("00" & lSec , 2) ,0,"The time is"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> |