Ola!
Estou fazendo um programa pra uma factory.Preciso achar o numero de dias
entre a data que a empresa recebeu o cheque(data do dia) e a data do
vencimento.Preciso checar se a data do vencimento e sexta(dai eu adiciono 3
dias sexta,sabado e domingo pra entrar com o cheque na segunda,dai ainda
adiciono mais dois dias pra compensacao).Se nao for sexta, preciso checar se
e sabado (dai adiciono 2 dias) ou se e domingo(adiciono 1 dia).Se nao for ou
mesmo se for depois de checar esses dias eu preciso adicionar 2 dias e
depois checar de novo se depois de ter adicionado a data com todos aqueles
dias e sexta,sabado ou domingo.
Eu to fazendo isso:
var
DueDate, TodaysDate, DT : TDateTime;
i: integer;
begin
DueDate := DT1;
TodaysDate := DT2;
{You need to add 1 because daysbetween returns ifference if the time
differenceis more than 24 hrs. You can use DateSpan which gives an entire
day for even a fraction of difference}
i := DaysBetween(DueDate,TodaysDate) ;
I := I + 1;
DT := DueDate + I;
if DayOfWeek(DT) = 6 then{ Check for Friday}
i := i + 3
else
if DayOfWeek(DT) = 7 then {Check for Saturday}
i := i + 2
else
if DayOfWeek(DT) = 1 then {Check for Sunday}
i := i + 1;
i := i + 2; // {add two days}
DT := DueDate + i;
if (DayOfWeek(DT) = 1) Then
I := I + 1;
if (DayOfWeek(DT) = 7) then
I := I + 2;
Result := i;
end;
Mas as vezes funciona, as vezes nao...se eu coloco data de hoje 17/11/04 e
data do vencimento 24/11/04 o numero de dias deveria ser 10 mas ta sendo 9.
Que to fazendo de errado?
Obrigado,
Eduardo Tavares
www.EduardoTavares.com.br
--
<<<<< 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
