Inicio > Visual Fox Pro > victoramf > ayuda en programas extension PRG de visual.

ayuda en programas extension PRG de visual.

Experto:
Usuario: Anónimo Fecha: 13/05/2008
Valoración: (5,00 sobre 5) Categoría: Visual Fox Pro
12/05/2008
Usuario
Muy buenos dias expertos pues aqui molestandolos con el visual fox pro quisiera q me ayudaran a resolver los siguientes 3 problemas en extension prg:
1 .Elaborar un programa que le permita ingresar el nombre d un archivo con extension prg e indicar si este existe o no en el disco en uso.

2.Cree un programa que le permita ingresar una fecha y esta sea desplegada en letras.
Ejemplo: 17/03/2001 = Marzo 17 del 2001.

3.elabore un programa para ingresar la fecha actual y la fecha de nacimiento de una persona, luego debe indicar la edad de la persona,tomando en cuenta que no debe de presentar decimales.
12/05/2008
ronalmiinho, experto respondiendo en Visual Fox Pro
Experto
Procedimientos escritos de manera muy simple:

1.-
cArchivo = Space(20)
@00,00 Get cArchivo
Read
@10,00 Say Iif( File( Alltrim(  cArchivo ) ), "Si", "No" ) + " Existe."

2.-
dFecha = Date()
@00,00 Get dFecha
Read
@10,00 Say cMonth( dFecha )  + " " + AllTrim( Str( Day( dFecha ) ) ) + " del " + AllTrim( Str( Year( dFecha ) ) ) + "."


3.-
dNacimiento = Date()
@00,00 Get dNacimiento
Read
@10,00 Say "Edad: " + AllTrim( Str( Int( ( Date() - dNacimiento ) / 365.25 ) ) ) + " años."
13/05/2008
Usuario
Gracias experto me han servido mucho.
Compártelo
Más opciones
Enlaces patrocinados
Respuestas relacionadas
Inicio | Publicidad | Condiciones de uso | Declaración de privacidad | Blog
© 1999 - 2008 Todoexpertos.com. Todos los derechos reservados. Desarrollado por Avanzis.