trabajar con fecha

[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

[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

[chicho28]

Gracias pana.... Salio todo bien

[chicho28]

disculpa me podrias ayudar....con lo mismo pero que ahora que los datos se muestren en un datagrid.

[Avellaneda]

Iniciado por chicho28

disculpa me podrias ayudar....con lo mismo pero que ahora que los datos se muestren en un datagrid.

Para mostrar los datos en un DataGrid, necesitarías un recordset y no veo que los datos los tome de ninguna tabla.

Puedes mostrarlos en otro control tipo grid (FlexGrid, ListView..) o crear un recordset desconectado para mostrar los datos en el DataGrid, pero esto último lo veo mas complicado.