trabajar con fecha

[Avellaneda]

Iniciado por chicho28

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

Hola, no utilices la instrucción Date propia de VB, crea una variable que haga referencia a ella:

Dim MiFecha As Date
MiFecha = Date
cantidad = Val(Me.Text1.Text)
If Me.Combo1.Text = "semanal" Then
For empieza = 1 To cantidad
MiFecha = MiFecha + 7
Me.List1.AddItem empieza & " " & MiFecha & " " & Format(MiFecha, "long date")
Next empieza
End If