Fórum Geração de Carnês ( O Retorno) #231838
12/05/2004
0
Olá a todos da lista.
Estou aqui de novo pertubando vocês para tentar explicar claramente o que preciso fazer.
Queria gerar um Carnê com vencimento mensal que caía num determinado dia da semana.
Por exemplo :
Escolho um dia da semana por exemplo: Escolhi (Segunda - Feira) com Mês\Ano Inicial : 01/2004 a Mês\Ano Final : 04/2004
E o resultado é este dentro da DBGrid
NºCarne - Vencimento - Valor
1 05/01/04 * 10,00
2 02/02/04 * 10,00
3 01/03/04 * 10,00
4 05/04/04 * 10,00
* Todas estas datas que estão citadas a cima cairam na Segunda - Feira
Obrigado :
Estou aqui de novo pertubando vocês para tentar explicar claramente o que preciso fazer.
Queria gerar um Carnê com vencimento mensal que caía num determinado dia da semana.
Por exemplo :
Escolho um dia da semana por exemplo: Escolhi (Segunda - Feira) com Mês\Ano Inicial : 01/2004 a Mês\Ano Final : 04/2004
E o resultado é este dentro da DBGrid
NºCarne - Vencimento - Valor
1 05/01/04 * 10,00
2 02/02/04 * 10,00
3 01/03/04 * 10,00
4 05/04/04 * 10,00
* Todas estas datas que estão citadas a cima cairam na Segunda - Feira
Obrigado :
Pellegrini
Curtir tópico
+ 0
Responder
Posts
12/05/2004
Vanius
Boa noite Fera.
Tenho uma funçao q pega o 1º dia do mes.
Esta funcao tambem ignora sabados e domingos. Vc pode adapta-la para
aceitar apenas o 1º dia de cada mes, ignorando 3,4,5,6, sabado e domingo.
Mas nao estou com o FONTE aqui.
Vc pode me mandar uma mensagem em Particular para eu enviar o código pra vc amanha de manha?
Abraços,
Vanius
vaniusg@yahoo.com.br
Tenho uma funçao q pega o 1º dia do mes.
Esta funcao tambem ignora sabados e domingos. Vc pode adapta-la para
aceitar apenas o 1º dia de cada mes, ignorando 3,4,5,6, sabado e domingo.
Mas nao estou com o FONTE aqui.
Vc pode me mandar uma mensagem em Particular para eu enviar o código pra vc amanha de manha?
Abraços,
Vanius
vaniusg@yahoo.com.br
Responder
Gostei + 0
13/05/2004
Uildenei
dah uma olhadinha na Unit DAteUtils (D6) tem um monte de funcoes que certamente poderao te dar uma grande ajuda.
Responder
Gostei + 0
13/05/2004
Melo
udilnei,
Talvez isso possa te Ajudar.
Function PrimeiroDiaUtil(Data : TDateTime) : TDateTime;
//
// Retorna data do primeiro dia Util do mes, de uma data informada
//
var Ano, Mes, Dia : word;
DiaDaSemana : Integer;
begin
DecodeDate (Data, Ano, Mes, Dia);
Dia := 1;
DiaDaSemana := DayOfWeek(Data);
if DiaDaSemana = 1 Then
begin
Dia := 2;
end
else if DiaDaSemana = 7 Then
begin
Dia := 3;
end;
Result := EncodeDate (Ano, Mes, Dia);
end;
Melo
Talvez isso possa te Ajudar.
Function PrimeiroDiaUtil(Data : TDateTime) : TDateTime;
//
// Retorna data do primeiro dia Util do mes, de uma data informada
//
var Ano, Mes, Dia : word;
DiaDaSemana : Integer;
begin
DecodeDate (Data, Ano, Mes, Dia);
Dia := 1;
DiaDaSemana := DayOfWeek(Data);
if DiaDaSemana = 1 Then
begin
Dia := 2;
end
else if DiaDaSemana = 7 Then
begin
Dia := 3;
end;
Result := EncodeDate (Ano, Mes, Dia);
end;
Melo
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)