Ver Mensaje Individual
  #23  
Antiguo 31-05-2011
Avatar de alej.villa
alej.villa alej.villa is offline
Miembro
NULL
 
Registrado: may 2011
Ubicación: Caracas, Venezuela
Posts: 76
Reputación: 14
alej.villa Va por buen camino
gracias oscarac por tu codigo me funciona igual que el que me paso roman
que da una diferencia de 1 dia, la resolvi sumandoselo al final asi:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var SumarDias:Integer;
Fecha :TDateTime;
begin
SumarDias := 0;
Fecha := fechaIni.Date;
While FechaFin.Date >= Fecha do
begin
  if ( DayOfWeek (Fecha) <> 1) and ( DayOfWeek (fecha) <> 7) Then
    Begin
       inc(sumarDias);
   end;
  fecha := Fecha + 1;
end;
Label1.Caption := IntToStr(SumarDias+1)
end;
aunque cuando sumo todo un año me da una diferencia de 1 dia pero no voy a tener registros de un año jeje
de todas maneras gracias por haberme ayudado y a roman tambien,
ahora bien he buscado en otros post y en google para ver como programo un botom para importar datos puede ser de excel preferiblemente a una base de datos en sql server 2005, si sabes de algun post o una pagina donde pueda guiarme me avisas por favor
y Gracias nuevamente

Última edición por ecfisa fecha: 31-05-2011 a las 18:03:35. Razón: Etiquetas [DELPHI] [/DELPHI]
Responder Con Cita