Dia da Semana com a primeira letra maiúscula

Delphi

17/05/2007

Olá pessoal, tudo bem? Espero que sim.

Essa dúvida pode parecer meio idiota, mas sou meio cri-cri com as coisas q faço. hehe

Eu consigo colocar uma data por extenso num StatusBar assim:

  StbBackup.Panels[2].Text := FormatDatetime(´ dddd , dd " de " mmmm "de" yyyy ´, Date);


Só que o dia da semana e o mês, aparece todo em minúsculo, e eu gostaria que as primeiras letras fossem em maísculo.

É assim:

[b:cdb2ad2f11]quinta-feira, 17 de maio de 2007[/b:cdb2ad2f11]

E gostaria que ficasse assim:

[b:cdb2ad2f11]Quinta-Feira, 17 de Maio de 2007[/b:cdb2ad2f11]

Tem como fazer ou é muita paranóia minha? :oops:

Grato pela ajuda.


Aersoftware

Aersoftware

Curtidas 0

Respostas

Marco Salles

Marco Salles

17/05/2007

Ha alguma maneiras de fazer isto....

uma , acho que é usando o copy e a função AnsiUpperCase.. para deixar a promeira letra em maiscula

outra que acho mais interresante , apesar de inicialmete ser mais trabalhoso e entender o que se passas:

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:

Para os dias da semana
Citação:

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´


[u:139ec30de0]tirado de :[/u:139ec30de0]

http://forum.devmedia.com.br/viewtopic.php?t=85177&highlight=&sid=fdd5ad5f270afe3cb1468f047d8e8fa4


GOSTEI 0
Cfernandeslima

Cfernandeslima

17/05/2007

Label1.Caption := Format( ´¬s, ¬s de ¬s de ¬s´,
[ FormatDateTime( ´DDDD´, DTimePick.Date ),
FormatDateTime( ´DD´, DTimePick.Date ),
FormatDateTime( ´mmmm´, DTimePick.Date ),
FormatDateTime( ´YYYY´, DTimePick.Date )
]
);


no evento OnCreate do Form
LongDayNames[ 01 ] :=´Domindo´;
LongDayNames[ 02 ] :=´Segunda´;
LongDayNames[ 03 ] :=´Terça´;
LongDayNames[ 04 ] :=´Quarta´;
LongDayNames[ 05 ] :=´Quinta´;
LongDayNames[ 06 ] :=´Sexta´;
LongDayNames[07 ] :=´Sábado´;;

LongMonthNames[ 01 ] :=´Janeiro´;
LongMonthNames[ 02 ] :=´fevereiro´;
LongMonthNames[ 03 ] :=´Março´;
LongMonthNames[ 04 ] :=´Abril´;
LongMonthNames[ 05 ] :=´Maio´;
LongMonthNames[ 06 ] :=´Junho´;
LongMonthNames[ 07 ] :=´Julho´;
LongMonthNames[ 08 ] :=´Agosto´;
LongMonthNames[ 09 ] :=´Setembro´;
LongMonthNames[ 10 ] :=´Outubro´;
LongMonthNames[ 11 ] :=´Novembro´;
LongMonthNames[ 12 ] :=´Dezembro´;


GOSTEI 0
Aersoftware

Aersoftware

17/05/2007

Valeu pessoal, funcionou perfeitamente. Agradeço a ajuda. Abraços. :D


GOSTEI 0
POSTAR