Oi Denis, tudo bem?
Saudações Bia! Bem vinda ao grupo!
Estou indo ao Rio amanhã. Vou para o bairro de Botafogo... Bem vinda, espero
que guanhe e nos dê experiências nesta fantástica linguagem de programação.
Denis, pelo que entendi você quer definir o formato da data que o teu
sistema usará, independente do formato que o windows estiver usando. Se for
isso, coloque o código abaixo no evento OnCreate do teu formulário
principal:
//Configura data do ambiente
LongDateFormat := 'dd/mm/yy';
ShortDateFormat := 'dd/mm/yy';
Todos os formulários criados a partir do form principal, herdarão a
configuração. Caso algum formulário não seja criado a partir do principal, é
só fazer o mesmo, só que no formulário em questão, lembrando que isto só vai
funcionar no ambiente de trabalho (.exe gerado pelo delphi). Se você usa
algum banco de dados do tipo SGBD, deverá consultar a ajuda do banco. Mas,
com certeza deve ter algum parâmetro de configuração.
//Outras configurações e variaveis de ambiente:
LongDateFormat := 'dd/mm/';
ShortDateFormat := 'dd/mm/';
TimeAMString := '';
TimePMString := '';
ShortTimeFormat := 'hh:mm';
LongTimeFormat := 'hh:mm';
LongDateFormat := 'dd/mm/yy';
ShortDateFormat := 'dd/mm/yy';
TimeAMString := 'AM';
TimePMString := 'PM';
ShortTimeFormat := 'hh:mm';
LongTimeFormat := 'hh:mm';
Best regards
Carlos Antônio.
olá, denis!
vc vai capturar essas datas dentro de querys ou no escopo do seu código?
qual o SGBD q vc usa?
EncodeDate ou DecodeDate não serviriam pra vc?
NovaData:=EncodeDate(15,2,04);
o DecodeDate é usado p/ obter o dia, mês e ano correspondente a uma data
definida
em uma variável do tipo TDate Time. nesse caso, devem ser passados como
parâmetros
um valor do tipo TDateTime, cujo valor será convertido, e três variáveis
inteiras
sem sinal, tipo Word, que representam, respectivamente, o ano, o mês e o dia
a
serem obtidos e passados por referência.
//este procedimento, por exemplo, eu uso p/ pegar a data atual do sistema,
no
escopo do meu código (essa é uma forma), mas tb pego em querys (eu uso o
oracle).
Var
SYS_DAY, SYS_MON, SYS_YEAR:Word;
A_DAY, A_MON, A_YEAR :String;
begin
DecodeDate(Date,SYS_YEAR,SYS_MON,SYS_DAY);
Edit.Text:='';
A_DAY:=IntToStr(SYS_DAY);
A_MON:=IntToStr(SYS_MON);
A_YEAR:=IntToStr(SYS_YEAR);
If SYS_DAY10
then Edit.Text:='0'+A_DAY[1]+'/'
else Edit.Text:=A_DAY+'/';
If SYS_MON10
then Edit.Text:=Edit.Text+'0'+A_MON[1]+'/'
else Edit.Text:=Edit.Text+A_MON+'/';
Edit.Text:=Edit.Text+A_YEAR[3]+A_YEAR[4]; //p/ pegar as 2 últimas
posições
end;
e ae?
abraços,
bia.
Colegas,
Como existem n tipos de confirgurações de data , preciso fazer com
que meu sistema aceite e interprete somente um tipo DD/MM/YY.
Como fazer isso, pois tenho vários procedimentos em que preciso
pegar data do servidor, e data dos arquivos que irei utilizar.
Alguem sabe como fazer isso ?
Sds
Denis
FELIZ NATAL
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM !!
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web,
acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail
para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html