Fórum Data - Adição #200445
11/12/2003
0
Olá,
Gostaria que alguém me ajudasse a fazer esta rotina.
O programa deverá acrescentar automaticamente a um campo dbedit o valor de outro campo adicionando a operação e um número pelo outro. Simplificando:
Data_próxima = data_ultima + (periodo x periodicidade);
Periodo - Valor numérico,
Periodicidade - Pode ser DIA, SEMANA, MÊS, ANO.
Então esta rotina deve múltiplicar o periodo pela periodicidade e somar o resultado a ´data_ultima´.
Se puderem me ajudar, ou dar alguma idéia....
Abraços,
Marcos Felipe
Gostaria que alguém me ajudasse a fazer esta rotina.
O programa deverá acrescentar automaticamente a um campo dbedit o valor de outro campo adicionando a operação e um número pelo outro. Simplificando:
Data_próxima = data_ultima + (periodo x periodicidade);
Periodo - Valor numérico,
Periodicidade - Pode ser DIA, SEMANA, MÊS, ANO.
Então esta rotina deve múltiplicar o periodo pela periodicidade e somar o resultado a ´data_ultima´.
Se puderem me ajudar, ou dar alguma idéia....
Abraços,
Marcos Felipe
Nish
Curtir tópico
+ 0
Responder
Posts
11/12/2003
Aroldo Zanela
Colega,
A adição de dias a uma variável data é obtido pelo uso do operador aritimético +, ou seja, VarNovaData := VarTipoData + nDias. Por meio de constantes você pode estabelecer outros incrementos.
No entanto, se for usuário de versões mais recentes (a partir do delphi 6) pode fazer uso da unit DateUtils e utilizar as funções prontas lá existentes.
Para usuários de versões mais antigas, esta unit está disponível no package da RxLib.
A adição de dias a uma variável data é obtido pelo uso do operador aritimético +, ou seja, VarNovaData := VarTipoData + nDias. Por meio de constantes você pode estabelecer outros incrementos.
No entanto, se for usuário de versões mais recentes (a partir do delphi 6) pode fazer uso da unit DateUtils e utilizar as funções prontas lá existentes.
Para usuários de versões mais antigas, esta unit está disponível no package da RxLib.
Responder
Gostei + 0
12/12/2003
Nish
Oi,
Alguem poderia me ajudar a apenas somar um dia a uma data. Agradeço a ajuda do colega, mais gostaria de algo mais especifico, nao sou expert...
EX:
Hoje 12/12/2003 + 1 = 13/12/2003
Abraços,
Até mais
Alguem poderia me ajudar a apenas somar um dia a uma data. Agradeço a ajuda do colega, mais gostaria de algo mais especifico, nao sou expert...
EX:
Hoje 12/12/2003 + 1 = 13/12/2003
Abraços,
Até mais
Responder
Gostei + 0
13/12/2003
Aroldo Zanela
Colega,
var dAmanha: TDateTime; begin dAmanha := Date + 1; end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)