Buscar Primeira data do mês e ultima
Precisa de buscar a primeira data do mes e mostrar em tedit
e buscar a ultima data do mes e mostrar em outro tedit.
e buscar a ultima data do mes e mostrar em outro tedit.
Robinhocne
Curtidas 0
Respostas
Joaoshi
02/07/2008
Colega na Unit [b:89fa4c83d2]DateUtils[/b:89fa4c83d2] tem as funções [b:89fa4c83d2]StartOfTheMonth[/b:89fa4c83d2] e [b:89fa4c83d2]EndOfTheMonth[/b:89fa4c83d2] que deve atender.
Ex.:
Espero ter ajudado.
Ex.:
procedure TForm2.Button1Click(Sender: TObject); begin edit1.Text := DateToStr(StartOfTheMonth(Date)); edit2.Text := DateToSTr(EndOfTheMonth(Date)); end;
Espero ter ajudado.
GOSTEI 0
Altingon
02/07/2008
Function FirstDayOfMonth (Data : TDateTime; lSabDom : Boolean) : TDateTime; var Ano, Mes, Dia : word; DiaDaSemana : Integer; begin DecodeDate (Data, Ano, Mes, Dia); Dia := 1; if lSabDom Then begin DiaDaSemana := DayOfWeek (Data); if DiaDaSemana = 1 Then Dia := 2 else if DiaDaSemana = 7 Then Dia := 3; end; FirstDayOfMonth := EncodeDate (Ano, Mes, Dia); end; Function LastDayOfMonth(Data : TDateTime; lSabDom : Boolean) : TDateTime; var Ano, Mes, Dia : word; AuxData : TDateTime; DiaDaSemana : Integer; begin AuxData := FirstDayOfMonth(IncMonth(Data, 1), False) - 1; if lSabDom Then begin DecodeDate (Auxdata, Ano, Mes, Dia); DiaDaSemana := DayOfWeek (AuxData); AuxData := EnCodeDate (Ano, Mes, Dia); end; LastDayOfMonth := AuxData; end; DateEdit1.Date := FirstDayOfMonth(now,true); DateEdit2.Date := LastDayOfMonth(DateEdit1.Date,true);
GOSTEI 0
Robinhocne
02/07/2008
Ok, tanto como a primeira e a segunda resposta deu certo!
muito obrigado
tópico resolvido.!
muito obrigado
tópico resolvido.!
GOSTEI 0