Código Delphi [-]var Start, Last: TTimeStamp; Horas: Cardinal; begin Start := DateTimeToTimeStamp(Now); ... Sleep(1000); // simplemente para tener una idea! ... Last := DateTimeToTimeStamp(Now); Horas := ((Last.Date - Start.Date) * 24) + ((Last.Time - Start.Time) div MSecsPerDay); end;
var Start, Last: TTimeStamp; Horas: Cardinal; begin Start := DateTimeToTimeStamp(Now); ... Sleep(1000); // simplemente para tener una idea! ... Last := DateTimeToTimeStamp(Now); Horas := ((Last.Date - Start.Date) * 24) + ((Last.Time - Start.Time) div MSecsPerDay); end;