diff options
Diffstat (limited to 'source/text/sbasic/shared/03030303.xhp')
| -rw-r--r-- | source/text/sbasic/shared/03030303.xhp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/source/text/sbasic/shared/03030303.xhp b/source/text/sbasic/shared/03030303.xhp index 9c87d2f0cf..bf440cf919 100644 --- a/source/text/sbasic/shared/03030303.xhp +++ b/source/text/sbasic/shared/03030303.xhp @@ -51,13 +51,13 @@ <bascode> <paragraph id="par_idm1341580128" role="bascode" localize="false" xml-lang="en-US">Sub ExampleTimer</paragraph> <paragraph id="par_idm1341578896" role="bascode" localize="false" xml-lang="en-US">Dim lSec As Long,lMin As Long,lHour As Long</paragraph> -<paragraph id="par_idm1341577632" role="bascode" localize="false" xml-lang="en-US"> lSec = Timer</paragraph> -<paragraph id="par_id3145748" role="bascode" xml-lang="en-US"> MsgBox lSec,0,"Seconds since midnight"</paragraph> -<paragraph id="par_idm1341574656" role="bascode" localize="false" xml-lang="en-US"> lMin = lSec / 60</paragraph> -<paragraph id="par_idm1341573424" role="bascode" localize="false" xml-lang="en-US"> lSec = lSec Mod 60</paragraph> -<paragraph id="par_idm1341572192" role="bascode" localize="false" xml-lang="en-US"> lHour = lMin / 60</paragraph> -<paragraph id="par_idm1341570960" role="bascode" localize="false" xml-lang="en-US"> lMin = lMin Mod 60</paragraph> -<paragraph id="par_id3156283" role="bascode" xml-lang="en-US"> MsgBox Right("00" & lHour , 2) & ":"& Right("00" & lMin , 2) & ":" & Right("00" & lSec , 2) ,0,"The time is"</paragraph> +<paragraph id="par_idm1341577632" role="bascode" localize="false" xml-lang="en-US"> lSec = Timer</paragraph> +<paragraph id="par_id3145748" role="bascode" xml-lang="en-US"> MsgBox lSec,0,"Seconds since midnight"</paragraph> +<paragraph id="par_idm1341574656" role="bascode" localize="false" xml-lang="en-US"> lMin = lSec / 60</paragraph> +<paragraph id="par_idm1341573424" role="bascode" localize="false" xml-lang="en-US"> lSec = lSec Mod 60</paragraph> +<paragraph id="par_idm1341572192" role="bascode" localize="false" xml-lang="en-US"> lHour = lMin / 60</paragraph> +<paragraph id="par_idm1341570960" role="bascode" localize="false" xml-lang="en-US"> lMin = lMin Mod 60</paragraph> +<paragraph id="par_id3156283" role="bascode" xml-lang="en-US"> MsgBox Right("00" & lHour , 2) & ":"& Right("00" & lMin , 2) & ":" & Right("00" & lSec , 2) ,0,"The time is"</paragraph> <paragraph id="par_idm1341567920" role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> </bascode> </body> |