capturar apenas o ano da data do computador

[vitow 0]

galera.... surgiu uma dúvida pequena, Como faço para capturar apenas a o ano corrente da data do computador???vlw

[marcio.theis 3]

Duas formas simples de se fazer:

 

ShowMessage(FormatDateTime('yyyy',Date));ShowMessage(copy(DateToStr(Date),7,4));

[vitow 0]

desta forma funcionou... ShowMessage(FormatDateTime('yyyy',Date));mas eu gostaria de adicionar esse ano a uma variavel!!... =(

[marcio.theis 3]

Bom, declare a variável e atribua, pode ser uma variável integer....

 

 

var	ano: integer;beginano:=StrToInt(FormatDateTime('yyyy',Date));

[vitow 0]

olha a besteira que eu postei..heheh foi malsvar ano:string;ano := FormatDateTime('yyyy',Date);bah!!..vlw man.....desculpa aew....

[marcio.theis 3]

tranquilo, sem stress...

precisando posta aqui... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif