PC Toledo

Em xharbour, tem alguma função que faça ?
Mário

tem sim,

function FixaData(cData,cHora)
SetTime(cHora)
SetDate(cData)
Return .t.

Aconselho o colega a dar uma olhada no manual de referência do XHarbour. Se não tem tudo, pelo menos resolve muitas questões básicas. Pegue no meu site.