Hola Andrews,

En el codigo, la primera linea es SET CENTURY ON TO 19 ROLLOVER 50. VFP necesita traducer los anos sin siglo. Esta dice que anos despues o egual de 50 es del siglo 19, y antes de 20. 1950-2049. La secunda linea cMonths=" JANFEBMAR...." es para buscar el numero del mes cuando sabemos el nombre. Los nombres empiezan a 2,5,8,11.... Este numero menos uno es 1,4,7,10. El "integer" del producto de este numbero dividido por 3 es 0,1,2,3. Este +1 es 1,2,3 ... Ahora, sabemos que JAN=1, FEB=2, MAR=3 ... entiendes?

Ahora empieza el SCAN de la mesa. Por cada recuerdo, necesitamos buscar adonde empieza los "/". nBracket1 y nBracket2 es para hacer las posiciones de los dos. Ahore, facil a saber todo como la fecha:

cThisDay = Todo a la izquerda del primer "/"
cThisYear = Todo a la derecha del segundo "/"
cThisMonth = Usamos la formula que explico aqui.










>Good moorning friend.
>How was the weekend..?
>I hope OK.
>I was working with the code that you give me the last week, it work good, has some problem, but I resolve it.
>Now, I wonder if you explain me what do each code line.?
>And wich one was your logical structur to it.