Ver Mensaje Individual
  #3  
Antiguo 02-07-2007
ANDRES86 ANDRES86 is offline
Miembro
 
Registrado: mar 2007
Posts: 16
Reputación: 0
ANDRES86 Va por buen camino
Muchas gracias por sus recomendaciones, el del error era yo, la propiedad date del DateTimePicker esta en 01/01/1889 no se por que razon estaba haya, esa era el motivo por el cual me aparecia ese numero tan elevado, mcuhas gracias a ustedes, ahora si dejo codigo corregido y modificado para que le puedan cambiar cuando pasa la media noche, gracias a lepe y a roman por el tiempo prestado.

Código:
uses DateUtils;
procedure TForm1.Button3Click(Sender: TObject);
var
  Salida:Integer;
begin
  Salida:=MinuteSpan(DateTimePicker1.Time),DateTimePicker2.Time);
  Label1.Caption:=IntToStr(Salida);
end;
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked=True then
  begin
  DateTimePicker1.kind:=dtkDate;
  DateTimePicker2.Kind:=dtkDate;
  end
  else
  begin
  DateTimePicker1.kind:=dtkTime;
  DateTimePicker2.Kind:=dtkTime;
  end;
bye
Responder Con Cita