Código
é melhor que seu programa em Delphi verifique se
o Windows está ajustado para trabalhar com 4 dígitos
para o ano. assim seu programa pode alertar o usuário
quando o ano estiver sendo representado com apenas 2 dígitos.
A função abaixo retorna true se estiver ajustado para
4 dígitos.
}
function Is4DigitYear: Boolean;
begin
result:=(Pos('yyyy',ShortDateFormat)>0);
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009