API - saber se o ano estah configurado para 4 ou 2 digitos

Top  Previous  Next

function GetAnoQuatroDigitos: Boolean;

begin

  Result := (Pos('yyyy',SHortDateFormat) > 0);

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  if GetAnoQuatroDigitos then

    ShowMessage('O ano esta configurado para quatro dígitos.')

  else

    ShowMessage('O ano não esta configurado para quatro dígitos.');

end;