CALCULANDO DATAS POR MESES

NEGRON 16/10/2009 16:28:16
#325497



Boa tarde Galera



Galera é o seguinte, to desenvolvendo um sistema para uma imobiliaria.tô quase finalizando
o sistema, mas surgui uma coisa que não tô conseguinte fazer que é a data de vencimento do
contrato.
como que eu fiz

foi assim:

criei um mask edit onde eu tenho que digitar a data inicial do contrato de aluguel
aí na frente desse campo coloquei um combobox, onde o usuário irá escolher qual é
o período que o contrato de aluguel vai durar... isso em meses.
o que eu quero que seja feito:
quando eu colocar a data inicial do contrato e escolher que o contrato durará, 24 meses
eu quero que o sistema já calcule e dê a data final do contrato.

por favor galera me ajudem



Estou utilizando o banco de Dados FIREBIRD 2.O com conexão ADO


por favor me ajudem
TECLA 16/10/2009 16:38:35
#325498 Resposta escolhida
Você precisa usar a função DateAdd.

Exemplo:
Dim Data As Date
Data = #1/1/2001#
[txt-color=#0B6138][ô]Acrescentar 24 meses a data em questão[/txt-color]
MsgBox DateAdd([Ô]m[Ô], 24, Data)
MARCELO.TREZE 16/10/2009 16:44:55
#325499
colega o segredo está no combo associado a um dateadd

então faça o seguinte preencha o combo assim

      Combo1.AddItem [Ô]01 Ano[Ô]
      Combo1.ItemData(Combo1.NewIndex) = 12 [ô] o index será de 12 meses
      Combo1.AddItem [Ô]02 Anos[Ô]
      Combo1.ItemData(Combo1.NewIndex) = 24
      Combo1.AddItem [Ô]02 anos e Meio[Ô]
      Combo1.ItemData(Combo1.NewIndex) = 30
      Combo1.AddItem [Ô]03 anos[Ô]
      Combo1.ItemData(Combo1.NewIndex) = 36


pronto com o combo preenchido

coloque no evento Click o seguite

Private Sub Combo1_Click()
DataFinal = DateAdd([Ô]m[Ô], Combo1.ItemData(Combo1.ListIndex), DataInicial)
End Sub


agora basta ajustar para seu uso
Tópico encerrado , respostas não são mais permitidas
Voltar