• PC1 (192.168.0.3)
• Nokia 5800 (192.168.0.100)
• Router neutro Encore ENRTR-104 (IP externa, 192.168.0.2) (IP interna, 192.168.1.1)
  
  • PC2 (192.168.1.2)
  • PC3 (192.168.1.3)

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

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
 

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

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