PARCELA PARA SISTEMA DE IMOBILIARIA

NEGRON 12/01/2011 16:43:54
#362084
Boa tarde Galeria!!!!

Galera estou desenvolvendo um sistema para uma imobiliaria, e estou tendo dificuldades para gerar as parcelas, alguem teria algum código exemplo para eu me basear para desenvolver o meu sistema.

Tenho que gerar parcelas para o mês atual e mês vigente

Mês atual - a pessoa paga para depois morar na residencia
Mês vigente - a pessoa mora na casa ai quando der trinta dias de morado ela paga o aluguel

Observação: as parcelas tem que ser geradas dentro de 30 dias.
Por favor gente me ajudem
ALVAROVB2009 12/01/2011 17:59:30
#362102 Resposta escolhida
Tenho um combo com a frequencia
CmbFrequencia.AddItem [Ô][Ô], 0
CmbFrequencia.AddItem [Ô]Único[Ô], 1
CmbFrequencia.AddItem [Ô]Semanal[Ô], 2
CmbFrequencia.AddItem [Ô]Quinzenal[Ô], 3
CmbFrequencia.AddItem [Ô]Mensal[Ô], 4
CmbFrequencia.AddItem [Ô]Bimestral[Ô], 5
CmbFrequencia.AddItem [Ô]Trimestral[Ô], 6
CmbFrequencia.AddItem [Ô]Semestral[Ô], 7
CmbFrequencia.AddItem [Ô]Anual[Ô], 8


Ai eu pego o que foi selecionado no combo e a primeira data do vencimento, jogo a data de vencimento em uma variável global e depois é só brincar, rsrsrs
Private Sub GerarParcelas(ByVal NParcela As Integer)
Dim Dia, Mes, Ano
Dia = Day(DataVencimento)
Mes = Month(DataVencimento)
Ano = Year(DataVencimento)
If NParcela = 1 Then
DataVencimento = CDate(mskDtVencimento.Text)
Else
Select Case CmbFrequencia.ListIndex
Case 2
DataVencimento = DateSerial(Ano, Mes, Dia + 7)
Case 3
DataVencimento = DateSerial(Ano, Mes, Dia + 15)
Case 4
DataVencimento = DateSerial(Ano, Mes + 1, Dia)
Case 5
DataVencimento = DateSerial(Ano, Mes + 2, Dia)
Case 6
DataVencimento = DateSerial(Ano, Mes + 3, Dia)
Case 7
DataVencimento = DateSerial(Ano + 1, Mes, Dia)
End Select
End If
End Sub


Espero ter te ajudado
Tópico encerrado , respostas não são mais permitidas
Voltar