diff options
Diffstat (limited to 'source/text/sbasic/shared/03030206.xhp')
| -rw-r--r-- | source/text/sbasic/shared/03030206.xhp | 34 |
1 files changed, 19 insertions, 15 deletions
diff --git a/source/text/sbasic/shared/03030206.xhp b/source/text/sbasic/shared/03030206.xhp index 38e122ce1b..9d5c793ed0 100644 --- a/source/text/sbasic/shared/03030206.xhp +++ b/source/text/sbasic/shared/03030206.xhp @@ -47,7 +47,9 @@ <paragraph role="paragraph" id="par_id3153361" xml-lang="en-US" l10n="U" oldref="2">Calculates a serial time value from the specified hour, minute, and second - parameters passed as strings - that represents the time in a single numeric value. This value can be used to calculate the difference between times.</paragraph> </section> <paragraph role="heading" id="hd_id3154138" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3156282" xml-lang="en-US" l10n="U" oldref="4">TimeValue (Text As String)</paragraph> +<bascode>
+<paragraph role="bascode" id="par_id3156282" xml-lang="en-US" oldref="4">TimeValue (Text As String)</paragraph>
+</bascode> <paragraph role="heading" id="hd_id3153969" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph> <paragraph role="paragraph" id="par_id3156424" xml-lang="en-US" l10n="U" oldref="6">Date</paragraph> <paragraph role="heading" id="hd_id3145172" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph> @@ -61,19 +63,21 @@ <embed href="text/sbasic/shared/00000003.xhp#err5"/> <embed href="text/sbasic/shared/00000003.xhp#err13"/> <paragraph role="heading" id="hd_id3145271" xml-lang="en-US" level="2" l10n="U" oldref="13">Example:</paragraph> -<paragraph role="paragraph" id="par_id3152597" xml-lang="en-US" l10n="U" oldref="30">Sub ExampleTimerValue</paragraph> -<paragraph role="paragraph" id="par_id3147348" xml-lang="en-US" l10n="U" oldref="31">Dim daDT as Date</paragraph> -<paragraph role="paragraph" id="par_id3148576" xml-lang="en-US" l10n="U" oldref="32">Dim a1, b1, c1, a2, b2, c2 as String</paragraph> -<paragraph role="paragraph" id="par_id3149378" xml-lang="en-US" l10n="U" oldref="33">a1 = "start time"</paragraph> -<paragraph role="paragraph" id="par_id3145800" xml-lang="en-US" l10n="U" oldref="34">b1 = "end time"</paragraph> -<paragraph role="paragraph" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="35">c1 = "total time"</paragraph> -<paragraph role="paragraph" id="par_id3154492" xml-lang="en-US" l10n="U" oldref="37">a2 = "8:34"</paragraph> -<paragraph role="paragraph" id="par_id3155602" xml-lang="en-US" l10n="U" oldref="38">b2 = "18:12"</paragraph> -<paragraph role="paragraph" id="par_id3150715" xml-lang="en-US" l10n="U" oldref="39">daDT = TimeValue(b2) - TimeValue(a2)</paragraph> -<paragraph role="paragraph" id="par_id3153838" xml-lang="en-US" l10n="U" oldref="40">c2 = a1 & ": " & a2 & chr(13)</paragraph> -<paragraph role="paragraph" id="par_id3150749" xml-lang="en-US" l10n="U" oldref="41">c2 = c2 & b1 & ": " & b2 & chr(13)</paragraph> -<paragraph role="paragraph" id="par_id3154755" xml-lang="en-US" l10n="U" oldref="42">c2 = c2 & c1 & ": " & trim(Str(Hour(daDT))) & ":" & trim(Str(Minute(daDT))) & ":" & trim(Str(Second(daDT)))</paragraph> -<paragraph role="paragraph" id="par_id3153714" xml-lang="en-US" l10n="U" oldref="43">Msgbox c2</paragraph> -<paragraph role="paragraph" id="par_id3155767" xml-lang="en-US" l10n="U" oldref="44">end sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleTimerValue</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim daDT As Date</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Dim a1, b1, c1, a2, b2, c2 As String</paragraph> +<paragraph role="bascode" id="par_id3149378" xml-lang="en-US" l10n="U" oldref="33"> a1 = "start time"</paragraph> +<paragraph role="bascode" id="par_id3145800" xml-lang="en-US" l10n="U" oldref="34"> b1 = "end time"</paragraph> +<paragraph role="bascode" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="35"> c1 = "total time"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> a2 = "8:34"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> b2 = "18:12"</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> daDT = TimeValue(b2) - TimeValue(a2)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> c2 = a1 & ": " & a2 & chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> c2 = c2 & b1 & ": " & b2 & chr(13)</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> c2 = c2 & c1 & ": " & trim(Str(Hour(daDT))) & ":" & trim(Str(Minute(daDT))) & ":" & trim(Str(Second(daDT)))</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox c2</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> |