Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » FoxPro/Visual FoxPro » CALCULO DE DÍAS POR FECHAS INGRESADOS.

FoxPro/Visual FoxPro - CALCULO DE DÍAS POR FECHAS INGRESADOS.

Volver
Nuevo Tema
<<>>
 
Vista:

CALCULO DE DÍAS POR FECHAS INGRESADOS.

Publicado por MARCK (25 intervenciones) el 26/11/2018 18:03:59
SOY NUEVO EN ESTO Y POR FAVOR QUIERO SU APOYO AMIGOS EXPERTOS, CON EL CALCULO DE FECHAS.

. BUENO TENGO UN FORMULARIO EN EL CUAL TENGO TRES TEXT.

1) FECHA_INGRESO
2) FECHA_FIN
3)RESULTADO

EN EL CUAL EN EL TEXT. 3(RESULTADO)
AL HACER CLICK EN UN BOTÓN ME CALCULE LOS MESES Y DÍAS QUE A TRANSCURRIDO
DESDE LA FECHA DE INGRESO Y FECHA DE SALIDA.

EJEMPLO.
FECHA_INGRESO : 01/01/2018
FECHA_FIN : 05/03/2018
RESULTADO : 02 MESES Y 05 DÍAS

MASOMENOS ASÍ. POR FAVOR AMIGOS EXPERTOS AGRADECERÉ MUCHO SU APOYO ..
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio Antonio
Val: 471
Plata
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

CALCULO DE DÍAS POR FECHAS INGRESADOS.

Publicado por Mauricio Antonio (1541 intervenciones) el 28/11/2018 12:12:52
Aca tienes una funcion que regresa el tiempo entre 2 fechas en años, meses y dias:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
xtiempo = Diferencia_AMD(DATE(2000,3,1), DATE())
*
FUNCTION Diferencia_AMD(tdIni, tdFin)
  LOCAL ldAux, lnAnio, lnMes, lnDia, lcRet
  *--- Fecha inicial siempre menor
  IF tdIni > tdFin
    ldAux = tdIni
    tdIni = tdFin
    tdFin = ldAux
  ENDIF
  lnAnio = YEAR(tdFin) - YEAR(tdIni)
  ldAux = GOMONTH(tdIni, 12 * lnAnio)
  *--- No cumplio el año aun
  IF ldAux > tdFin
    lnAnio = lnAnio - 1
  ENDIF
  lnMes = MONTH(tdFin) - MONTH(tdIni)
  IF lnMes < 0
    lnMes = lnMes + 12
  ENDIF
  lnDia = DAY(tdFin) - DAY(tdIni)
  IF lnDia < 0
    lnDia = lnDia + DiasDelMes(tdIni)
  ENDIF
  *--- Si el dia es mayor, no cumplio el mes
  IF (DAY(tdFin) < DAY(tdIni))
    IF lnMes = 0
      lnMes = 11
    ELSE
      lnMes = lnMes - 1
    ENDIF
  ENDIF
  lcRet = ALLTRIM(STR(lnAnio))+ " años, " + ;
    ALLTRIM(STR(lnMes))+ " meses y " + ;
    ALLTRIM(STR(lnDia))+ " días"
  RETURN lcRet
ENDFUNC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar