HourSpan
 

Hola tengo un problema con el HourSpan

CODIGO delphi:
var totalin,totalon: Variant;

totalin:=totalin+Hourspan(lun_hs.DateTime,lun_he.DateTime);
totalon:=totalon+HourSpan(lun_hsc.Time,lun_hec.Time);
totalin:=totalin-totalon;
tothrs.Text:=floattostr(totalin);

ejemplo tengo en un DateTime con 9:00 am y otro 5:30pm
y me da totalin:=8.50 y yokiero ke me de 8.30
para ke sean las horas totales sera por el float???

No funciona
 

Hola! ya lo probe y siempre pone 12:00:00 a.m. aunke le cambie los valores:confused:

Prueba a usar variables del tipo TTime:

Código Delphi [-]
var totalin: TTime;

totalin:=Hourspan(lun_hs.DateTime,lun_he.DateTime);
tothrs.Text:=timetostr(totalin);

Pruebe asi

Tiene que poner en el uses: DateUtils
Los tipos de las variables son: minutos,min,horas : Integer;

Código Delphi [-]


minutos := MinutesBetween(HoraI.Time,HoraF.Time);
min := minutos mod 60;
horas   := HoursBetween(HoraI.Time,HoraF.Time);

Espero le sirva...

Ok.... voy a probarlo!!

thanks!!;)

(y) nomad
 

si funciono nomadthanks!! ;)