LoadFromFile

[Eduard23]

No se si es esto Federico Firenze

Fd := DatetoStr(Primer); Primer dia de mes 01/06/2024
Fh := DatetoStr(Ultimo); Ultimo dia Del mes 30/06/2024
Niv:= 6 en este caso
cFechad := Copy(Fd,7,4)+'-'+Copy(Fd,4,2)+'-'+Copy(Fd,1,2); con esto quedaria asi 2024-06-01
cFechah := Copy(Fh,7,4)+'-'+Copy(Fh,4,2)+'-'+Copy(Fh,1,2); 2024-06-30

Me imagino debe haber algo mas elegante pero tengo poco tiempo en el mundo del delphi

[Casimiro Noteví]

Por favor, recuerda usar las etiquetas cuando pongas código. Gracias.

[Eduard23]

Empezado por Casimiro Notevi

Por favor, recuerda usar las etiquetas cuando pongas código. Gracias.

disculpen asi lo hare

[delphi.com.ar]

Empezado por Eduard23

No se si es esto Federico Firenze

Fd := DatetoStr(Primer); Primer dia de mes 01/06/2024
Fh := DatetoStr(Ultimo); Ultimo dia Del mes 30/06/2024
Niv:= 6 en este caso
cFechad := Copy(Fd,7,4)+'-'+Copy(Fd,4,2)+'-'+Copy(Fd,1,2); con esto quedaria asi 2024-06-01
cFechah := Copy(Fh,7,4)+'-'+Copy(Fh,4,2)+'-'+Copy(Fh,1,2); 2024-06-30

Me imagino debe haber algo mas elegante pero tengo poco tiempo en el mundo del delphi

No te conviene hacer eso, no tiene sentido parsear la fecha, cuando es mucho mas performante e independiente de problemas de regionalización, que envíes la fecha como fecha, o sea que envíes la variable Pimero y Último.

[Eduard23]

Muchas Gracias Federico Firenze , Seguire tu consejo

[Eduard23]

Código SQL [-]
 With QryLibroDiario do
  Begin
   Sql.Clear;
   Sql.LoadFromFile(Path);
   QryLibroDiario.Parameters.ParamByName('Primer').Value := Primer;
   QryLibroDiario.Parameters.ParamByName('Ultimo').Value := Ultimo;
   QryLibroDiario.Parameters.ParamByName('cNiv').Value := cNiv;
   Open;
  End;

Lo Puse segun tu sugerencia pero ahora primero y ultimo me toman valores enteros, convierte las fecha que le envio en valores enteros ???

[aledieb]

Hola proba con:

Código Delphi [-]
   QryLibroDiario.Parameters.ParamByName('Primer').AsDate := Primer;  //Tipo variable TDate
   QryLibroDiario.Parameters.ParamByName('Ultimo').AsDate := Ultimo;  //Tipo variable TDate