Een kopiewinkel hanteert de volgende tarieven:
| aantal kopies | prijs per kopie |
| 1-50 | 0.050 € |
| 51-100 | 0.045 € |
| 101-250 | 0.038 € |
| 251-500 | 0.037 € |
| 501-1000 | 0.035 € |
| 1001-5000 | 0.034 € |
| meer | 0.032 € |
We kunnen dit op verschillende manieren uitwerken. We kiezen in eerste instantie voor een functie die we in Excel rechtstreeks kunnen aanroepen:
Function prijskopies(aantal As Integer) As Single
Select Case aantal
Case 1 To 50
prijskopies = aantal * 0.05
Case 51 To 100
prijskopies = aantal * 0.045
Case 101 To 250
prijskopies = aantal * 0.038
Case 251 To 500
prijskopies = aantal * 0.037
Case 501 To 1000
prijskopies = aantal * 0.035
Case 1001 To 5000
prijskopies = aantal * 0.034
Case Is > 5000
prijskopies = aantal * 0.032
End Select
End Function