PC Toledo

pessoal, tive um branco mesmo, e estou com uma dúvida em:

importo de um txt, os dados em formato texto que é 20040331, e tenho que gravar em um campo com formato data, com set date british, como escrever esta rotina..??

Agradeço.

Simples assim serve?

function convertedata(data)
data=right(data,2)+"/"+substr(data,5,2)+"/"+left(data,4)
data=ctod(data)
return data