PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 31 déc. 2007 à 19:01
outch, de plus en plus poussées les questions......
Option Explicit
'
Private Sub Form_Load()
MsgBox GetPercentage(200, 19.6)
End Sub
'
Function GetPercentage(ByVal dValue As Double, ByVal dPercent As Double) As Double
GetPercentage = dValue * dPercent / 100
End Function
Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp