Problema con operaciones con fechas

[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.

[Angel.Matilla]

Registros sí hay; la base de datos ahora mismo es igual la que tengo yo que la del usuario.

[Casimiro Notevi]

Mira "por separado" qué devuelve cada apartado de la consulta y lo comparas con tu equipo y con el del cliente, algo así:

Código SQL [-]
SELECT CAST(B.Caduca AS DATE) Caduca

Código SQL [-]
select current_date from rdb$dabatase

Código SQL [-]
select CAST(B.Caduca AS DATE) - CURRENT_DATE

etc...

[Angel.Matilla]

Gracias por la sugerencia. El lunes haré la prueba.

[Angel.Matilla]

Bueno después de unos cuantos días en que tuve abandonado este tema lo retomé ayer. Lo primero que he hecho es comprobar la configuración del PC donde aparece el problema. Es esta:

Siguiendo vuestras sugerencias he modificado algo el código. Ahora está así:

fMenu->Auxiliar->Close();
fMenu->Auxiliar->SQL->Text = "SELECT CURRENT_DATE FROM RDB$DATABASE";
fMenu->Auxiliar->Open();
TDateTime dFecha = fMenu->Auxiliar->FieldByName("CURRENT_DATE")->AsDateTime;

fMenu->Auxiliar->Close();
fMenu->Auxiliar->SQL->Text = "SELECT CAST(B.Caduca AS DATE) Caduca FROM Usuarios A, Claves B WHERE A.Nombre = :Nombre AND A.Nombre = B.Nombre AND B.Clave = :Clave";
fMenu->Auxiliar->ParamByName("Nombre")->AsString = NombreUser;
fMenu->Auxiliar->ParamByName("Clave")->AsString  = ClaveUser;
fMenu->Auxiliar->Open();
int nDias = fMenu->Auxiliar->FieldByName("Caduca")->AsDateTime - dFecha;

if (nDias < 11)
{
     cAux = "Su clave caduca el " + fMenu->Auxiliar->FieldByName("Caduca")->AsDateTime.FormatString("ddddd");

     if (nDias < 1)
     {
          Mensaje(3, cAux + ".\nDebe cambiar la clave de acceso al sistema.", "Continuar");

          Application->CreateForm(__classid(TfCamCla), &fCamCla);
          fCamCla->Tag = 1;
          fCamCla->Nombre->Text = NombreUser;
          fCamCla->ShowModal();

          if (fCamCla->Tag < 0)
          {
               TipoInstalacion = fCamCla->Tag;
               delete fCamCla;
               Mensaje(1, "No se ha modificado la clave. Sistema desconectado.", "Terminar");
               Application->Terminate();
               return TipoInstalacion;
          }
          delete fCamCla;
     }
     else
          Mensaje(4, cAux, "Continuar");
}

Sin embargo a pesar de todo me sigue mostrando la fecha como una hora; es decir: en la frase cAux = "Su clave caduca el..., en vez de poner por ejemplo Su clave caduca el 30/06/2019 me pone Su clave caduca el 00:00:00. Y reitero que es el único equipo en que lo hace y además es el único con Windows 10, por eso intuyo que es un problema del sistema operativo.