Código fuente de 'Formatea fecha 2.asp'

<html>
<head>
<title>Formatea fecha 2 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 9pt">
<p align="center"><b><font size="3">Formatea fecha 2</font></b></p>
En este caso lo que hemos hecho es cambiar el formato de 'dd/mm/yyyy' a 'yyyy/mm/dd' y cambiar la barra "/" 
separadora por un guión "-".
<br><br>

<%
Function FormateaFecha(FormatoAnterior,separador)

  'yyyy = año
  'm    = mes 1-12
  'd    = Día  1-31

  Fdia   = DatePart("d",FormatoAnterior)
  FMes = DatePart("m",FormatoAnterior)
  FAnyo  = DatePart("yyyy",FormatoAnterior)

  'Edit the layout of this to whatever format you want
  'example 1
  FormateaFecha = FAnyo &separador &FMes &separador &fdia   
  'example 2
  'FormateaFecha = FMes &separador &fdia   &separador &FAnyo

End Function

  Response.Write FormateaFecha("11-10-03","-")

%>

</body>
</html>