
Le but de cette fonction est de formater les adresses IPv4 au format 010.005.120.015 en 10.5.120.15 (exemple pris complètement au hasard).

Suppression des zéros inutiles, devant un nombre.
Public Function Format_AdresseIP(adr_ip As String) As String
Dim col() As String
col = Split(adr_ip, ".")
If UBound(col) = 3 Then
Return Val(col(0)) & "." & Val(col(1)) & "." & Val(col(2)) & "." & Val(col(3))
Else
Return ""
End If
End Function
Poster un Commentaire