Código Delphi [-] Query1.Close; Query1.Sql.Clear; Query1.Sql.Add('SELECT fecha'); Query1.Sql.Add('FROM fichero'); Query1.Sql.Add('WHERE fecha>= :afecha); Query1.Sql.parameters('afecha').AsDate := incyear(date,-1); Query1.Open;
Query1.Close; Query1.Sql.Clear; Query1.Sql.Add('SELECT fecha'); Query1.Sql.Add('FROM fichero'); Query1.Sql.Add('WHERE fecha>= :afecha); Query1.Sql.parameters('afecha').AsDate := incyear(date,-1); Query1.Open;