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