Fórum ERRO = quot;No argument for format ´¬s´quot; #217522

Data2 := Date + Despesa; DataModule1.Qry_Despesa.Close; DataModule1.Qry_Despesa.SQL.Clear; DataModule1.Qry_Despesa.Sql.Text := ´SELECT DESCRICAO, DT_PAGTO, VALOR_PAGAR, LANCAMENTO´+ ´ FROM DESPESA ´+ ´ WHERE EXTRACT(DAY FROM DT_PAGTO) = :pDIADesp ´+ ´ AND EXTRACT(MONTH FROM DT_PAGTO) = :pMESDesp ´+ ´ AND EXTRACT (YEAR FROM DT_PAGTO) = :pANODesp´; DataModule1.Qry_Despesa.ParamByName(´pDiaDesp´).AsInteger := DayOf(Data2); DataModule1.Qry_Despesa.ParamByName(´pMesDesp´).AsInteger := MonthOf(Data2); DataModule1.Qry_Despesa.ParamByName(´pAnoDesp´).AsInteger := YearOf(Data2); DataModule1.Qry_Despesa.Prepare; DataModule1.Qry_Despesa.Open;