La fecha se me da vuelta

Sun, 17 Dec 2006 23:46:51 GMT

Creo haber escuchado esto aproximadamente 100 veces (por día) en los últimos 8 años. He buscado las mil y una formas de explicar este tema y siempre aparece una nueva forma de explicarlo, dependiendo que tan compleja sea la mente del receptor, pero creo que ésta es la más simple.

~~Rompamos un paradigma que se pueden haber creado: "Los tipos de datos fecha (DATE) no tienen vida propia, por ende no se dan vuelta solos como cualquier ser humano cuando duerme".~~

Los tipos de datos Date son en definitiva un número. Donde su parte entera indica la cantidad de días transcurridos desde una fecha origen, y su parte decimal indica los segundos transcurridos para ese día. Si por ejemplo hacemos el siguiente código:

Private Sub Form_Load()
MsgBox CDbl(Now)
End Sub

Obtenemos un message box donde nos muestra la fecha de hoy, en formato de número. Tenemos que tener siempre presente que la fecha es un número que nace a raíz de un número inicial. Cuando uno ve la fecha en pantalla la puede ver en diferentes formatos dd/mm/yyyy hh:mm:ss o yyyy/mm/dd hh:mm:ss o mm/dd/yyyy hh:mm:ss etc. pero esto es sólo una cuestión de formato de presentación, sólo eso.

El problema sucede cuando se realizan conversiones implícitas ~~no deseadas~~ de tipos de datos. Visual Basic permite la conversión de tipos basándose en la configuración regional, cosa bastante odiosa por cierto. Para manejar una fecha correctamente debemos tener bien claro cómo funcionan las conversiones de tipos de datos y hacer las mismas de forma explicita.

Una conversión implícita sería como se muestra a continuación:

Private Sub Form_Load()
Dim mFecha As Date
mFecha = CDate(text1.Text) 'La "fecha" de tipo string se convierte a date
End Sub

Esto funciona siempre y cuando la configuración regional coincida con el formato en el que se está ingresando la fecha o peor aún puede que se ingrese mal el formato en el textbox y que ~~funcione~~ igual de mal, siempre y cuando no ingresemos un mes que no existe (13, 14, etc.).

La explicación de esto es muy sencilla: supongamos que la "fecha" ingresada en el textbox es "01/01/2006", cuando se quiere convertir a Date, el Runtime se pregunta cual es el mes y cual es el día !? en este caso poco importa ya que son iguales, pero la misma pregunta se hace cuando ingresamos "01/02/2006" y acá es donde se produce el problema. En base a la configuración regional decide cual es el mes el "01" ó el "02" y puede no coincidir con lo que nosotros queríamos que decidiera, porque no hicimos una conversión explicita indicándole como se debe interpretar el string que ingresamos como fecha.

Este problema sucede generalmente cuando estamos trabajando con arquitecturas distribuidas, un cliente donde se capturan los datos, un servidor de aplicaciones donde se procesan e interpretan y un repositorio donde los guardamos. Supongamos que para conectar el Cliente con el servidor de aplicaciones utilizamos un web service, lo que implica que tengamos que enviar el string (de nuestra fecha) dentro de un XML. Por otro lado supongamos que el componente (que está publicado como web servide) recibe un parámetro fecha del tipo date, yo recomiendo hacer lo siguiente:

Primero

Capturamos la fecha en formato string en el Cliente (Front End) incluyendo una leyenda de como se debe ingresar, por ejemplo dd/mm/yyyy. Luego parseamos el string y utilizando la función DateSerial devolvemos un Date. Este date debe viajar dentro de un XML (es un string), por ello recomiendo convertirlo a Double y reemplazar la coma por el punto, para evitar nuevamente malas interpretaciones de configuración regional en el servidor, veamos:

Private Sub Command1_Click()
Dim mFecha As Date
Dim varFecha As Variant
Dim mFechaInnerXml As String

'Text1.text: indica con una leyenda el Formato de Fecha esperado dd/mm/yyyy hh:mm:ss
varFecha = Split(Text1.Text, "/") 'Parseamos la fecha
If IsArray(varFecha) Then 'verificamos si no estaba vacía
   mFecha = DateSerial(varFecha(2), varFecha(1), varFecha(0)) 'Esto devuelve un Date
   mFechaInnerXml = Replace(CDbl(mFecha), ",", ".") 'Cuando tiene horas y minutos
   MsgBox mFechaInnerXml
End If
End Sub

Segundo

El web services, recibe la fecha dentro del xml y debe convertirla nuevamente a date, ya que el objeto que instancia en su cuerpo, recibe como parámetro un tipo de dato Date. Para ello deberá utilizar una función que se comporte como el Val(String) as Double de Visual Basic. Esta función recibe un String que contiene un número con "." como separador decimal y devuelve un Double. Luego deberá convertirlo a Date, ahora si utilizando el Cdate(). Entonces tenemos algo como esto:

mFecha = CDate(Val(mFechaInnerXml))

Ahora si puedo ejecutar el componente y pasarle el tipo de dato fecha para que este lo interprete:

Dim mObjeto As Componente.Clase
Set mObjeto = Server.CreateObject("Componente.Clase")
mObjeto.GetForDate (mFecha)

Espero, que esto haya podido aclarar un poco como es el funcionamiento de los tipos de datos Date, las conversiones implícitas vs. explícitas y los problemas que pueden acarrear los usos laxos de este tipo de funcionalidades.

El Iteya: Visual Basic 6

La fecha se me da vuelta