DUVIDAS AO GERAR FINANCEIRO

LUCKSSP 15/03/2011 11:04:57
#368012
Bom Dia Caros Amigos!

Estou com uma duvida e preciso mtu de ajuda tenhu um cliente que possui a forma de pagamento em 20,40 e 60 dias
preciso q o sistema reconheça qndu se por acaso a data do vencimento dessas parcelas cair num sabado ou domingo, se isso ocorrer o sistema tem q lançar dois dias a mais para pagamento.

Desde já muito Obrigado !!

VALDEMIRLUZ 15/03/2011 12:03:12
#368029
Resposta escolhida
[ô]---------------------------------------------------------------------------------------
[ô] Procedimento: Feriado
[ô] Data : 16/04/2007 11:16
[ô] Autor : Valdemir
[ô] Proposito : verificar se a data informada é um feriado
[ô]---------------------------------------------------------------------------------------
[ô]
Public Function NovaData(ByVal pData As String) As Date
[ô]//Testa de é sabado.
If Weekday(pData) = 1 then
NovaData=pData + 2
[ô]//Testa de é domingo
elseif Weekday(pData) = 7 Then
NovaData=pData + 1
else
NovaData=pData
End If
End Function

VALDEMIRLUZ 15/03/2011 12:05:32
#368030
[ô]//retorna a nova data. caso nao seja feriado, retorna a mesma data informada.
txtDataVencto.text = NovaData(txtDataVencto.text)
QUASAR23 15/03/2011 12:51:31
#368031
Assim fica bem facil pegar as datas e verificar..
Tópico encerrado , respostas não são mais permitidas