Ayuda en programas extensión PRG de visual.

Muy buenos días expertos pues aquí molestándolos con el visual fox pro quisiera que me ayudaran a resolver los siguientes 3 problemas en extensión prg:
1 .Elaborar un programa que le permita ingresar el nombre de un archivo con extensión 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.

1 respuesta

Respuesta
1
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."

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Cambiar fecha mes en letras a español

Me puedes dar una ayuda, ya que cuando hago ejectable el sistema, las fechas es decir el mes en forma de texto me lo muestra e imprime en ingles, ¿Cómo hago para que me los muestre e imprima en español? Por ejemplo me muestra August o no Agosto.
1 respuesta

Fecha -Semana

A ver si me podes ayudar: Para sacar un numero de semana (1 a 52) de una fecha por lo hago con la función week. Ahora yo tengo que dado un numero de semana establecer un fecha. Seria algo así como al revés pero conla dificultad que le fecha dada la...
1 respuesta

URGENTE! Funcion cmonth()

Que onda como estas cesar! Estoy usando la función cmonth() para devolver el nombre del mes, en tiempo de diseño en un reporte el mes me lo devuelve en español como yo lo quiero, pero el problema esta cuando genero el ejecutable, ¿Me pone el nombre...
1 respuesta

Visual foxpro

Hector otra vez molestándote soy autodidacta y voy aprendiendo Visual Foxpro; ya se como funciona el ciclo FOR, mi pregunta es: por ejemplo quiero ingresar un numero y que me muestre la tabla de multiplicar del 1 al 10 de dicho numero, no se como...
1 respuesta

Problema para substraer datos de fecha

Tengo un problema para substraer datos de una fecha. La cual esta es ingresada en un formulario automáticamente o también si el usuario quisiera ingresarlo manualmente también, hay un textbox para digitar el día (28) y un combo box para seleccionar...
1 respuesta

Ayuda con un Trigger

UnySoft espero encontrar respuesta al siguiente problema que se me presenta. Tengo una aplicación que hice en visual foxpro 9 para leer información de unas tablas y pasarlas a un archivo texto, eso ya lo hice y me funciona bien, pero mi jefe me dice...
3 respuestas