Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

segunda-feira, 28 de janeiro de 2013

DELPHI - StrToDate Forçando Formatos

Reações: 


//Declarar Global:
  _AFormatSettings : TFormatSettings;

//no create do form principal:

  GetLocaleFormatSettings(GetUserDefaultLCID, _AFormatSettings);
  _AFormatSettings.DateSeparator := '/'; // (padrao brasileiro)
  _AFormatSettings.TimeSeparator := ':';
  _AFormatSettings.ShortDateFormat := 'dd/MM/yyyy'; // (padrao brasileiro)
  _AFormatSettings.ShortTimeFormat := 'HH:nn:ss';// (padrao brasileiro) HH = 22Hs, nn = Sempre Minuto (para não confundir com mounth - mês)

//utilizando:

DataSet.FieldByName('MinhaData').AsDateTime := StrToDate(VarMinhaData, AFormatSettings);

//Passei essa dificuldade com desenvolvimento em windows em português e servidor do cliente em ingles.
//Serve também a base para decimal separator , vide TFormatSettings em Ctrl+Click;

Fica a Dica!!

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer