Salut,
Une nouvelle contribution pour le calcul de la vitesse avec la gestion des unités selon le système S.I. (j'ai mis les unités les plus fréquentes, mais on pourrait en ajouter beaucoup) :
Un petit exemple sur l'usage de cette fonction :
Il faut bien mettre les unités entre guillemets.
EDIT 23/04/21 16:47 :
Changement de catégorie Math => Ingénierie
Une nouvelle contribution pour le calcul de la vitesse avec la gestion des unités selon le système S.I. (j'ai mis les unités les plus fréquentes, mais on pourrait en ajouter beaucoup) :
VB:
Function VITESSE(Distance As Double, UnitéDistance As String, Durée As Double, UnitéTemps As String, UnitéVitesse As String)
Dim ut As Double
Dim ud As Double
Dim uv As Double
Select Case UnitéTemps
Case "h"
ut = 3600
Case "min"
ut = 60
Case "s"
ut = 1
Case Else
VITESSE = "Pb unité temps"
Exit Function
End Select
Select Case UnitéDistance
Case "km"
ud = 1000
Case "m"
ud = 1
Case Else
VITESSE = "Pb unité distance"
Exit Function
End Select
Select Case UnitéVitesse
Case "km/h"
uv = 3600 / 1000
Case "m/s"
uv = 1
Case Else
VITESSE = "Pb unité vitesse"
Exit Function
End Select
VITESSE = (Distance * ud) / (Durée * ut) * uv
End FunctionUn petit exemple sur l'usage de cette fonction :
Code:
=VITESSE (1500;"m";6;"min";"km/h")EDIT 23/04/21 16:47 :
Changement de catégorie Math => Ingénierie
Dernière édition: