Foro de elhacker.net

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

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 (http://foro.elhacker.net/empty-t305069.0.html;msg1514255#msg1514255)

GRACIAS POR LEER!!!

.
Antes de nada bienvenido Juandi90! ;)

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

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! :P

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

Date = "01/01/01"

o sumar 2 dias


 Date = Date + 2

.
Ala, no sabia eso! :D

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

DoEvents! :P

diooss!!  :D

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