Cesar C. Salazar Gonzalez Master


Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
Publicado: Lun 28 Mar, 2005 5:11 am Asunto: |
|
|
| Código: | void __fastcall TForm1::Button1Click(TObject *Sender)
{
// dentro de un form, con dos Label's
// dependiendo de como las llames, funciona asi
// la Clase TTime tiene un operador - asi,
// que la funcion, te regresa, el Tiempo
// 1. primera opcion.
this->Label2->Caption = StrToTime("8:00") - StrToTime("7:55");
// 2. segund opcion
TTime Resultado = StrToTime("8:00") - StrToTime("7:55");
this->Label1->Caption = Resultado.TimeString();
// para detectar el tiempo que ha pasado dentro
// en un periodo dado..
TTime PrimerTiempo = Time(); // Tiempo Inicial
Sleep(4000);
TTime SegundoTiempo = Time(); // Tiempo final
// T-Final T-Inicial
this->Caption = SegundoTiempo - PrimerTiempo;
}
//--------------------------------------------------------------------------- |
_________________
 |
|