[Code Source] Formater une adresse IPv4

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

Soyez le premier à commenter

Poster un Commentaire

Votre adresse de messagerie ne sera pas publiée.


*


This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.