From 2ef8ad1c9f66115b9a40bdeab53e9fe28805e017 Mon Sep 17 00:00:00 2001 From: LibreOļ¬ƒciant Date: Thu, 7 Nov 2019 15:38:08 +0200 Subject: faulty $[officename] and routine name adequate names Change-Id: I53fe5fecab562b2cf15da2d96dcabdd79ee7f25e Reviewed-on: https://gerrit.libreoffice.org/82218 Tested-by: Jenkins Reviewed-by: Olivier Hallot Tested-by: Olivier Hallot --- source/text/sbasic/shared/03080801.xhp | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'source/text/sbasic') 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 @@ Example: Sub ExampleHex -' uses BasicFormulas in $[officename] Calc +' uses BasicFormulas in %PRODUCTNAME Calc Dim a2, b2, c2 As String a2 = "&H3E8" - b2 = Hex2Int(a2) + b2 = Hex2Lng(a2) MsgBox b2 - c2 = Int2Hex(b2) + c2 = Lng2Hex(b2) MsgBox c2 End Sub -Function Hex2Int( sHex As String ) As Long -' Returns a long integer from a hexadecimal value. - Hex2Int = clng( sHex ) +Function Hex2Lng(sHex As String) As Long +' Returns a 32 bits signed integer number from an 8 digits hexadecimal value. + Hex2Lng = clng( sHex ) End Function -Function Int2Hex( iLong As Long) As String -' Calculates a hexadecimal value in integer. - Int2Hex = "&H" & Hex( iLong ) +Function Lng2Hex(iLong As Long) As String +' Calculates the 8 digits hexadecimal value out of a 32 bits signed integer number. + Lng2Hex = "&H" & Hex( iLong ) End Function -- cgit