Adelantar 2 dias la fecha actual

[Juandi90]

Hola,

en primer lugar salu2 a todos, soy nuevo por aqui y estoy empezando en el tema la programacion..
vereis, el problema es que tengo creada una pequeña apliacion en visual basic 6, necesito mediante codigo poder cambiar la fecha actual a dos dias mas tarde y pasarla a un txt, he probado pero no consigo hacerlo, ¿alguien me puede echar un cable?

salu2 y gracias

[79137913]

HOLA!!!

Si pones en el buscador "FECHAS" encontras seguro.

ahi tenes un post que hice con todo tipo de tratamiento a las fechas

http://foro.elhacker.net/empty-t305069.0.html;msg1514255#msg1514255

GRACIAS POR LEER!!!

[Psyke1]

.
Antes de nada bienvenido Juandi90!

Para sumar fechas usa DateAdd() y para cambiar la fecha utilizamos api SetSystemTime().

Te dejo un ejemplo:

Código (vb) [Seleccionar] Expandir


'Vivan las ranas¡! :D

Option Explicit

Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long

Private Type SYSTEMTIME
   wYear           As Integer
   wMonth          As Integer
   wDayOfWeek      As Integer
   wDay            As Integer
   wHour           As Integer
   wMinute         As Integer
   wSecond         As Integer
   wMilliseconds   As Integer
End Type

Private Sub Form_Load()
Dim SysTime                         As SYSTEMTIME

   ' Comento algunos porque no me hacen falta... :P
   With SysTime
       .wYear = Year(Now)
       .wMonth = Month(Now)
       '.wDayOfWeek = -1
       .wDay = Day(DateAdd("y", 2, Now))
       '.wHour = 23
       '.wMinute = 26
       '.wSecond = 0
       '.wMilliseconds = 0
   End With
   
   Call SetSystemTime(SysTime)
End Sub

DoEvents!

[Karcrack]

Si no me equivoco tambien se puede establecer la fecha asignandole un valor a Date()... no estoy seguro...

Código (vb) [Seleccionar] Expandir

Date = "01/01/01"

[Dessa]

o sumar 2 dias


Date = Date + 2

[Psyke1]

.
Ala, no sabia eso!

PD: haciendo pruebas he cambiado la fecha 10 veces lo menos!! 

DoEvents!

[Juandi90]

diooss!! 

que pasada!!!, si que hay variantes... gracias a todos compis!!! esta tarde lo pruebo... nos vemos por el foro!!!