1: Option Explicit 2: 3: ' Define global constants for the application 4: 5: ' Number base constants that match Index values 6: Global Const BASE10 = 10 7: Global Const BASE8 = 8 8: Global Const BASE16 = 16 9: 10: ' Temperature constants that match Index values 11: Global Const CELSIUS = 0 12: Global Const FARENHEIT = 1 13: 14: Function GetCel (ByVal Faren As Integer) 15: ' Assumes that a farenheit temperature 16: ' is passed. Returns that temp as celsius 17: GetCel = (Faren + 40) * (5 / 9) - 40 18: End Function 19: |