Código Delphi [-]Semanas := ADateTime1 - ADateTime2 / div 7
Semanas := ADateTime1 - ADateTime2 / div 7