DUVIDAS AO GERAR FINANCEIRO
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 !!
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 !!
[ô]---------------------------------------------------------------------------------------
[ô] 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
[ô] 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
[ô]//retorna a nova data. caso nao seja feriado, retorna a mesma data informada.
txtDataVencto.text = NovaData(txtDataVencto.text)
txtDataVencto.text = NovaData(txtDataVencto.text)
Assim fica bem facil pegar as datas e verificar..
Tópico encerrado , respostas não são mais permitidas