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

.
Antes de nada bienvenido Juandi90!

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

Te dejo un ejemplo:

'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!

o sumar 2 dias


 Date = Date + 2

diooss!! 

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