diff options
| -rw-r--r-- | source/text/sbasic/shared/03080801.xhp | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/source/text/sbasic/shared/03080801.xhp b/source/text/sbasic/shared/03080801.xhp index 00822a73be..302c765237 100644 --- a/source/text/sbasic/shared/03080801.xhp +++ b/source/text/sbasic/shared/03080801.xhp @@ -54,23 +54,23 @@ <paragraph id="hd_id3154365" role="heading" level="2" xml-lang="en-US">Example:</paragraph> <bascode> <paragraph id="par_idm1340898144" role="bascode" localize="false" xml-lang="en-US">Sub ExampleHex</paragraph> -<paragraph id="par_id3156214" role="bascode" xml-lang="en-US">' uses BasicFormulas in $[officename] Calc</paragraph> +<paragraph id="par_id3156214" role="bascode" xml-lang="en-US">' uses BasicFormulas in %PRODUCTNAME Calc</paragraph> <paragraph id="par_idm1340895168" role="bascode" localize="false" xml-lang="en-US">Dim a2, b2, c2 As String</paragraph> <paragraph id="par_idm1340893920" role="bascode" localize="false" xml-lang="en-US"> a2 = "&H3E8"</paragraph> -<paragraph id="par_idm1340892688" role="bascode" localize="false" xml-lang="en-US"> b2 = Hex2Int(a2)</paragraph> +<paragraph id="par_idm1340892688" role="bascode" localize="false" xml-lang="en-US"> b2 = Hex2Lng(a2)</paragraph> <paragraph id="par_idm1340891456" role="bascode" localize="false" xml-lang="en-US"> MsgBox b2</paragraph> -<paragraph id="par_idm1340890224" role="bascode" localize="false" xml-lang="en-US"> c2 = Int2Hex(b2)</paragraph> +<paragraph id="par_idm1340890224" role="bascode" localize="false" xml-lang="en-US"> c2 = Lng2Hex(b2)</paragraph> <paragraph id="par_idm1340888992" role="bascode" localize="false" xml-lang="en-US"> MsgBox c2</paragraph> <paragraph id="par_idm1340887760" role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> <paragraph id="par_idm1340886528" role="bascode" localize="false" xml-lang="en-US"> </paragraph> -<paragraph id="par_idm1340885280" role="bascode" localize="false" xml-lang="en-US">Function Hex2Int( sHex As String ) As Long</paragraph> -<paragraph id="par_id3149262" role="bascode" xml-lang="en-US">' Returns a long integer from a hexadecimal value.</paragraph> -<paragraph id="par_idm1340882272" role="bascode" localize="false" xml-lang="en-US"> Hex2Int = clng( sHex )</paragraph> +<paragraph id="par_idm1340885280" role="bascode" localize="false" xml-lang="en-US">Function Hex2Lng(sHex As String) As Long</paragraph> +<paragraph id="par_id3149262" role="bascode" xml-lang="en-US">' Returns a 32 bits signed integer number from an 8 digits hexadecimal value.</paragraph> +<paragraph id="par_idm1340882272" role="bascode" localize="false" xml-lang="en-US"> Hex2Lng = clng( sHex )</paragraph> <paragraph id="par_idm1340881024" role="bascode" localize="false" xml-lang="en-US">End Function</paragraph> <paragraph id="par_idm1340879792" role="bascode" localize="false" xml-lang="en-US"> </paragraph> -<paragraph id="par_idm1340878592" role="bascode" localize="false" xml-lang="en-US">Function Int2Hex( iLong As Long) As String</paragraph> -<paragraph id="par_id3147215" role="bascode" xml-lang="en-US">' Calculates a hexadecimal value in integer.</paragraph> -<paragraph id="par_idm1340875584" role="bascode" localize="false" xml-lang="en-US"> Int2Hex = "&H" & Hex( iLong )</paragraph> +<paragraph id="par_idm1340878592" role="bascode" localize="false" xml-lang="en-US">Function Lng2Hex(iLong As Long) As String</paragraph> +<paragraph id="par_id3147215" role="bascode" xml-lang="en-US">' Calculates the 8 digits hexadecimal value out of a 32 bits signed integer number.</paragraph> +<paragraph id="par_idm1340875584" role="bascode" localize="false" xml-lang="en-US"> Lng2Hex = "&H" & Hex( iLong )</paragraph> <paragraph id="par_idm1340874336" role="bascode" localize="false" xml-lang="en-US">End Function</paragraph> </bascode> </body> |