Funkce:
Public Function KilogramsToPounds(Kilograms As Single) As Single
'Převod
kilogramů na libry
KilogramsToPounds = Round(Kilograms / 0.4536, 4)
End Function
Public Function PoundsToKilograms(Pounds As Single) As Single
'Převod
liber na kilogramy
PoundsToKilograms = Pounds * 0.4536
End Function
|