Mensajes

Con un sueldo de 800 euros al mes aca vivis re bien .

Se, pero aca vienen sin trabajo, asi que ahorren 5 meses y se vienen, y ahi trabajan

@Raul100: No era la intencion

Ahi puse un codigo para obtener el formato y el separador, por si alguien quiere experimentar a  futuro

Espacios en blanco?... = valen o se descartan...

Sin espacios.. solo numeros y "/"

bueno yo creo que la funcion debe de tener las misma caracteristicas de la funcion isdate sino no se llamara del todo reemplazo de la funcion

Pero no puse que sea "reemplazo"

Ahi agrego un edit sobre el "/"

[5/09/2011]

Bueno, para seguir con esto de los retos y hacer que haya mas actividad competitiva y cooperativa (y no tantas dudas ) propongo hacer la alternativa a la función IsDate con la siguiente firma

Código (vb) [Seleccionar] Expandir

Function IsDate_Nombre(str As String) As Boolean
Function IsDate_Nombre_vX(str As String) As Boolean
'Ejemplos
Function IsDate_r338(str As String) As Boolean
Function IsDate_r338_v2(str As String) As Boolean
Function IsDate_7913(str As String) As Boolean


Tienen hasta el 5/09/2011 para proponer sus funciones bien pulidas y ahí las pondré a prueba  

• Para medir los tiempos se utilizará la clase CTiming utilizada en otros retos (Ver ejemplo de como se utiliza)
• Se recomiendan usar API's, otras funciones, ASM, lo que se les ocurra
• No te inhibes, mientras mas concursantes participen, mejor!
• No es estrictamente necesario que sea igual que IsDate (como paso con IsNumeric que "1..2..3" era un numero, WTF!) tan solo debe validar fechas
• Debe aceptar desde 01/01/0000 hasta 31/12/9999
• La fecha DEBE ser valida, deben fijarse si el año es bisiesto, no debe devolver TRUE en un dia 31 con un mes que solo tiene 30 dias
• Puede aceptar en distintos formatos, pero la mayoría de las pruebas las haré con "DD/MM/YYYY" para no presionar tanto
  
  
  
  • 1/1/2000
  • 01/01/2000
  • 1/1/00
  • 01/01/00
• Sobre los separadores y el formato por default tomare "DD/MM/YYYY" con "/" como separador, aunque hay rutinas para obtener el formato y el separador

Código (vb) [Seleccionar] Expandir


Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

Function GetDateSeparator() As String
   Dim strLen As Long
   GetDateSeparator = String$(5, 0)
   strLen = GetProfileString("Intl", "sDate", "", GetDateSeparator, Len(GetDateSeparator))
   GetDateSeparator = Left$(GetDateSeparator, strLen)
End Function

Function GetDateFormat() As String
   Dim strLen As Long
   GetDateFormat = String$(11, 0)
   strLen = GetProfileString("Intl", "sShortDate", "", GetDateFormat, Len(GetDateFormat))
   GetDateFormat = Left$(GetDateFormat, strLen)
End Function



Por el momento con estas fechas debe devolver true

Código [Seleccionar] Expandir


31/07/2000
30/07/2000
01/02/2000
25/05/2002
15/07/2000
28/02/2001
31/05/2001
30/12/2011
29/02/2004


Y con estas false

Código [Seleccionar] Expandir


01/00/2011 ' No existe Mes 00
31/04/2001 ' Abril no tiene 31 xD
00/12/2011 ' Dia 00, WTF
00/00/2011 ' Dia 00, Mes 00, WTF x2
01/13/2011 ' Mes 13, WTF!
30/02/2001 ' Febrero NUNCA tendra 30
29/02/2003 ' 2003 No es bisiesto :3


Suerte a todos   y repito

No te inhibes, mientras mas concursantes participen, mejor!

924 ciclos... Los cuerpos aumentan como plagas

y nadie sabe de un movil que permite crear archivos de texto exportable via bluetooth...!!!

Jamas vi eso en un movil por default. Lo mas probable es que requieras de alguna aplicacion

Buscate uno con Android

Bueno pues... ya que no hubo actividad... propongo el reto :3

el reto es validar una URI en todas sus formas :3 desde http://hola/ hasta http:8080//en.misitio.gov.ar/carpeta/archivo/1.html?aaa=eee&iii=ooo#una

Suele pasar con archivos binarios. Yo trate de incluir fuentes a un archivo res y en el mismo RES salia cambiado (desde un visor de recursos)

Trata de compilar un archivo de recursos a ver si funciona

[@raul338]

Emmm no @raul338,

Intentad con 01/00/2011

Editado

Gracias, y lei sobre eso que dejas y no entendi bien esta parte:
Debe ser la clave a mi duda pero no entiendo que quiere decir

El cliente elige un puerto al azar para conectarse al puerto del servidor.

Y no, no es necesario abrir puertos en el cliente (o sea, no para la escucha, capaz te intentaron decir que hagas una excepción al firewall)