Ejemplos de portalfox

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.

Que mas Carlos no me da resultado los ejemplos, hice lo
que escribio escribi todo en el prg menos la parte de
arriba, pero cuando escribo oAge = Createobject("age") me
sale el siguiente error: Class definition AGE is not
found.

Espero que me puedas colaborar mas y agradezco el tiempo
que sacas para responder.

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.

.

Te dije 'todo el código'
Si la creación del objeto está en el mismo prg que la definición de clases,
funciona
En caso contrario deberás hacer:
set procedure to prueba.prg
oAge = Createobject("age")
? oAge.CalcAge(DATE(1961,1,19))


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

"anonymous" escribió en el mensaje
news:27f6901c46461$0bdaa3e0$
Que mas Carlos no me da resultado los ejemplos, hice lo
que escribio escribi todo en el prg menos la parte de
arriba, pero cuando escribo oAge = Createobject("age") me
sale el siguiente error: Class definition AGE is not
found.

Espero que me puedas colaborar mas y agradezco el tiempo
que sacas para responder.

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.

.