Código: Seleccionar todo

<?
/******************************
 * By Linkgl                  *
 * 12/02/10                   *
 * Formula de wikipedia       *
 * ***************************/   
if(!isset($_POST['num']))
{
?>
<form action="#" method="post">
<input type="text" name="num">
<input type="radio" name="r1" value="f">F
<input type="radio" name="r1" value="k">K
<input type="radio" name="r1" value="r">R

<input type="submit" value="enviar">
</form>
<?
}
else
{
  $num=$_POST['num'];
  switch($_POST['r1'])
  {
    case "f":
      echo $num*9/5+32;
      break;
    case "k":
      echo $num + 273.15;
      break;
    case "r":
      $op=$num + 273.15;
      echo $op*9/5;
      break;
  }
}
?>

Código: Seleccionar todo

Option Explicit

' // Autor Skyweb07
' // Referencias : Wikipedia

Enum Types
    Fahrenheit = 0
    Celsius = 1
    Kelvin = 2
    Rankine = 3
    Réaumur = 4
End Enum
 
Public Function Temperatura(hNumero As Variant, hDe As Types, hA As Types, Optional Redondear As Boolean, Optional Numerosdespuesdeldecimal As Integer) As String

    If IsNumeric(hNumero) Then
        
        Select Case hDe
            
            Case Fahrenheit:
                
                If hA = Celsius Then
                    
                    Temperatura = (hNumero - 32) / 1.8 & " °C"
                
                ElseIf hA = Rankine Then
                
                    Temperatura = hNumero + 459.67 & " R "
                
                ElseIf hA = Réaumur Then
                
                    Temperatura = (hDe - 32) / 2.25 & " °R"
                    
                End If
                
            Case Celsius:
            
                If hA = Fahrenheit Then
                
                    Temperatura = (1.8 * hNumero) + 32 & " °F"
                
                End If
            
            Case Kelvin:
                
                If hA = Fahrenheit Then
                    
                    Temperatura = ((9 / 5) * hNumero) - 459.67 & " °F"
                
                End If
                
            Case Rankine:
            
                If hA = Fahrenheit Then
                    
                    Temperatura = hNumero - 459.67 & " °F"
                    
                End If
                
            Case Réaumur:
            
                If hA = Fahrenheit Then
                    
                    Temperatura = (2.25 * hNumero) + 32 & " °F"
                
                End If
                
        End Select
        
        If Redondear = True And IsNumeric(Numerosdespuesdeldecimal) Then
            
            Temperatura = Round(Mid$(Temperatura, 1, Len(Temperatura) - 3), Numerosdespuesdeldecimal) & Right$(Temperatura, 3)
            
        End If
        
    End If
    
End Function