FoxPro/Visual FoxPro - Introducir datos a campo datetime

Hola Foro !!

espero me puedan ayudar ...

lo que pretendo es que el usuario meta datos a un campo datetime que formato debe tener mi textbox ? tengo 2 campos uno es entrada( datetime) y el otor es salida ( datetime) y con el programito descrito abajo lo calculo

LOCAL ln, lnDia, lnHor, lnMin, lnSeg
ln = salida - entrada
lnSeg = MOD(ln,60)
ln = INT(ln/60)
lnMin = MOD(ln,60)
ln = INT(ln/60)
lnHor = MOD(ln,24)
lnDia = INT(ln/24)
? lnDia
? lnHor
? lnMin
? lnSeg
if lnDia <= 1
? allt(str(lndia))+ " Día, "+allt(str(lnHor))+" Horas, "+allt(str(lnMin))+ " Minutos, "
else
? allt(str(lndia))+ " Días, "+allt(str(lnHor))+" Horas, "+allt(str(lnMin))+ " Minutos, "
endif

Si pones en el ControlSource del text el campo DateTime no es necesario poner formato ya que toma el del campo.
Si utilizas una variable en el ControlSource del text pone en el Value lo siguiente
=ctot(" / / : : ")

Hola Enrique gracias por tu tiempo y conocimiento !!

lo resolvi de otra forma como lo describo en las linea de abajo

caracteres=dtoc(date())
fecha_tiempo=ctot(caracteres+' '+thisform.text11.value+thisform.combo2.value)

Pero tengo otro problema al calcular los dias, horas, minutos y segundos esto lo hago con el codigo siguiente.

LOCAL ln, lnDia, lnHor, lnMin, lnSeg
ln = salida - entrada
lnSeg = MOD(ln,60)
ln = INT(ln/60)
lnMin = MOD(ln,60)
ln = INT(ln/60)
lnHor = MOD(ln,24)
lnDia = INT(ln/24)
??
? lnDia
? lnHor
? lnMin
? lnSeg

Pero algunas veces lo calcula bien y otras pone un minuto de menos o pone
59 minutos 60 segundos como puedo arreglar esto ?