Re: [delphi-br] Verificar data
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
Re: [delphi-br] Verificar data
Bem, para que as configuracoes de data e hora sejam padronizadas, independentemente do SO, no seu aplicativo faça assim: No OnCreate do form principal insira o seguinte: ShortDateFormat := 'dd/mm/yy'; TwoDigitYearCenturyWindow := 50; []'s Neto - Original Message - From: Bianca Beiruth [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Saturday, December 25, 2004 4:30 AM Subject: Re: [delphi-br] Verificar data 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 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.809 / Virus Database: 551 - Release Date: 09/12/2004 -- 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
Re: [delphi-br] Verificar data
Ao inves de verificar com StrToDate, use a funcao EncodeDate, pois nela voce passa os parametros de ano, mes e dia e recebe uma data. Fernando denjabr wrote: 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 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
