HourSpan

[janexa]

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???

[[basti]]

Código Delphi [-]
  tothrs.Text:=timetostr(totalin);

[janexa]

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

[[basti]]

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);

[Nomad]

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...

[janexa]

Ok.... voy a probarlo!!

thanks!!

[janexa]

si funciono nomadthanks!!