Ejemplos de portalfox

07/07/2004 - 16:25 por Anonymous | Informe spam
Que tal foxeros.

Soy un novato en VFP y he revisado el apartado de Clases
de portalfox.com y no entiendo muy bien Ej:

dBirth = DATE(1961,1,19)
oAge = Createobject("age")
oAge.CalcAge(dBirth)
? oAge.Years, oAge.Months, oAge.Days
? Gomonth(tdBirth, oAge.Years * 12 + oAge.Months) +
oAge.Days

En donde va este codigo?

DEFINE CLASS age As Relation
todo el codigo correspondiente
Enddefine

En donde va esto??

Alguien puede explicarme que es lo que se debe hacer paso
por paso?
Si ese class es un dll?

Agradezco la ayuda y sugerencias que me puedan facilitar.
 

Leer las respuestas

#1 Carlos Yohn Zubiria
07/07/2004 - 17:59 | Informe spam
En principio, todo ese código va en un prg
Crea una clase (abajo); define sus métodos etc (abajo)
Arriba ejecuta un ejemplo de cómo utilizar una instancia de la clase que ha
creado.
Simplemente escríbelo en un prg y ejecútalo. Te dirá la edad actual de
alguien que nación el 19 de enero de 1961

Saludos,
A.G.P. (Aplicaciones de Gestión y Productividad)
Las Arenas - Vizcaya - España

"Anonymous" escribió en el mensaje
news:279f101c4642e$5215f360$
Que tal foxeros.

Soy un novato en VFP y he revisado el apartado de Clases
de portalfox.com y no entiendo muy bien Ej:

dBirth = DATE(1961,1,19)
oAge = Createobject("age")
oAge.CalcAge(dBirth)
? oAge.Years, oAge.Months, oAge.Days
? Gomonth(tdBirth, oAge.Years * 12 + oAge.Months) +
oAge.Days

En donde va este codigo?

DEFINE CLASS age As Relation
todo el codigo correspondiente
Enddefine

En donde va esto??

Alguien puede explicarme que es lo que se debe hacer paso
por paso?
Si ese class es un dll?

Agradezco la ayuda y sugerencias que me puedan facilitar.

Preguntas similares