Primeiro e Ultimo dia da semana e do mes corrente

Question

Salve pessoal do forum!!!Estou precisando saber qual a data do primeiro e ultimo dia da semana corrente ... e a mesma coisa com o mes. Vou dar um exemplo hoje é dia 25/07/2006 entao ficaria assim:Sema...

Massuda · Answer

Acho que o jeito mais fácil é converter sua data para um TDateTime; daí...

uses
  SysUtils,
...
 
var
  DT: TDateTime;
  X: TDateTime;
  D, M, A: Word;
  I: Integer;
...
  DT := ...sua...data...
 
  // extrai dia/mes/ano (talvez você já tenha isso separado)
  DecodeDate(DT, A, M, D);
 
  // primeiro dia do mês
  X := EncodeDate(A, M, 1);
 
  // ultimo dia do mês
  X := EncodeDate(A, M, MonthDays[IsLeapYear(A)][M]);
 
  // primeiro dia da semana
  I := DayOfWeek(DT);
  X := DT - (I - 1); // último domingo em relação a DT
 
  // último dia da semana
  I := DayOfWeek(DT);
  X := DT + (7 - I); // próximo sábado em relação a DT

Night_man · Answer

ae...utilize a unit dateUtilsPrimeiro dia da semana: Domingo Data de Domingo: 23/07/2006 <-- Preciso desta data StartOfTheWeek(Data)Ultimo dia da semana: Sabado Data de Sabado: 29/07/2006 <-- Preciso desta data StartOfTheWeek(Data)Primeiro dia do mes: Sabado Data de Domingo: 01/07/2006 <-- Preciso desta data StartOfTheMonth(Data)Ultimo dia do mes: Segunda Data de Sabado: 31/07/2006 <-- Preciso desta data StartOfTheMonth(Data)date eh um datetime com a data deseja, hoje por exemplo...

Joaoshi · Answer

Colega,

PrimeiroDiaDoMes.Text := DateToStr(StartOfTheMonth(date));
UltimoDiaDoMes.Text := DateToStr(endOfTheMonth(date));

DomingoDaSemana.Text := DateToStr( StartOftheWeek(date)-1 );
SabadoDaSemana.Text := DateToStr( StartOftheWeek(date)+5 );

Espero ter ajudado.

Mmoreira · Answer

BLZ PESSOAL ... ERA ISSO MESMO QUE EU ESTAVA PRECISANDO, FICO MUITO AGRADECIDO A TODOS.VALEW!!!!...

Massuda · Answer

[quote:b0af5a88d7=´NiGHT_MaN´]utilize a unit dateUtils[/quote:b0af5a88d7]Nem lembrei disso! As versões mais antigas do Delphi não tem DateUtils, mas é bem mais simples para quem tem isso à disposição....

Fórum Primeiro e Ultimo dia da semana e do mes corrente #326093