Hola.
Bueno, así, de cabeza, podrías hacer lo siguiente:
-El tipo DateTime no es más que un float, la unidad es un día, y los decimales, fracciones de días. Es decir,
Dias:=Fecha2-Fecha1; debería funcionar.
-Pero claro, eso no resta los fines de semana, ¿cómo quitarlos? Ajusta primero las dos fechas, para que coincidan las dos con el mismo día de la semana que NO sea sábado o domingo. Es decir, después de hacer la resta, haz que los dos días se conviertan en lunes, o martes, o miércoles... utiliza la función
DayOfWeek o
DayOfTheWeek.
-Una vez hecho ese ajuste,
Dias:=Dias-(Fecha2-Fecha1)*2/7. Esto es, le resta 2/7 partes de días, o lo que es lo mismo, 2 días de cada semana (los findes). Ahora Fecha1 y Fecha2 son las fechas ya ajustadas.
Espero que te sirva.
Salu2
