a semana q tem o ultimo dia

Em uses add DateUtils

Crie a função
function Tseu_Form.UDia: integer;

var DataC: TDateTime;
begin
DataC:= EndOfTheMonth(now);
Result:= StrToInt(Copy(DateToStr(DataC),0,2));
end;


Para Chamar a Função
ShowMessage(IntToStr(UltimoDia));

por ex:
eu tenho q criar tres parcelas,
se eu tiver na semana que tem o ultimo dia,
entao as parcelas vai ser geradas a partir do mes seguinte
seria este mes setembro,
entao ficaria assim:
01/10/16
01/11/19
01/12/19

ok? eu aguardo e muito obrigado

Então você necessariamente não precisa saber o último dia.
Basta verificar se o dia atual é maior que 20, não?

Ou 25

Quis dizer 21 que seria a última semana

Mais um exemplo com função:



Exemplo de uso:

ok deu certo, muito obrigado ai pela paciencia,
vcs ai do devmidia é show de bola
vlw

Para completar, como que eu sei que estou na semana que tem o dia 30 ou 31
(ou seja o ultimo dia na ultima semana do mês?
Só falta isso p complementar
obrigado pela paciencia,
se puder me ajudar eu agradeço, vlw

var
Dia_Atual:Integer;
UDia: integer;


function TForm1.PData(DataSecionada:tdate):integer;
begin
DataC := EndOfTheMonth(DataSecionada);
Result := StrToInt(Copy(DateToStr(DataC),0,2));
end;



procedure TForm1.Button2Click(Sender: TObject);
begin

Dia_Atual:=StrToInt(Copy(DateToStr(DateTimePicker1.Date),0,2));
UDia:=(PData(DateTimePicker1.Date));// Função que retornará o último dia do mês
// 1 semana vai até o dia 7
// 2 semana vai até o dia 14
// 3 semana vai até o dia 21

if Dia_Atual>21 then // verifico se está na terceira semana
begin
ShowMessage('Você está na última semana e o ultimo dia do mês é '+IntToStr(UDia));
end
else
begin
ShowMessage('Não é a última semana');
end;
end;

var DataC: TDateTime;

Vlw Amigão, agora sim ficou d ++++
obrigado