Fórum Converção de String da Data #369513
31/03/2009
0
converto uma string em data e depois retiro o dia, ano e mês para calcular outras datas só que o ano não fica no formato correto quando converto para integer por exemplo converto 2009 para integer vira 217, utilizei as funções Strtoint e Formatdattime e o erro persiste.
Regito
Curtir tópico
+ 0Posts
31/03/2009
Lehapan
Gostei + 0
01/04/2009
Sebastiaoarm
procedure exemplo;
var
Data: TDateTime;
Ano,
Mes,
Dia: Integer;
begin
Data := Now;
Ano := YearOf(Data);
Mes := MonthOf(Data);
Dia := DayOf(Data);
{ ... }
end;Isso?
Gostei + 0
01/04/2009
Sebastiaoarm
procedure exemplo;
var
Data: TDateTime;
Ano,
Mes,
Dia: String;
begin
Data := Now;
Ano := IntToStr(YearOf(Data));
Mes := IntToStr(MonthOf(Data));
Dia := IntToStr(DayOf(Data));
{ ... }
end;Agora, sim!
Gostei + 0
01/04/2009
Pestana_
var
ano, mes, dia : word;
begin
DecodeDate(now, ano, mes, dia);
ShowMessage(IntToStr(dia)+´/´+IntToStr(mes)+´/´+IntToStr(ano));
end;
Gostei + 0
01/04/2009
Regito
var
i , bissexto, Ano, Mes, Dia: Integer;
begin
Dia:= StrToInt(Copy(DBprimeiroPagamento.Text, 1,2);
Mes:= StrToInt(Copy(DBprimeiroPagamento.Text, 4,2);
Ano:=:= StrToInt(Copy(DBprimeiroPagamento.Text, 7,4);
Entrando a data 10/04/2009, fica o seguinte resultado:
Dia = 10
Mes = 4
Ano = 217
Depois disto eu cálculo datas futuras adicionando um ao mês.
Aproveitando o tópico queria saber se tem como fazer que o mês fique 04 e não só 4.
Obrigado.
Gostei + 0
01/04/2009
Sebastiaoarm
var
Data: String;
Ano,
Mes,
Dia: Integer;
begin
Data := ´10/04/2009´;
Dia := StrToInt(Copy(Data, 1, 2));
Mes := StrToInt(Copy(Data, 4, 2));
Ano := StrToInt(Copy(Data, 7, 4));
{ ... }
ShowMessage(IntToStr(dia)+´/´+IntToStr(mes)+´/´+IntToStr(ano));
end;Certeza? Acabei de testar o código acima e deu certo.
Antes de executar o código, insira:
ShowMessage(DBprimeiroPagamento.Text);
E veja qual a data exibida.
Gostei + 0
01/04/2009
Regito
Consegui aqui movi o campo db para uma variável string e efetuei tratamento sobre esta ai deu certos.
Valew.
Gostei + 0
03/04/2009
Rodc
ShortDateFormat := ´DD/MM/YYYY´;
Gostei + 0
07/04/2009
Regito
Deu certo!!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)