[Conny Westh]

Håller med etanders och vill konkretisera det med ett exempel:

' Funktion 1
' VB.NET
public function rank(ByVal heltal as integer) as integer
 * *dim kvot as integer
 * *kvot=heltal/3000+1
 * *return kvot
end function

' Funktion 2
' VB.NET
' Mer generell kod
public function rank(ByVal heltal as integer, ByVal minRank as integer, ByVal maxRank as integer, *ByVal maxHeltal as integer) as integer
 * *dim kvot as integer
 * *kvot=heltal/(maxHeltal/maxRank)+minRank
 * *return kvot
end function

' Funktion 3
' VB.NET
' Använd Den generella koden...
public function rank(ByVal heltal as integer) as integer
 * *return rank(heltal,1,10,30000)
end function