Problemas com anos de 4 d�gitos no MySQL

Question

Estou tendo problemas com campos do tipo DATE no MySQLUtilizo a biblioteca Zeos para conectar ao MySQL e quando insiro com o TZMySQLQuerydados do tipo Data (com 4 d�gitos no ano) em uma tabela ele gra...

Jonhy Riper · Answer

Ai Vicente, est� fun��o eu utilizo nos meus programas, apezar de utilizar Oracle, o controle eu fa�o no programa, verifique se possui alguma utilidade pra voc�, caso contrario AT� MAIS;

*********Colocar no Form Inicial
procedure TF_Principal.FormCreate(Sender: TObject);
begin
AcertaPadraoData;
end;

*************************************
Coloque a funcao em uma Unit sem form

procedure AcertaPadraoData;

const
arrShortDayNames: array[1..7] of string[3] = (�Dom�,�Seg�,�Ter�,�Qua�, �Qui�,�Sex�,�Sab�);
arrLongDayNames: array[1..7] of string[15] = (�Domingo�,�Segunda�,�Ter�a�, �Quarta�,�Quinta�,�Sexta�, �S�bado�);
arrShortMonthNames: array[1..12] of string[3] = (�Jan�,�Fev�,�Mar�,�Abr�, �Mai�,�Jun�,�Jul�,�Ago�,�Set�,�Out�,�Nov�,�Dez�);
arrLongMonthNames: array[1..12] of string[15] = (�Janeiro�,�Fevereiro�, �Mar�o�,�Abril�,�Maio�, �Junho�,�Julho�,�Agosto�, �Setembro�,�Outubro�, �Novembro�,�Dezembro�);

var
ii: integer;
begin

ShortDateFormat := �dd/mm/yyyy�;

DateSeparator:=�/�;
DecimalSeparator := �,�;
ThousandSeparator := �.�;

for ii := 1 to 7 do
begin
ShortDayNames[ii] := arrShortDayNames[ii];
LongDayNames[ii] := arrLongDayNames[ii];
end;
for ii := 1 to 12 do
begin
ShortMonthNames[ii] := arrShortMonthNames[ii];
LongMonthNames[ii] := arrLongMonthNames[ii];
end;
end;