Mensajes

Aca va el mio a ver que tal, no se si sera lento, pero lo intente hacer con mejor funcionalidad.

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()
Debug.Print "------CORRECTAS-------"
Debug.Print isDate_edu("31/07/2000")
Debug.Print isDate_edu("30/07/2000")
Debug.Print isDate_edu("01/02/2000")
Debug.Print isDate_edu("25/05/2002")
Debug.Print isDate_edu("15/07/2000")
Debug.Print isDate_edu("28/02/2001")
Debug.Print isDate_edu("31/05/2001")
Debug.Print isDate_edu("30/12/2011")
Debug.Print isDate_edu("29/02/2004")

Debug.Print "------FALSAS----------"
Debug.Print isDate_edu("01/00/2011")
Debug.Print isDate_edu("31/04/2001")
Debug.Print isDate_edu("00/12/2011")
Debug.Print isDate_edu("00/00/2011")
Debug.Print isDate_edu("01/13/2011")
Debug.Print isDate_edu("30/02/2001")
Debug.Print isDate_edu("29/02/2003")

End Sub

Function isDate_edu(str As String) As Boolean
   
   Dim dato() As String
   Dim anno, mes, dia As String
   
str = Trim$(str)

dato = Split(str, "/")

If UBound(dato) <> 2 Then Exit Function

dia = Val(dato(0))
mes = Val(dato(1))
anno = Val(dato(2))

If anno < 1 Or mes < 1 Or dia < 1 Then Exit Function
If mes > 12 Or dia > 31 Then Exit Function

If (Not mes And 1) And (mes <> 8) And (dia > 30) Then Exit Function

If (mes = 2 And dia > 28) And Not (anno Mod 4 = 0 And Not (anno Mod 100 = 0 And anno Mod 400 <> 0)) Then Exit Function

isDate_edu = True
End Function


Acuerdense que hay una exepcion para lo de los años biciestros, pueden mirar mi codigo y despues eso que pusiste ignore.. un año mayor que 9999 no puede ser? xD

Al tener un array nota(5) le estas indicando la longitud, es decir los elementos que podra tener, entonces en ese caso nota.lenght sera igual a 5, pero que pasa.. acuerdate que el primer elemento de un array es 0, entonces para ver los 5 elemenos serian estos:

nota(0)
nota(1)
nota(2)
nota(3)
nota(4)

Ahi son los 5 no? entonces en un bucle, le indicas al bucle que vaya desde 0 hasta 4, proque sino daria error ya que nota(5) no existe, y como haces para que llegue hasta 4? pues es uno menos que la longitud, por eso se pone desde 0 to nota.lenght - 1

Ah bien ya voy agarrando la idea, pero explicame lo de una expecion al firewall, ya que eso lo tengo entendido que es para permitir al programa que reciba conexiones pero no abre el puerto que pida el programa, es decir al abrir el puerto ya seria mas peligroso talvez porque puede ser usado por cualquier programa, pero en cambio en las exepciones al firewall ( siempre pensando en el firewall de windows yo..) solo se permita para el programa que este en la lista de exepciones.

Es correcto lo que digo?

Gracias, y lei sobre eso que dejas y no entendi bien esta parte:

El cliente emplea un puerto arbitrario para comunicarse.

Debe ser la clave a mi duda pero no entiendo que quiere decir

La verdad por un tiempo tenia entendido que el que tiene que abrir los puertos SOLAMENTE es el servidor pero ahora me dicen como que tienen que ser los 2, que pasa ahi y porque? si alguien me explica bien le agradezco, es que mi duda entra porque desde un cyber con router me he conectado muchas veces a mi pc sin problemas ya que mi pc tenia abierto ese puerto pero el cyber supuestamente no asi que no se porque ahora me dicen que tienen que abrir los 2 los puertos :S

La mejor web online para jugar es Buho21 si quieres jugar me dices mi nick es Dacanada.

Acabo de jugarte sin darme cuenta hasta que perdi y vi el nick xDD me ganaste muy facil, soy pesimo, creo q no sirvo para esto jajaja

Puedes guardarlo en un archivo de texto, busca sobre manejo de archivos en vb6 y luego sabras como leerlos tambien

Jajaja dandy, se podria hacer competencias o cosas asi talvez

Recien se me dio por querer aprender ajedrez y no tengo quien quiera jugar conmigo porque mis amigos no saben y ademas me gustaria jugarlo en internet primero, alguien sabe de alguna web buena para jugar online? no contra una maquina sino contra otros jugadores conectados.

O talvez existe alguna web donde a la pc le indico el nivel, porque la verdad que aprender de alguien que ya es muy experto la veo dificil.. pienso que tengo que tener retos menores antes.

Ya me lei las reglas y todo eso, me faltaria practicarme simplemente o saber consejos buenos ( ya lei algunos buscando en google )

Pero si alguien quiere ayudarme con cualquier otra cosa para que empieze bien y aprenda rapido, le agradezco

En si lo que te podes fijar es si existe un x archivo, si existe C:\archivos de programa\xampserver.exe por ejemplo y eso lo podes hacer algo como:

Código (vb) [Seleccionar] Expandir

If Len(Dir$("C:\archivos de programa\xampserver.exe")) <> 0 then
msgbox "Existe"
else
msgbox "No existe"
end if

Algo asi era