FormatDateTime em Portugu�s.

Question

Ol� colegas,Fiz um programinha que envia e-mails para algumas pessoas, no t�tulo do e-mail vai a data do compromisso por extenso: [b:82cf30aa09]FormatDateTime(�dddd,  dd �de� mmmmm �de� yyyy�, IBQComp...

Massuda · Answer

Acredito que seu programa n�o pode fazer muita coisa em rela��o ao problema.

O Delphi pega os nomes dos dias da semana e dos meses do Windows. Como o Windows est� em ingl�s, sai tudo em ingl�s.

Tenil · Answer

Eu sei que tem uma configura��o de idioma, � um comando. Que transforma o idioma do programa que est� rodando, s� n�o lembro qual � esse comando...

Ele fica independente do idioma do windows.

Tenil · Answer

Lembrei, isso � em asp.Mas deve haver alguma fun��o por a� que fa�a isso....

Tenil · Answer

Algu�m conhece alguma fun��o que fassa essa converss�o?...

Ffabiop · Answer

Pois �, vai ter que formatar a data na m�o mesmo, usando o decode date para obter o dia, o mes e o ano da data em quest�o, fazer um case para verificar o mes que est� se tratando(1..12) e retornar o nome do mesmo. Por fim a fun��o dayofweek que retorna o dia da semana(1..7) e uma nova estrutura case para testar o dia da semana e retornar o nome...

Emerson Nascimento · Answer

como disse o [b:4403f6e4ef]ffabiop[/b:4403f6e4ef], ter� de ser feito na m�o.
uma forma simples seria criar constantes com os meses do ano e dias da semana. algo assim:

const
  aMes: array[1..12] of string =
    (�Janeiro�, �Fevereiro�, �Mar�o�, �Abril�, �Maio�, �Junho�,
     �Julho�, �Agosto�, �Setembro�, �Outubro�, �Novembro�, �Dezembro�);

  aSemana: array[1..7] of string =
    (�Domingo�, �Segunda-feira�, �Ter�a-feira�, �Quarta-feira�,
     �Quinta-feira�, �Sexta-feira�, �S�bado�);

depois, voc� pode criar uma fun��o para montar o extenso da data:

function TFormX.DataExtenso(Data: TDateTime): string;
var
  dia, mes, ano: word;
begin
  decodedate( data, ano, mes, dia );
  Result := Format(��s, �d de �s de �d�,
    [aSemana[DayOfWeek(data)], dia, aMes[mes], ano]);
end;

e, para usar, algo como:

ShowMessage(DataExtenso(MonthCalendar1.Date));

Marco Salles · Answer

O delphi pega os nomes definidos nas configura�oes regionais ... Muitas dessas configura�oes s�o copiadas pelo delphi em constantes definidas na biblioteca

Redefina os valores destas cosntantes na abertura de sua aplica��o
Assim no Oncreate:
[b:66d60d5d41]para os meses :[/b:66d60d5d41]

longMonthNames[1] :=�janeiro de �
longMonthNames[2] :=�Fevereiro de �
longMonthNames[3] :=�Mar�o de �
longMonthNames[4] :=�Abril de �
etc...

[b:66d60d5d41]Para os dias da semana[/b:66d60d5d41]

longDayNames[1] :=�� domindo p� de caximbo� longdayNames[2] :=�� dia acordar com sono � longDayNames[3] :=�Tomara que passa r�pido � longDayNames[4] :=�Hoje tem Vas��o na TV � longDayNames[5] :=�Quinta nen acredito� longdayNames[6] :=�Hoje n�o fa�o mais nada � longDayNames[7] :=�N�o deveria acabar Nuca�

Tenil · Answer

Galera obrigado, vou tentar aki.Valeu mesmo....

Tenil · Answer

[quote:72c6599169=�Marco Salles�]O delphi pega os nomes definidos nas configura�oes regionais ... Muitas dessas configura�oes s�o copiadas pelo delphi em constantes definidas na biblioteca

Redefina os valores destas cosntantes na abertura de sua aplica��o
Assim no Oncreate:
[b:72c6599169]para os meses :[/b:72c6599169]

longMonthNames[1] :=�janeiro de �
longMonthNames[2] :=�Fevereiro de �
longMonthNames[3] :=�Mar�o de �
longMonthNames[4] :=�Abril de �
etc...

[b:72c6599169]Para os dias da semana[/b:72c6599169]

longDayNames[1] :=�� domindo p� de caximbo� longdayNames[2] :=�� dia acordar com sono � longDayNames[3] :=�Tomara que passa r�pido � longDayNames[4] :=�Hoje tem Vas��o na TV � longDayNames[5] :=�Quinta nen acredito� longdayNames[6] :=�Hoje n�o fa�o mais nada � longDayNames[7] :=�N�o deveria acabar Nuca�

[/quote:72c6599169]

A� Marco, funcionou fil�, obrigado.

F�rum FormatDateTime em Portugu�s. #338990