Fecha en visual basic

[Yngwie Maty]

hola, estoy programando un virus y mi duda es la siguiente:
se puede poner algun codigo para que a determinada fecha se active sierta accion, por ejemplo si quiero que el uno de abril se active MsgBox "algo es algo"

[ranefi]

Hola †Yngwie Maty†, buen día. Mira, esta es una solución rápida a tu problema:

Agrega un Timer e REPLACEa el siguiente código:

Código:

Private Sub Form_Load()
    Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
    Me.Caption = Format(Date, "dd mm yyyy")
   
    If Me.Caption = "01 04 2006" Then
        MsgBox "Pos algo es algo peladete cochinón", _
            vbCritical, "Hola mundo te va a comer ranefi"
        Timer1.Enabled = False
    End If
End Sub

Espero y esto sea lo que necesitas pelao. Nos vemos.

[Punk-Rock]

Otro metodo ke implemente en mi primer Worm en VB es este:

If Month(Now) = 3 And Day(Now) = 24 Then
MsgBox "bla bla bla bla bla",,"The Majestik Worm"

jejeje ta Xulo el nombre ehh??? The majestik Worm...jejejej eje

 

Salu2

Hendrix

[Yngwie Maty]

gracias a todos, muxas gracias.......