Delphi - calcular diferiencia en minutos, entre dos horas

 
Vista:

calcular diferiencia en minutos, entre dos horas

Publicado por javier (17 intervenciones) el 06/11/2002 07:22:02
Hola
mi pregunta es la siguiente como puedo calcular la cantidad de minutos que han pasado entre dos horas distintas.
ejemplo:
02:48 a 03:28, la diferiencia en minutos seria de 40 MINUTOS.
si me pueden explicar mi duda en mucho se los agradecere.
de antemano les doy las gracias por la atencion prestada a mi pregunta.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:no lo digo yo......

Publicado por Ismael (136 intervenciones) el 06/11/2002 09:55:51
StrToInt(FormatDateTime('mm',DateTimePicker1.time)) -
StrToInt(FormatDateTime('mm',DateTimePicker2.time));
----------------------------------------------------
{alguna duda}
estos son los formatos:

Ejemplos:

Formato := 'dd-MMM-yyyy';{fechas}
* Formato := 'dd-MMMM-yyyy';
Formato := 'HH:mm'; {times}
* Formato := 'hh:mm tt';
Formato := 'dd-MMM-yyyy';
**Formato := 'dd-MM-yyyy HH:mm';[fechas-times}

{**}hojo--->pero tienes que hacer el cambio:
Añade 'Commctrl' en el uses de tu form

procedure TForm1.Button1Click(Sender: TObject);
var
Formato : String;
begin
{
Formato := 'dd-MM-yyyy HH:mm';
}
Formato := 'dd-MM-yyyy HH:mm';
DateTimePicker1.Perform ( DTM_SETFORMAT,0,DWORD(Formato) );
end;

___
{ }
%O-O%
[_]
_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Otra forma

Publicado por MiguelC (106 intervenciones) el 06/11/2002 12:13:34
Puedes pasar todo a minutos y trabajar matematicamente, luego volver todo a HH:MM:SS Ej.

tomando los mismos valores dados por ti:

(HHI=Hora Inicial / MMI:Minutos Inicial)
(HHF=Hora Final / MMF:Minutos Final)

HHI:=02;
MMI:=48;
HHF:=03;
MMF:=28;

TOTMIN:=((HHF*60)+MMF)-((HHI*60)+MMI);

Asi obtendras la cantidad de minutos transcurridos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar