Use esta função para obter
Obtendo data do primeiro dia util do mês
Function FirstDayOfMonth (Data : TDateTime; lSabDom : Boolean) : TDateTime;
var
Ano, Mes, Dia : word;
DiaDaSemana : Integer;
begin
DecodeDate (Data, Ano, Mes, Dia);
Dia := 1;
if lSabDom Then
begin
DiaDaSemana :=
FormatDateTime('DD/HH/ HH:NN:SS', Now)???
---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED]
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux
No Access eu não sei, mas no Sybase eu faria assim:
SELECT CODIGO, NOME
FROM FUNCIONARIO
WHERE DT_DEMISSAO IS NULL;
Luciano Calenzani Simões
- Mensagem original
De: asandro1501 [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 12 de Setembro de 2008
Muito obrigado, funcionou perfeitamente.
Juliano
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Sergio Eurico
Enviada em: sexta-feira, 21 de dezembro de 2007 18:45
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Data/Hora parece ser fácil né??
Disponibilize as informações sobre a nova versão em um arquivo TXT
No cliente.. baixe o arquivo txt e compare as informações existentes!
Sucesso!
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Juliano
Silva - Yahoo
Enviada em: quarta-feira, 19 de dezembro de
arquivo
local, dai fica fácil fazer a atualização...
Juliano Silva
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Davi Eduardo Borges Wall
Enviada em: quarta-feira, 19 de dezembro de 2007 17:55
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Data/Hora
Use a função de formatação
FormatDateTime('dd/mm/ hh:nn:ss', now);
FormatDateTime('hh:nn:ss', now); - só virá a hora no formato hh:mm:ss
Espero que ajude
Rede Virtual Internet Ltda
Paulo R Vieira Junior
Desenvolvimento e Soluções de Tecnologia
* mailto:[EMAIL PROTECTED]
Alan, desculpe ser direto, mas mais é uma soma, mas seria o correto. Isto é
um erro de português muito grave.
Entendo que esta não é uma lista de português e sim de Delphi, mas puxa vida se
não conseguirmos escrever português corretamente como vamos nos comunicar então?
Eu pego vários erros de
Guaranta,
você fala salvar o literal... no EditMask ... ele ta: 99/99/:1:_
é isso?? Porque se eu nao to enganado colocando 1... ele salva o literal...
e colocano 0 ele nao salva to certo???
- Mensagem original
De: Guaranta Almeida [EMAIL PROTECTED]
Para:
Velhosincrementar dias...tu vai ter que fazer pelo menos tres funções
A ordem das funções não altera o resultado...
//incrementar dias
Function TFrmTelaPrincipal.IncDias(Data: TDate; Valor: Integer): TDate;
Var
A, M, D: Word;
Begin
DecodeDate(Data, A,M,D);
D:=D+Valor;
If D
Mais fácil ainda:
Declare a unit DateUtils na seção uses e use a função IncDay como no
exemplo:
{...}
Uses Date;
{...}
Var
Data : TDate;
Begin
Data := IncDay(Date, 7);
End;
{...}
Pronto! E nem precisou fazer muito malabarismo.
Sds,
Ricardo.
Daniel [EMAIL PROTECTED] escreveu:
Sim, esta é outra forma, mas se olhar como a função IncDay é
implementada, verá que ela faz exatamente um data_informada +
valor_informado.
[]
Andrei
Em 21/06/07, Ricardo César Cardoso[EMAIL PROTECTED] escreveu:
Mais fácil ainda:
Declare a unit DateUtils na seção uses e use a função IncDay
segue a Funcao para o ultimo dia, quanto ao primeiro dia seria dia util
Function LastDayOfMonth (Data : TDateTime; lSabDom : Boolean) : TDateTime;
var
Ano, Mes, Dia : word;
AuxData : TDateTime;
DiaDaSemana : Integer;
begin
AuxData := FirstDayOfMonth (NextMonth (Data), False) - 1;
if
-br@yahoogrupos.com.br
Subject: Re: RES: [delphi-br] Data enchendo o saco
Date: Mon, 31 Jul 2006 18:31:43 -0300 (ART)
Só uma duvida rapidinha que me ocorreu agora,
Quando se coloca na maskara com '9' - Quer dizer que
aceita apenas numeros mais tambem aceita campo vazio,
e com '0' é que é
Vc deve alterar sua máscara para 99/99/;1; que eu acredito que va
resolver seu problema
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Flavio
Enviada em: segunda-feira, 31 de julho de 2006 16:51
Para: Grupo_Delphi
Assunto: [delphi-br]
Oi pessoal,
infelizmente a sua sugestão não funcionou Eduardo Silva. Mas valew pela
ajuda... e ainda continuo com a dúvida.
Flávio
Eduardo Silva ® [EMAIL PROTECTED] escreveu:Vc deve alterar sua máscara
para 99/99/;1; que eu acredito que va
resolver seu problema
-Mensagem
Só uma duvida rapidinha que me ocorreu agora,
Quando se coloca na maskara com '9' - Quer dizer que
aceita apenas numeros mais tambem aceita campo vazio,
e com '0' é que é obrigado o uso de numeros quando se
passa pelo campo, correto. E o '1' apos o ';'
significa o que, vejo tambem opções como
Qual banco?
[As partes desta mensagem que não continham texto foram removidas]
--
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:
realmente no mysql ele arquiva anomesdia, mas com as configuracoes
regionais do Windows ele visualiza ddmm, tente alterar e veja se
funciona, aqui comigo ta funcionando sem problemas
---Mensagem original---
De: [EMAIL PROTECTED]
Data: 04/27/06 19:30:50
Para:
Gostaria de saber informação geral sobre Data Module...
Por que não colocar uma table em um form?
Alguem tem algum artigo que fale mais sobre isto?
Ola bom dia;
DataModule, é um form especialmente criado para componentes nao visuais
(acesso a dados por exemplo),
pois colocando os 'Table'
Valeu , obrigado.
Luiz Menegon
--
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]
Links do Yahoo! Grupos
* Para
Amigão!
Estou começando... Mas é vivendo, fazendo, errando, perguntando, lendo
que se aprende :)
Quanto mais você modularizar seu projeto melhor...
Estou utilizando o DBExpress.
Eu deixo no Auto-create forms apenas um DATA MODULE com um SQLConnection.
Todos os outros MODULOS eu crio
voce pode usar quantos quiser
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL
Quase todos ERP´s trabalham com esta filosofia: Cadastrar os feriados uma
vez que você tem feriado municipal, estadual, universal e federal e alguns
podem variar. Algumas religiões tem seus feriados específicos e que você vai
ter que tratar isto conforme a religião do funcionário ou do cliente.
Eu tenho uma tabela onde perto de outubro/novembro obrigo ao usuário
cadastrar todos os feriado do seg. ano.
De fato não he muito trabalho e feito apenas uma vez no ano...
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Emerson Moreno
Isso resolve
SELECT CAST('TODAY' AS DATE) DATA FROM RDB$DATABASE
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Thiago Oliveira
Enviada em: segunda-feira, 3 de outubro de 2005 08:36
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Data do
Edit1.text := DateToStr(Date);
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Moloukos
Enviada em: quarta-feira, 14 de setembro de 2005 14:40
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] DATA WINDOWS
Como faço para pegar a data do
Olá.
Para um edit:
Edit1.Text := DateToStr (Date);
Para um label:
Label1.Caption := DateToStr (Date);
Abraço
Rodrigo Tognin
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Moloukos
Enviada em: quarta-feira, 14 de setembro de 2005 14:40
Para:
olha, eu tambem teve muitos problemas trabalhando com datamodule, eu prefiro
colocar no form e acabou, dava pau toda hora;
Miguel Villacorta
4446-4100 ramal 4126
7312-5509
[EMAIL PROTECTED]
www.dpfautopecas.com.br
MSN [EMAIL PROTECTED]
---Mensagem original---
De:
não sou aquele craque em delphi mas acho que aquele USES, o formulário onde
está a rotina de gravação POST não está vendo o DATAMODULE ou o datamodule
não está se deixando ver.. Veja nos outros que estão funcionando
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL
Faz assim:
case radiogroup1.itemindex of
0 : edit1.text := FormatDateTime('dd/mm/' ,now + 7);
1 : edit1.text := FormatDateTime('dd/mm/' ,now + 15);
2 : edit1.text := FormatDateTime('dd/mm/' ,now + 30);
3 : edit1.text := FormatDateTime('dd/mm/' ,now + 90);
4 :
ou DayOf(data), MonthOf(Data), YearOf(Data)...
-Mensagem original-
De: Futura System Informática [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 22 de fevereiro de 2005 21:27
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Data e MaskEdit! (Denovo!)
Procure no Help
DecodeDate
DecodeTime
-Mensagem original-
De: Rodrigo Izquierdo da Motta [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 22 de fevereiro de 2005 10:48
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Data e MaskEdit! (Denovo!)
Ola Lista!!!
Naum consigo
Eu utilizo o seguinte:
Versao.Caption:=Versao.Caption+DateToStr(FileDateToDateTime(FileAge(Applicat
ion.ExeName)));
-Mensagem original-
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 19 de outubro de 2004 14:37
Para: [EMAIL PROTECTED]
Assunto: [delphi-br]
34 matches
Mail list logo