Hola tengo un problemilla con esto de las fechas.
tengo esta programacion me hace lo que yo quiero. lo unico que quiero corregir es que me cambia la fecha del sistema automaticamente. y no quiero que eso pase.
***************************************
aqui eata la prg.
******************************
cantidad = Val(Me.Text6.Text)
If Me.Combo1.Text = "semanal" Then
For empieza = 1 To cantidad
Date = Date + 7
Me.List2.AddItem empieza & " " & Date & " " & Format(Date, "long date")
Next empieza
endif
*********************************
nota: lo que trato de hacer aqui es que de la fecha actual se aumente el numero de veces que yo quiero.
********************************
si pueden ayudenme lo mas pronto posible .................ok