Delphi/Lazarus: Cómo obtener la Fecha de Ayer

Además de la función "now", también hay una función llamada "yesterday" que se puede utilizar de la misma manera.

Esta función devuelve la fecha de ayer como DateTime en la que la hora se establece en 0: 00h. Aquí hay un pequeño ejemplo:

var
  s: string;
  d: TDateTime;
begin
  d := Yesterday;
  s := FormatDateTime('yyyy-mm-dd', d);
  ShowMessage(s);
end; 

Para utilizar esta función, deberá agregar la unidad DateUtils a la sección uses.

FormatDateTime('yyyy-mm-dd', now - 1);

Si desea calcular la hora exacta hace exactamente 24 horas o si desea prescindir de la función Yesterday, también puede restar 1 de Now. Debido a que TDateTime es un número decimal con los días codificados antes del separador decimal (1 corresponde a un día) y el tiempo atrasado, esto se puede hacer sin ningún problema.
02/04/2021 a las 23:20