Duvuda no Interbase

[luizabreu]

estou usando dois MaskEdit ( uma para data inicial e o outro para a data final )

aqui as duas variaveis StrInicio e StrFim recebem os dados dos dois MaskEdits

StrInicio := StrToDate(Copy(MkDataInicial.Text,1,2) +'.'+ Copy(MkDataInicial.Text,4,4));

StrFim := StrToDate(Copy(MkDataFinal.Text,1,2) +'.'+ Copy(MkDataFinal.Text,4,4));

estou usando uma querie passando parametros

QryVendas.Close;

QryVendas.Params.ParamByName('IDVENDEDOR').Value := cmbVendedor.KeyValue;

QryVendas.Params.ParamByName('IDPRODUTO').Value := cmbProduto.KeyValue;

QryVendas.Params.ParamByName('DATAINICIAL').Value := StrInicio;

QryVendas.Params.ParamByName('DATAFINAL').Value := StrFim;

QryVendas.Open;

esta retornado data inválida

gostaria de saber a sintaxe correta

[camelo]

Com certeza há um erro ai, mas não sei se este codigo é em Delphi ou VB, alguns codigos sao parecidos para os dois.

Bem, se for Delphi é o seguinte:

Não precisa copiar a string, basta so converter para data. A função StrToDate já converte para uma data valida, o que voce tem que fazer é tratar o erro que vai mostrar! Faça assim:

Try
  StrInicio := StrToDate(MkDataInicial.Text);
Except Showmessage('Data inicial '+MkDataInicial.Text +' inválida!'); exit; end;
try
  StrFim := StrToDate(MkDataFinal.Text);
Except Showmessage('Data final '+MkDataFinal.Text +' inválida!'); exit; end;

Pronto, sua data esta validada, depois é so passar os parametros normamente.