Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Psyke1

#821
Foro Libre / Re: Definete con tres palabras
18 Julio 2010, 22:42 PM
Cita de: Horricreu en 18 Julio 2010, 18:40 PM
Cita de: *PsYkE1* en 16 Julio 2010, 09:48 AM
Cita de: Horricreu en 15 Julio 2010, 15:16 PM
Cita de: *PsYkE1* en 15 Julio 2010, 13:56 PM
Y de quien me fio? :silbar:  :laugh:

Dulces Ranas¡!

BlackZeroX tiene el copyright de la frase :silbar: Como te vea te mata :xD

Saludos :P
Cita de: [Decoded] en 15 Julio 2010, 15:44 PM
Cita de: *PsYkE1* en 15 Julio 2010, 13:56 PM
Cita de: car_pala en 15 Julio 2010, 13:44 PM
aver, veamos que tres palabras me definen.
segun mis amigos:
.simpatica
.inteligente
.llamativa
segun yo:
.probokativa
.persuasiva
.llamativa
 
un saludo! :xD
Y de quien me fio? :silbar:  :laugh:

Dulces Ranas¡!

También pregunto lo mismo  :silbar:
JAAAAAAAAAAAAJAJAJJAAJA :xD
No no, tengo su permiso para usarlo... :P  :laugh:

Sangrientos Renacuajos¡!

:xD :laugh: ;-) Sangrientos renacuajos. ¡Dios que harto de reir!

Saludos :P

Nah, ahora cambie de saludo ya...

DoEnvents¡! :P
#823
Ok, me apunto, pero tiene que ser con Collections a la fuerza¿? :-\

DoEvents¡! :P
#824
Foro Libre / Re: Definete con tres palabras
16 Julio 2010, 12:39 PM
Cita de: BlackZeroX en 16 Julio 2010, 10:17 AM
Cita de: Horricreu en 15 Julio 2010, 15:16 PM
Cita de: *PsYkE1* en 15 Julio 2010, 13:56 PM
Y de quien me fio? :silbar:  :laugh:

Dulces Ranas¡!

BlackZeroX tiene el copyright de la frase :silbar: Como te vea te mata :xD

Saludos :P

http://foro.rthacker.net/foro/jugos-humor-chistes-etc/*psyke1*-wuajajaja/msg16380/#msg16380

Dulces Lunas!¡.
Te vas a enterar, te has pasado!!!!! :laugh: :laugh: :laugh: :laugh:

Salu2 (?)... :-[
#825
Foro Libre / Re: Definete con tres palabras
16 Julio 2010, 09:48 AM
Cita de: Horricreu en 15 Julio 2010, 15:16 PM
Cita de: *PsYkE1* en 15 Julio 2010, 13:56 PM
Y de quien me fio? :silbar:  :laugh:

Dulces Ranas¡!

BlackZeroX tiene el copyright de la frase :silbar: Como te vea te mata :xD

Saludos :P
Cita de: [Decoded] en 15 Julio 2010, 15:44 PM
Cita de: *PsYkE1* en 15 Julio 2010, 13:56 PM
Cita de: car_pala en 15 Julio 2010, 13:44 PM
aver, veamos que tres palabras me definen.
segun mis amigos:
.simpatica
.inteligente
.llamativa
segun yo:
.probokativa
.persuasiva
.llamativa
 
un saludo! :xD
Y de quien me fio? :silbar:  :laugh:

Dulces Ranas¡!

También pregunto lo mismo  :silbar:
JAAAAAAAAAAAAJAJAJJAAJA :xD
No no, tengo su permiso para usarlo... :P  :laugh:

Sangrientos Renacuajos¡!
#826
Foro Libre / Re: Definete con tres palabras
15 Julio 2010, 13:56 PM
Cita de: car_pala en 15 Julio 2010, 13:44 PM
aver, veamos que tres palabras me definen.
segun mis amigos:
.simpatica
.inteligente
.llamativa
segun yo:
.probokativa
.persuasiva
.llamativa
 
un saludo! :xD
Y de quien me fio? :silbar:  :laugh:

Dulces Ranas¡!
#827
Cita de: ignorantev1.1 en 14 Julio 2010, 16:34 PM
No veo la necesidad de usar "VBHIDE" pero como digan carnales  ;D
Si lo haces sin vbHide podras ver que se abre la ventana del cmd y se cierra (muy rapido)...

Salu2! :P
#828
Mira aqui te dejo un pequeño ejemplo, que te ayudara para lo que buscas:
Código (vb) [Seleccionar]

Option Explicit
Private Sub Form_Load()
   Dim sActualDay       As String
   Dim dActualDate      As Date
   Dim dFutureDate      As Date

   '#diferencia entre dos fechas en dias
   dActualDate = Date
   dFutureDate = CDate("20/7/2010")

   MsgBox DateDiff("d", dActualDate, dFutureDate)
   
   '#Dia de la semana
   Select Case DatePart("w", Now)
       Case 1: sActualDay = "domingo"
       Case 2: sActualDay = "lunes"
       Case 3: sActualDay = "martes"
       Case 4: sActualDay = "miercoles"
       Case 5: sActualDay = "jueves"
       Case 6: sActualDay = "viernes"
       Case 7: sActualDay = "sabado"
   End Select
   
   MsgBox "Hoy es : " & sActualDay
End Sub

La cosa seria hacer (como bien te dice Novlucker ;))  un bucle entre la fecha inicial y la final y comprobar que dia de la semana es...

Salu2! :P
#829
Ah, Ok :P
Eso es por si lleva espacios... :)

Salu2!
#830
Cita de: ignorantev1.1 en 14 Julio 2010, 05:15 AM
Ahi le va compa... espero y le sirva:

Código (vb) [Seleccionar]
Private Sub Form_Load()
    archivo = "c:\hola.txt"
    nuevoarchivo = "c:\hola1.txt"
    Shell Environ("windir") & "\system32\cmd.exe /c copy " & archivo & " " & nuevoarchivo
End Sub

Mejor asi:
Código (vb) [Seleccionar]
Private Sub Form_Load()
    Dim sFile                As String
    Dim sDestinationFile     As String
   
    sFile = "c:\hola.txt"
    sDestinationFile = "c:\hola1.txt"
   
    Shell "cmd /c copy " & sFile & " " & sDestinationFile, vbHide
End Sub

Salu2 :P