CONVERTION UNITE DE VITESSE

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 043 fois - Téléchargée 7 fois

Contenu du snippet

Public Enum UniteDistance
    mm = 1000000
    m = 1000
    km = 1
End Enum

Public Enum UniteTemps
    s = 3600
    min = 60
    h = 1
End Enum

Public Shared Function TranslationUniteVitesse(ByVal Valeur As Single, _
                                               ByVal UniteDistanceCourante As UniteDistance, _
                                               ByVal UniteTempsCourante As UniteTemps, _
                                               ByVal NouvelleUniteDistance As UniteDistance, _
                                               ByVal NouvelleUniteTemps As UniteTemps) As Single

    Dim distanceConvertie As Single = Valeur * NouvelleUniteDistance / UniteDistanceCourante
    Dim tempsConvertie As Single = NouvelleUniteTemps / UniteTempsCourante

    If (tempsConvertie = 0) Then
        Throw New Exception("ModuleGlobal:TranslationUniteVitesse - Attention : Division par 0")
    End If

    Return distanceConvertie / tempsConvertie

End Function


Compatibilité : VB 2005, VB 2008

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.