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!!! ;-) ;-)