Fórum a semana q tem o ultimo dia #562188

12/09/2016

0

Delphi

Oi pessoal, preciso da ajuda de vcs,
como que eu faço para saber qdo estou na semana q tem o dia 30 ou 31?
(ou seja o ultimo dia do mês? na semana)

fico muito agradecido pela ajuda ,
obrigado.
Paulo Borges

Paulo Borges

Responder

Post mais votado

12/09/2016

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));

Raimundo Pereira

Raimundo Pereira
Responder

Gostei + 1

Mais Posts

12/09/2016

Paulo Borges

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
Responder

Gostei + 0

12/09/2016

Raimundo Pereira

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

Gostei + 0

12/09/2016

Raimundo Pereira

Ou 25
Responder

Gostei + 0

12/09/2016

Raimundo Pereira

Quis dizer 21 que seria a última semana
Responder

Gostei + 0

13/09/2016

Natanael Ferreira

Mais um exemplo com função:

function UltimaSemana: Boolean;
begin
  Result := False;

  if Date > EndOfTheMonth(Date) - 7 then
    Result := True;
end;


Exemplo de uso:

if UltimaSemana then
    ShowMessage('Ultima semana do mês.')
  else
    ShowMessage('Não estamos na ultima semana do mês.');
Responder

Gostei + 1

13/09/2016

Paulo Borges

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

Gostei + 0

13/09/2016

Paulo Borges

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
Responder

Gostei + 0

13/09/2016

Raimundo Pereira

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;
Responder

Gostei + 0

13/09/2016

Raimundo Pereira

var DataC: TDateTime;
Responder

Gostei + 0

13/09/2016

Paulo Borges

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

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar