Tratamento de data e formato...
[Desafio]
procedure TForm1.Button1Click(Sender: TObject);
var dtNow :TDateTime;
begin
ShortDateFormat:='dd/mm/yyyy';
dtNow := EncodeDate(13, 2, 01);
ShowMessage( DateToStr(dtNow) );
end;
O exemplo acima é para termos como raciocínio.
Questão 1:
Qual é o motivo que a variável "dtNow" e complementada em seu "Year" no evento "ShowMesssage" com algarismo "0013" e não como o previamente solicitado "2013" ?
procedure TForm1.Button1Click(Sender: TObject);
var dtNow :TDateTime;
begin
ShortDateFormat:='dd/mm/yyyy';
dtNow := EncodeDate(13, 2, 01);
ShowMessage( DateToStr(dtNow) );
end;
O exemplo acima é para termos como raciocínio.
Questão 1:
Qual é o motivo que a variável "dtNow" e complementada em seu "Year" no evento "ShowMesssage" com algarismo "0013" e não como o previamente solicitado "2013" ?
Thiago Pedro
Curtidas 0
Respostas
Lorival Filho
25/02/2013
Thiago,
Porque você não colocou 2013 ao invés de 13??
dtNow := EncodeDate(2013, 2, 01);
Não vejo mais porque trabalhar com duas casas decimais (independente da situação) par aano.
Porque você não colocou 2013 ao invés de 13??
dtNow := EncodeDate(2013, 2, 01);
Não vejo mais porque trabalhar com duas casas decimais (independente da situação) par aano.
GOSTEI 0
Thiago Pedro
25/02/2013
Thiago,
Porque você não colocou 2013 ao invés de 13??
dtNow := EncodeDate(2013, 2, 01);
Não vejo mais porque trabalhar com duas casas decimais (independente da situação) par aano.
Porque você não colocou 2013 ao invés de 13??
dtNow := EncodeDate(2013, 2, 01);
Não vejo mais porque trabalhar com duas casas decimais (independente da situação) par aano.
Guerreiro, como eu disse é um desafio.
O '13' foi posto de propósito, mas poderia ter sido utilizado um dado recebido de um 'Edit', mas preferi fazer assim, pra ficar ainda mais fácil a compreensão do exposto.
GOSTEI 0
José
25/02/2013
Tópico concluído.
GOSTEI 0