Function SgnGN(ByVal nb As String) As Long
'Equivalent à SGN()

nb = ZeroGN(nb)
If nb = "0" Then SgnGN = 0: Exit Function
Dim premier As String * 1
premier = Left$(nb, 1)
Select Case premier
    Case "-"
        SgnGN = -1
    Case Else
        SgnGN = 1
End Select
End Function