Salvar data com hora no DBF

[Softwhouse]

Não estou conseguindo salvar a hora automaticamente com a função abaixo, fica tudo zerado, falta alguma coisa?

Código: Selecionar todos

Function Main()
Request DbfCdx, DbfFpt
RddSetDefault('DBFCDX')
DbSetDriver('DBFCDX')
Set Date British
aStructure:={}
Aadd(aStructure,{'Codigo', '+', 08, 0})
Aadd(aStructure,{'Data'  , '@', 08, 0})
DbCreate('Temp.dbf',aStructure, 'DBFCDX')
Use Temp
For i = 1 To 5
    DbAppend()
    Replace Data With Date()
Next
DbGoTop()
Browse()
Return Nil

Grato.

[Softwhouse]

Já descobri, no Replace tem que usar DateTime() ao invés de Date().