Geração de Carnês ( O Retorno)

Delphi

12/05/2004

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 :


Pellegrini

Pellegrini

Curtidas 0

Respostas

Vanius

Vanius

12/05/2004

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


GOSTEI 0
Uildenei

Uildenei

12/05/2004

dah uma olhadinha na Unit DAteUtils (D6) tem um monte de funcoes que certamente poderao te dar uma grande ajuda.


GOSTEI 0
Melo

Melo

12/05/2004

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


GOSTEI 0
POSTAR