Pegar o 1 dia do mês
Pessoal, gostaria de saber como pegar a data do primeiro dia do mês.
preciso fazer uma pesquisa do mês corrente e não consigo pegar a data de inicio do mês. Alguém sabe como se faz.
ex: Hoje é 15/09/2003 preciso pegar 01/09/2003
preciso fazer uma pesquisa do mês corrente e não consigo pegar a data de inicio do mês. Alguém sabe como se faz.
ex: Hoje é 15/09/2003 preciso pegar 01/09/2003
Mineiro
Curtidas 0
Respostas
Cléber Holz
15/09/2003
Bom para você pegar o primeiro dia do mes que você deseja, é muito facil
Por exemplo:
function TForm1.Retorna_Data (Data: TDateTime): TDateTime;
var v_data: string;
begin
v_data := datetostr(Data);
v_data := ´01/´ + copy(v_data,4,2) + ´/´ + copy(v_data,7,4);
result := strtodate(v_data);
end;
Com esta função você pode resolver o seu problema.
Atenciosamente
Cléber Holz
Por exemplo:
function TForm1.Retorna_Data (Data: TDateTime): TDateTime;
var v_data: string;
begin
v_data := datetostr(Data);
v_data := ´01/´ + copy(v_data,4,2) + ´/´ + copy(v_data,7,4);
result := strtodate(v_data);
end;
Com esta função você pode resolver o seu problema.
Atenciosamente
Cléber Holz
GOSTEI 0
Hambonso
15/09/2003
Segue abaixo uma maneira simples e fácil de você obter o primeiro dia mês desejado:
function RetornarPrimeiroDiaMes (Data: TDateTime): TDateTime;
var
Dia, Mes, Ano: Word;
begin
DecodeDate (Data, Ano, Mes, Dia);
Result := EncodeDate (Ano, Mes, 1);
end;
Espero ter ajudado.
function RetornarPrimeiroDiaMes (Data: TDateTime): TDateTime;
var
Dia, Mes, Ano: Word;
begin
DecodeDate (Data, Ano, Mes, Dia);
Result := EncodeDate (Ano, Mes, 1);
end;
Espero ter ajudado.
GOSTEI 0