PROBLEMA COM DATA

ALEXLUGON 02/10/2009 15:59:20
#324271
Boa tarde pessoal,

Estou com grade dificuldade de montar uma função para fazer o seguinte procedimento.

Eu gostaria de montar uma função que retornace os meses de acordo com o periode informado. tipo

periodo 12 meses

Outubro
Novembro
Desembro
Janeiro
ETC... até completar 12 meses

Como poderia fazer isso?

Desde ja muito obrigado
TECLA 02/10/2009 18:48:58
#324283 Resposta escolhida
Quais os PERÍODOS que você vai acrescentar no programa?
No exemplo de 12 meses, o resultado seria somente a listagem dos meses de OUTUBRO à OUTUBRO (do ano seguinte)?
ALEXLUGON 02/10/2009 18:51:16
#324284
Os periodos é aleatorios, pode ser que seja 12, 6, 24, 36 etc...
EMERSONTADEU 03/10/2009 07:31:54
#324298
Amigo está com um cheiro de trabalho de escola essa função sabia ???

Nunca ouviu falar em ?

dateadd ()
datepart()
datediff()
function (parameter) = collection ou array

Não precisa nada além disto para realizar a tarefa ... especificação de software que nem vc ta tentando empurrar para alguém tenho um monte na cx de entrada do email esperando para codificar.
Portanto não tenho como ajudar mais do que ajudei, aliás ajudei para kct resumindo mais de 100.000 para apenas 5 conceitos que precisa para resolver isto.

E se alguém se habilitar a destruir o futuro do pais codificando trabalho dos outros a troco de pontos eu de fato vo achar que existe mto troxa nesse lugar.

E se vier falando que não é trabalho de escola vou fazer perguntas técnicas até arrancar a vdd ...
TECLA 03/10/2009 09:57:57
#324299
Tente assim:

Adicione no FORM dois controles do tipo COMBOBOX e um COMMANDBUTTON (e não altere a propriedade NAME) conforme a imagem abaixo.



Copie o código abaixo e cole no editor de códigos.

Option Explicit


Private Sub Command1_Click()
[txt-color=#0B6138][ô]Listar os meses de acordo com o período selecionado[/txt-color]
Dim Periodo As Integer, Contador As Byte, Data As Date
Periodo = CInt(Trim(Left(Combo1.Text, 2)))
Data = Date
Combo2.Clear
Combo2.AddItem StrConv(Format(Data, [Ô]mmmm[Ô]), vbProperCase)
For Contador = 1 To Periodo - 1
    Data = DateAdd([Ô]m[Ô], 1, Data)
    Combo2.AddItem StrConv(Format(Data, [Ô]mmmm[Ô]), vbProperCase)
Next
Combo2.ListIndex = 0
End Sub


Private Sub Form_Load()
[txt-color=#0B6138][ô]Carregar os períodos no primeiro Combo[/txt-color]
Combo1.AddItem [Ô]6 meses[Ô]
Combo1.AddItem [Ô]12 meses[Ô]
Combo1.AddItem [Ô]24 meses[Ô]
Combo1.AddItem [Ô]36 meses[Ô]
Combo1.ListIndex = 0
End Sub
ALEXLUGON 04/10/2009 00:23:34
#324340
Muito Obrigado Tecla era isso que não estava conseguindo fazer.

Gostaria de esclarecer para o nosso amigo EMERSONTADEU que não é trabalho de escola, estou fazendo um sistema para uma imobiliária (DE UM COLEGA) e não sabia fazer isso, como muitos aqui já sabe não tenho experiência com Visual Basic, trabalho mais com PHP, MySQL, JavaScript, Flash...

E lembrando que não pedi a função pronta apenas pedi o caminho das pedras e fico muito grato ao tecla por ter montado a função.

Bom resumindo acho que não e vergonha eu falar que não sei alguma coisa, (EU NÃO TENHO EXPERIENCIA COM VB6)
TECLA 04/10/2009 09:05:05
#324344
ALEXLUGON,

Se o problema foi resolvido, favor encerrar o tópico.
Valeu!
Tópico encerrado , respostas não são mais permitidas
Voltar