Problema con operaciones con fechas

[Javierus]

Empezado por Angel.Matilla

Hice la prueba el otro día y devolvía valores coherentes.

Cuando la cosa está así, no ves qué falla, y tienes que correrlo en casa del cliente, yo recurro al OutputDebugString: le metes entre cada línea de código y la siguiente un ODS diciendo que estás ahí y los valores que importen. Luego en el cliente, corres p.ej. el DebugView de Microsoft (quizás como administrador), y ejecutas tu programa, verificando los valores que aparecen.

Con frecuencia suele ser alguna tontería, que al ver esa "traza" queda clara.

[Angel.Matilla]

Empezado por Javierus

Cuando la cosa está así, no ves qué falla, y tienes que correrlo en casa del cliente, yo recurro al OutputDebugString: le metes entre cada línea de código y la siguiente un ODS diciendo que estás ahí y los valores que importen. Luego en el cliente, corres p.ej. el DebugView de Microsoft (quizás como administrador), y ejecutas tu programa, verificando los valores que aparecen.

Con frecuencia suele ser alguna tontería, que al ver esa "traza" queda clara.

Gracias por la sugerencia. No conocía esa herramienta; la investigaré. Lo que más me mosquea es que sólo ocurre en un ordenador que tiene W10. en los demás, con W7, funciona sin problema. Acabo de estar viendo en remoto la pantalla del cliente (está a 140 km. de donde estoy yo) y le puse que sacara un mensaje con tres datos: Cuando caduca la clave, la fecha del sistema y los días que faltan (B.Caduca - CURRENT_DATE).

Si lo corro en mi máquina me da bien los datos (dos fechas y la diferencia entre ambas) pero en esa "maldita" máquina la fecha de caducidad me da una hora (00:00:00) y en la base de datos esa fecha está bien grabada. He estado viendo como me indicó Casimiro la configuración regional y está bien. Cada vez lo entiendo menos porque es el único sitio de los que usan fechas que ocurre esto. No sé si "forzando" a que devuelva una fecha con un CAST se puede solucionar.

[Casimiro Notevi]

A ver si tiene un firebird antiguo o uno nuevo con dialect 1 en lugar de 3

[Angel.Matilla]

Empezado por Casimiro Notevi

A ver si tiene un firebird antiguo o uno nuevo con dialect 1 en lugar de 3

No seguro. El motor es la versión 2.7; la instalé yo con TeamViewer. Y el dialecto en el arranque fuerzo que sea el 3.

[Casimiro Notevi]

Pues entonces tan sólo te queda asegurarte de los valores que retorna cada apartado.

[Angel.Matilla]

He dado un paso más. A la vista de los valores que me devolvía el query lo modifiqué así:

Código PHP:

SELECT CAST(B.Caduca AS DATE) Caduca, CAST(B.Caduca AS DATE) - CURRENT_DATE 
FROM Usuarios A, Claves B 
WHERE A.Nombre = :Nombre AND A.Nombre = B.Nombre AND B.Clave = :Clave 


y puse que me mostrara esto en pantalla:

Código PHP:

ShowMessage("Caduca: " + fMenu->Auxiliar->FieldByName("Caduca")->Value + 
            "\nFaltan: " + fMenu->Auxiliar->Fields->FieldByNumber(2)->Value); 


He comprobado que en mi máquina y una de las del usuario, que tenemos W7, el mensaje sí me devuelve un valor (por ejemplo: Caduca: 09/06/2019 Faltan: 45). Sin embargo en el otro equipo del usuario, que tiene W10, al ejecutar ese ShowMessage da un error:

Código PHP:

Could no convert variant of type (Null) into type (String) 


Cada vez estoy más convencido que el problema está asociado al sistema operativo. Y no se me ocurre como solventarlo.

[Casimiro Notevi]

A ver si no devuelven ningún dato o no hay registros con esos valores y devuelve null.