[[Al González]]

Código Delphi [-]
  // Mostramos solamente los contratos registrados en los últimos 30 días
  vwContrato.DataController.Filter.AddItem (Nil, vwContratoFecha,
    foGreaterEqual, Date - 29, DateToStr (Date - 29));

vwContrato -> vista cx
vwContratoFecha -> columna a filtrar
foGreaterEqual -> comparación a realizar (">=")
Date - 29 -> valor a comparar
DateToStr (Date - 29) -> texto que representa el valor anterior para mostrar en la barra de filtros

Saludos.