Felicidades a todos! Buen año!
Como puedo calcular la edad entre dos fechas?
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour calcular edad entre fechas
Esto es lo que tengo hasta ahora pero cuando pongo estas fechas da error
inicio: 07/11/1972
final: 06/11/2022
deberia dar 49 y da 50
inicio: 07/11/1972
final: 06/11/2022
deberia dar 49 y da 50
//////////////////////////////////////////////////////////////////////////////
// Programa: fecha.prg
// Fecha Creación: 01/08/2022
// Hora: 12:22
// Proyecto en xMate: fecha
// Lista de funciones:
// Ultima actualizacion :>: 01/08/2022 18:06
// Historial:
// >>:
// 01/08/22
//////////////////////////////////////////////////////////////////////////////
#include "fivewin.ch"
CLASS TFechas
DATA oGets
DATA vGets
METHOD new() CONSTRUCTOR
METHOD inicializar()
METHOD calcularEdad()
METHOD pantalla()
END CLASS
//------------------------------------------------------------------------------
METHOD new() CLASS TFechas
::oGets := Array( 3 )
::vGets := Array( 3 )
RETURN ( Self )
//------------------------------------------------------------------------------
METHOD inicializar() CLASS TFechas
::vGets[ 1 ] := Space( 10 )
::vGets[ 2 ] := Space( 10 )
::vGets[ 3 ] := 0
AEval( ::oGets, { | o | o:Refresh() } )
::oGets[ 3 ]:disable()
RETURN ( NIL )
//------------------------------------------------------------------------------
METHOD calcularEdad() CLASS TFechas
LOCAL nEdad
LOCAL aInicial, aFinal
IF ( Len( AllTrim( ::vGets[ 1 ] ) ) == 10 .and. Len( AllTrim( ::vGets[ 2 ] ) ) == 10 )
aInicial := HB_ATokens( ::vGets[ 1 ], "/", .F., .F. )
aFinal := HB_ATokens( ::vGets[ 2 ], "/", .F., .F. )
nEdad := Val( aFinal[ 3 ] ) - Val( aInicial[ 3 ] )
IF ( Val( aFinal[ 2 ] ) + 1 < Val( aInicial[ 2 ] ) )
nEdad --
ELSEIF ( Val( aFinal[ 2 ] ) + 1 == Val( aInicial[ 2 ] ) )
IF ( Val( aFinal[ 1 ] ) < Val( aInicial[ 1 ] ) )
nEdad --
ENDIF
ENDIF
::vGets[ 3 ] := nEdad
::oGets[ 3 ]:Refresh()
ENDIF
RETURN ( NIL )
//------------------------------------------------------------------------------
METHOD pantalla() CLASS TFechas
LOCAL oDlg
LOCAL this := Self
DEFINE DIALOG oDlg RESOURCE "DLGFECHA"
REDEFINE GET ::oGets[ 1 ] VAR ::vGets[ 1 ] ID 100 PICTURE "99/99/9999" OF oDlg
REDEFINE GET ::oGets[ 2 ] VAR ::vGets[ 2 ] ID 110 PICTURE "99/99/9999" OF oDlg
REDEFINE GET ::oGets[ 3 ] VAR ::vGets[ 3 ] ID 120 OF oDlg
//----------( )----------
::oGets[ 1 ]:bchange := { || ::oGets[ 1 ]:assign(), ::calcularEdad() }
::oGets[ 2 ]:bchange := { || ::oGets[ 2 ]:assign(), ::calcularEdad() }
ACTIVATE DIALOG oDlg CENTERED ON INIT this:inicializar()
RETURN ( NIL )
//------------------------------------------------------------------------------
FUNCTION main()
o := TFechas():new()
o:pantalla()
RETURN ( NIL )
//------------------------------------------------------------------------------
// \SAMPLES\TFECHAS.PRG
// Con xHarbour funciona Bien, Con Harbour, NO.
//////////////////////////////////////////////////////////////////////////////
// Programa: fecha.prg
// Fecha Creación: 01/08/2022
// Hora: 12:22
// Proyecto en xMate: fecha
// Lista de funciones:
// Ultima actualizacion :>: 01/08/2022 18:06
// Historial:
// >>:
// 01/08/22
//////////////////////////////////////////////////////////////////////////////
#include "fivewin.ch"
#Define CLR_LGREEN nRGB( 190, 215, 190 )
#Define CLR_SOFTYELLOW nRGB( 255, 251, 225 )
#Define CLR_PINK nRGB( 255, 128, 128 )
#Define CLR_NBLUE nRGB( 128, 128, 192 )
#Define CLR_MSPURPLE nRGB( 0, 120, 215 )
#Define CLR_MSRED nRGB( 232, 17, 35 )
#Define CLR_MSGRAY nRGB( 229, 229, 229 )
MEMVAR oApp
FUNCTION Main()
SET CENTURY ON
SET DATE BRITISH
SET EPOCH TO YEAR( DATE() ) - 30
oApp := TFechas():New( .T. )
oApp:pantalla()
RETURN NIL
CLASS TFechas
DATA oGets
DATA vGets
DATA oSalida AS OBJECT
DATA oCalcula AS OBJECT
METHOD new() CONSTRUCTOR
METHOD inicializar()
METHOD calcularEdad()
METHOD pantalla()
END CLASS
METHOD new() CLASS TFechas
::oGets := Array( 5 )
::vGets := Array( 5 )
RETURN( Self )
METHOD inicializar() CLASS TFechas
/*
inicio: 07/11/1972
final: 06/11/2022
*/
::vGets[1] := CTOD( "07/11/1972" ) // Space( 10 )
::vGets[2] := CTOD( "06/11/2022" ) // Space( 10 )
::vGets[3] := 0
// AEval( ::oGets, { | o | o:Refresh() } )
::oGets[1]:Refresh()
::oGets[2]:Refresh()
::oGets[3]:Refresh()
RETURN ( NIL )
METHOD calcularEdad() CLASS TFechas
LOCAL nEdad
LOCAL aInicial, aFinal
LOCAL FechaIni, FechaFin
FechaIni := ::vGets[ 1 ]
FechaFin := ::vGets[ 2 ]
nEdad := _Tiempo( FechaIni, FechaFin )
::vGets[ 3 ] := nEdad
::oGets[3]:VARPUT( nEdad )
::oGets[3]:Refresh()
RETURN( .T. )
FUNCTION _TIEMPO( AA, BB )
LOCAL D, M, A, DD, LA, LM, DD1, HH
STORE 0 TO A, M, D
IF ( Year( BB ) - Year( AA ) ) > 1 .OR. ( ( BB - AA ) + 1 ) > 364
DD := CToD( Left( DToC( AA ), 6 ) + Right( DToC( BB ), 4 ) )
IF DToS( DD ) > DToS( BB )
DD := CToD( Left( DToC( DD ), 6 ) + StrZero( Val( Right( DToC( DD ), 4 ) ) - 1, 4 ) )
ENDIF
A := Year( DD ) - Year( AA )
IF Year( DD ) = Year( BB ) .AND. ( Month( BB ) - Month( DD ) ) > 1
M := ( Month( BB ) - Month( DD ) ) - 1
ELSEIF Year( BB ) > Year( DD )
M := ( 12 - Month( DD ) ) + Month( BB ) - 1
ENDIF
LA := Year( DD )
LM := Month( DD ) + 1
IF LM > 12
LM := 1
LA := LA + 1
ENDIF
DD1 := CToD( "01/" + StrZero( LM, 2 ) + "/" + StrZero( LA, 4 ) ) - 1
D := Day( BB ) + ( Day( DD1 ) - Day( DD ) ) + 1
IF D >= 30
LA := Int( D / 30 )
D := D - ( LA * 30 )
M := M + 1
IF M > 12
M := 0
A := A + 1
ENDIF
ENDIF
ELSE
A := 0
IF Year( AA ) = Year( BB ) .AND. ( Month( BB ) - Month( AA ) ) > 1
M := ( Month( BB ) - Month( AA ) ) - 1
ELSEIF Year( BB ) > Year( AA )
M := ( 12 - Month( AA ) ) + Month( BB ) - 1
ENDIF
LA := Year( AA )
LM := Month( AA ) + 1
IF LM > 12
LM := 1
LA := LA + 1
ENDIF
DD1 := CToD( "01/" + StrZero( LM, 2 ) + "/" + StrZero( LA, 4 ) ) - 1
D := Day( BB ) + ( Day( DD1 ) - Day( AA ) ) + 1
IF D >= 30
LA := Int( D / 30 )
D := D - ( LA * 30 )
M := M + 1
IF M > 12
M := 0
A := A + 1
ENDIF
ENDIF
ENDIF
HH := Str( A, 3 ) + ":" + Str( M, 2 ) + ":" + Str( D, 2 )
RETURN( HH )
METHOD pantalla() CLASS TFechas
LOCAL oDlg, oFont
LOCAL this := Self
DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -14 BOLD
DEFINE DIALOG oDlg RESOURCE "DLGFECHA"
oDlg:lHelpIcon := .F.
REDEFINE GET ::oGets[1] VAR ::vGets[ 1 ] ID 100 PICTURE "@KD 99/99/9999" ;
SPINNER OF oDlg FONT oFont COLORS CLR_MSPURPLE, CLR_WHITE UPDATE
REDEFINE GET ::oGets[2] VAR ::vGets[ 2 ] ID 110 PICTURE "@KD 99/99/9999" ;
SPINNER OF oDlg FONT oFont COLORS CLR_MSPURPLE, CLR_WHITE UPDATE ;
VALID( ::calcularEdad() )
REDEFINE GET ::oGets[3] VAR ::vGets[ 3 ] ID 120 PICTURE "@R 999" ;
OF oDlg WHEN( .F. ) FONT oFont COLORS CLR_PINK, CLR_WHITE UPDATE
::oGets[3]:Disable()
::oGets[3]:lDisColors := .F. // Deactive disable color
::oGets[3]:nClrTextDis := CLR_WHITE // Color text disable status
::oGets[3]:nClrPaneDis := CLR_MSRED // Color Pane disable status
REDEFINE BUTTONBMP ::oCalcula ID 301 OF oDlg ;
ACTION( ::calcularEdad() )
REDEFINE BUTTONBMP ::oSalida ID 302 OF oDlg ;
ACTION( oDlg:End() ) CANCEL
SET FONT OF ::oCalcula TO oFont
SET FONT OF ::oSalida TO oFont
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT( this:inicializar() )
RETURN NIL
/*
// tfechas.rc
DLGFECHA DIALOG 305, 61, 203, 160
STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "TFechas - Goosfancito - xHarbour"
FONT 8, "Tahoma"
{
EDITTEXT 100, 56, 25, 90, 12, ES_CENTER | WS_BORDER | WS_VSCROLL | WS_TABSTOP
EDITTEXT 110, 56, 51, 90, 12, ES_CENTER | WS_BORDER | WS_VSCROLL | WS_TABSTOP
EDITTEXT 120, 56, 79, 90, 12, ES_CENTER | WS_BORDER | WS_TABSTOP
PUSHBUTTON "&Calcula", 301, 33, 127, 60, 16
PUSHBUTTON "&Salida", 302, 96, 127, 60, 16
}
*/
// FIN / ENDRegards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Goos
Prueba esta función y nos muestras el resultado.
Saludos
Prueba esta función y nos muestras el resultado.
/*
Edad : Función para determinar la edad en Años, meses y dias
Recibe : La fecha de nacimiento
Parámetros : dFecNac, la fecha de nacimiento
Devuelve : Arreglo de 3 elementos con el año, meses y dias cumplidos
Fecha : 02/Jul/2004
Autor : Armando Estrada Bucio
Compañia : SOI, s.a. de c.v.
*/
FUNCTION Edad(dFecNac,dFecHoy,cAplicacion)
LOCAL anEdad := {0,0,0}
LOCAL nAmos := 0
LOCAL nMeses := 0
LOCAL nDias := 0
LOCAL dFecAct := CTOD(STR(DAY(dFecNac),2,0)+"/"+;
STR(MONTH(dFecNac),2,0)+"/"+STR(YEAR(dFecHoy),4,0))
LOCAL dFecAnt := CTOD(STR(DAY(dFecNac),2,0)+"/"+;
STR(MONTH(dFecNac),2,0)+"/"+STR(YEAR(dFecHoy)-1,4,0))
LOCAL anDiasN := {031,059,090,120,151,181,212,243,273,304,334,365}
LOCAL anDiasB := {031,060,091,121,152,182,213,244,274,305,335,366}
IF dFecNac > dFecHoy
MsgInfo("Según tu fecha de nacimiento, no has nacido aún !",cAplicacion)
RETURN(anEdad)
ENDIF
IF dFecNac == dFecHoy
RETURN(anEdad)
ENDIF
nAmos := YEAR(dFecHoy) - YEAR(dFecNac)
DO CASE
CASE dFecAct > dFecHoy
nAmos--
nDias := dFecHoy - dFecAnt
DO CASE
CASE IsLeap(YEAR(dFecHoy))
FOR nMeses := 1 TO 12
IF anDiasB[nMeses] > nDias
nMeses--
EXIT
ENDIF
NEXT
IF nMeses > 0
nDias -= anDiasB[nMeses]
ENDIF
OTHERWISE
FOR nMeses := 1 TO 12
IF anDiasN[nMeses] > nDias
EXIT
ENDIF
NEXT
nMeses--
IF nMeses > 0
nDias -= anDiasN[nMeses]
ENDIF
ENDCASE
CASE dFecAct == dFecHoy
CASE dFecAct < dFecHoy
nDias := dFecHoy - dFecAct
DO CASE
CASE IsLeap(YEAR(dFecHoy))
FOR nMeses := 1 TO 12
IF anDiasB[nMeses] > nDias
nMeses--
EXIT
ENDIF
NEXT
IF nMeses > 0
nDias -= anDiasB[nMeses]
ENDIF
OTHERWISE
FOR nMeses := 1 TO 12
IF anDiasN[nMeses] > nDias
nMeses--
EXIT
ENDIF
NEXT
IF nMeses > 0
nDias -= anDiasN[nMeses]
ENDIF
ENDCASE
ENDCASE
anEdad[1] := nAmos
anEdad[2] := nMeses
anEdad[3] := nDias
RETURN(anEdad)Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Ahora funciona con HABROUR y xHARBOUR perfecto.
Regards, saludos.
// \SAMPLES\TFECHAS2.PRG
// Con xHarbour funciona Bien, y ahora Con Harbour Tambien.
// Harbour es un poco complicado para nosotros aun. Jajaja.
//////////////////////////////////////////////////////////////////////////////
// Programa: fecha.prg
// Fecha Creación: 01/08/2022
// Hora: 12:22
// Proyecto en xMate: fecha
// Lista de funciones:
// Ultima actualizacion :>: 01/08/2022 18:06
// Historial:
// >>:
// 01/08/22
//////////////////////////////////////////////////////////////////////////////
#include "fivewin.ch"
#Define CLR_LGREEN nRGB( 190, 215, 190 )
#Define CLR_SOFTYELLOW nRGB( 255, 251, 225 )
#Define CLR_PINK nRGB( 255, 128, 128 )
#Define CLR_NBLUE nRGB( 128, 128, 192 )
#Define CLR_MSPURPLE nRGB( 0, 120, 215 )
#Define CLR_MSRED nRGB( 232, 17, 35 )
#Define CLR_MSGRAY nRGB( 229, 229, 229 )
MEMVAR oApp
FUNCTION Main()
SET CENTURY ON
SET DATE BRITISH
SET EPOCH TO YEAR( DATE() ) - 30
oApp := TFechas():New()
oApp:Pantalla()
FreeResources()
Release All
SysRefresh()
HB_GCALL( .T. ) // xHarbour
CLEAR MEMORY
PostQuitMessage( 0 )
RETURN NIL
CLASS TFechas
DATA oGets AS OBJECT
DATA vGets INIT ""
DATA oSalida AS OBJECT
DATA oCalcula AS OBJECT
METHOD New() CONSTRUCTOR
METHOD CalcularEdad()
METHOD Pantalla()
END CLASS
METHOD New() CLASS TFechas
::oGets := Array( 5 )
::vGets := Array( 5 )
RETURN( Self )
METHOD CalcularEdad() CLASS TFechas
LOCAL nEdad
LOCAL aInicial, aFinal
LOCAL FechaIni, FechaFin
FechaIni := ::vGets[ 1 ]
FechaFin := ::vGets[ 2 ]
nEdad := _Tiempo( FechaIni, FechaFin )
::vGets[ 3 ] := nEdad
::oGets[3]:VARPUT( nEdad )
::oGets[3]:Refresh()
RETURN( .T. )
FUNCTION _TIEMPO( AA, BB )
LOCAL D, M, A, DD, LA, LM, DD1, HH
STORE 0 TO A, M, D
IF ( Year( BB ) - Year( AA ) ) > 1 .OR. ( ( BB - AA ) + 1 ) > 364
DD := CToD( Left( DToC( AA ), 6 ) + Right( DToC( BB ), 4 ) )
IF DToS( DD ) > DToS( BB )
DD := CToD( Left( DToC( DD ), 6 ) + StrZero( Val( Right( DToC( DD ), 4 ) ) - 1, 4 ) )
ENDIF
A := Year( DD ) - Year( AA )
IF Year( DD ) = Year( BB ) .AND. ( Month( BB ) - Month( DD ) ) > 1
M := ( Month( BB ) - Month( DD ) ) - 1
ELSEIF Year( BB ) > Year( DD )
M := ( 12 - Month( DD ) ) + Month( BB ) - 1
ENDIF
LA := Year( DD )
LM := Month( DD ) + 1
IF LM > 12
LM := 1
LA := LA + 1
ENDIF
DD1 := CToD( "01/" + StrZero( LM, 2 ) + "/" + StrZero( LA, 4 ) ) - 1
D := Day( BB ) + ( Day( DD1 ) - Day( DD ) ) + 1
IF D >= 30
LA := Int( D / 30 )
D := D - ( LA * 30 )
M := M + 1
IF M > 12
M := 0
A := A + 1
ENDIF
ENDIF
ELSE
A := 0
IF Year( AA ) = Year( BB ) .AND. ( Month( BB ) - Month( AA ) ) > 1
M := ( Month( BB ) - Month( AA ) ) - 1
ELSEIF Year( BB ) > Year( AA )
M := ( 12 - Month( AA ) ) + Month( BB ) - 1
ENDIF
LA := Year( AA )
LM := Month( AA ) + 1
IF LM > 12
LM := 1
LA := LA + 1
ENDIF
DD1 := CToD( "01/" + StrZero( LM, 2 ) + "/" + StrZero( LA, 4 ) ) - 1
D := Day( BB ) + ( Day( DD1 ) - Day( AA ) ) + 1
IF D >= 30
LA := Int( D / 30 )
D := D - ( LA * 30 )
M := M + 1
IF M > 12
M := 0
A := A + 1
ENDIF
ENDIF
ENDIF
HH := Str( A, 3 ) + ":" + Str( M, 2 ) + ":" + Str( D, 2 )
RETURN( HH )
METHOD Pantalla() CLASS TFechas
LOCAL oDlg, oFont
::vGets[1] := CTOD( "07/11/1972" ) // Space( 10 )
::vGets[2] := CTOD( "06/11/2022" ) // Space( 10 )
::vGets[3] := 0
DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -14 BOLD
DEFINE DIALOG oDlg RESOURCE "DLGFECHA" FONT oFont ;
COLORS CLR_BLACK, CLR_WHITE TRANSPARENT
oDlg:lHelpIcon := .F.
REDEFINE GET ::oGets[1] VAR ::vGets[ 1 ] ID 100 PICTURE "@KD 99/99/9999" ;
SPINNER OF oDlg FONT oFont COLORS CLR_MSPURPLE, CLR_WHITE UPDATE
REDEFINE GET ::oGets[2] VAR ::vGets[ 2 ] ID 110 PICTURE "@KD 99/99/9999" ;
SPINNER OF oDlg FONT oFont COLORS CLR_MSPURPLE, CLR_WHITE UPDATE ;
VALID( ( ::CalcularEdad() ), xFocus( ::oSalida ) )
REDEFINE GET ::oGets[3] VAR ::vGets[ 3 ] ID 120 PICTURE "@R 999999" ;
OF oDlg WHEN( .F. ) FONT oFont COLORS CLR_PINK, CLR_WHITE UPDATE
::oGets[3]:Disable()
::oGets[3]:lDisColors := .F. // Deactive disable color
::oGets[3]:nClrTextDis := CLR_WHITE // Color text disable status
::oGets[3]:nClrPaneDis := CLR_MSRED // Color Pane disable status
REDEFINE BUTTONBMP ::oCalcula ID 301 OF oDlg ;
ACTION( ::CalcularEdad() )
REDEFINE BUTTONBMP ::oSalida ID 302 OF oDlg ;
ACTION( oDlg:End() ) CANCEL
SET FONT OF ::oCalcula TO oFont
SET FONT OF ::oSalida TO oFont
ACTIVATE DIALOG oDlg CENTERED
::oSalida:End()
::oCalcula:End()
RETURN NIL
STATIC FUNCTION xFocus( oObj )
xSetFocus( oObj )
xSetFocus( oObj )
RETURN( .T. )
STATIC FUNCTION xSetFocus( oObj )
LOCAL _oWnd := oObj:oWnd, _oTempo := ""
DEFINE Timer _oTempo Interval 10 OF _oWnd ;
ACTION ( oObj:SetFocus(), _oTempo:End() )
ACTIVATE Timer _oTempo
RETURN( .T. )
/*
// TFECHAS2.RC
DLGFECHA DIALOG 305, 61, 203, 160
STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "TFechas - Using: Harbour .and. xHarbour"
FONT 8, "Tahoma"
{
EDITTEXT 100, 56, 25, 90, 12, ES_CENTER | WS_BORDER | WS_VSCROLL | WS_TABSTOP
EDITTEXT 110, 56, 51, 90, 12, ES_CENTER | WS_BORDER | WS_VSCROLL | WS_TABSTOP
EDITTEXT 120, 56, 79, 90, 12, ES_CENTER | WS_BORDER | WS_TABSTOP
PUSHBUTTON "&Calcula", 301, 33, 127, 60, 16
PUSHBUTTON "&Salida", 302, 96, 127, 60, 16
}
*/
// FIN / ENDRegards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
goosfancito wrote:Felicidades a todos! Buen año!
Como puedo calcular la edad entre dos fechas?
FUNCTION ETA( dDat )
LOCAL nEta := YEAR( DATE() ) - YEAR( dDat )
IF MONTH( DATE() ) < MONTH( dDat ) .OR. ( MONTH( DATE() ) = MONTH( dDat ) .AND. DAY( DATE() ) < DAY( dDat ) )
nEta--
ENDIF
RETURN nEtaEMG
Using example by Enrico:
Regards, saludos.
// \SAMPLES\TFECHAS2.PRG
// Con xHarbour funciona Bien, y ahora Con Harbour Tambien.
// Harbour es un poco complicado para nosotros aun. Jajaja.
//////////////////////////////////////////////////////////////////////////////
// Programa: fecha.prg
// Fecha Creación: 01/08/2022
// Hora: 12:22
// Proyecto en xMate: fecha
// Lista de funciones:
// Ultima actualizacion :>: 01/08/2022 18:06
// Historial:
// >>:
// 01/08/22
//////////////////////////////////////////////////////////////////////////////
#include "fivewin.ch"
#Define CLR_LGREEN nRGB( 190, 215, 190 )
#Define CLR_SOFTYELLOW nRGB( 255, 251, 225 )
#Define CLR_PINK nRGB( 255, 128, 128 )
#Define CLR_NBLUE nRGB( 128, 128, 192 )
#Define CLR_MSPURPLE nRGB( 0, 120, 215 )
#Define CLR_MSRED nRGB( 232, 17, 35 )
#Define CLR_MSGRAY nRGB( 229, 229, 229 )
MEMVAR oApp
FUNCTION Main()
SET CENTURY ON
SET DATE BRITISH
SET EPOCH TO YEAR( DATE() ) - 30
oApp := TFechas():New()
oApp:Pantalla()
FreeResources()
Release All
SysRefresh()
HB_GCALL( .T. ) // xHarbour
CLEAR MEMORY
PostQuitMessage( 0 )
RETURN NIL
CLASS TFechas
DATA oGets AS OBJECT
DATA vGets INIT ""
DATA oSalida AS OBJECT
DATA oCalcula AS OBJECT
METHOD New() CONSTRUCTOR
METHOD CalcularEdad()
METHOD Pantalla()
END CLASS
METHOD New() CLASS TFechas
::oGets := Array( 5 )
::vGets := Array( 5 )
RETURN( Self )
METHOD CalcularEdad() CLASS TFechas
LOCAL nEdad, aInicial, aFinal, FechaIni, FechaFin
FechaIni := ::vGets[ 1 ]
FechaFin := ::vGets[ 2 ]
// nEdad := _Tiempo( FechaIni, FechaFin )
nEdad := ETA( FechaIni, FechaFin )
::vGets[ 3 ] := nEdad
::oGets[3]:VARPUT( nEdad )
::oGets[3]:Refresh()
RETURN( .T. )
FUNCTION ETA( dDatIn, dDatFin ) // By Enrico - 09/01/2022
LOCAL nEta := YEAR( dDatFin ) - YEAR( dDatIn )
IF MONTH( dDatFin ) < MONTH( dDatIn ) .OR. ;
( MONTH( dDatFin ) = MONTH( dDatIn ) .AND. ;
DAY( dDatFin ) < DAY( dDatIn ) )
nEta--
ENDIF
RETURN( nEta )
FUNCTION _TIEMPO( AA, BB )
LOCAL D, M, A, DD, LA, LM, DD1, HH
STORE 0 TO A, M, D
IF ( Year( BB ) - Year( AA ) ) > 1 .OR. ( ( BB - AA ) + 1 ) > 364
DD := CToD( Left( DToC( AA ), 6 ) + Right( DToC( BB ), 4 ) )
IF DToS( DD ) > DToS( BB )
DD := CToD( Left( DToC( DD ), 6 ) + StrZero( Val( Right( DToC( DD ), 4 ) ) - 1, 4 ) )
ENDIF
A := Year( DD ) - Year( AA )
IF Year( DD ) = Year( BB ) .AND. ( Month( BB ) - Month( DD ) ) > 1
M := ( Month( BB ) - Month( DD ) ) - 1
ELSEIF Year( BB ) > Year( DD )
M := ( 12 - Month( DD ) ) + Month( BB ) - 1
ENDIF
LA := Year( DD )
LM := Month( DD ) + 1
IF LM > 12
LM := 1
LA := LA + 1
ENDIF
DD1 := CToD( "01/" + StrZero( LM, 2 ) + "/" + StrZero( LA, 4 ) ) - 1
D := Day( BB ) + ( Day( DD1 ) - Day( DD ) ) + 1
IF D >= 30
LA := Int( D / 30 )
D := D - ( LA * 30 )
M := M + 1
IF M > 12
M := 0
A := A + 1
ENDIF
ENDIF
ELSE
A := 0
IF Year( AA ) = Year( BB ) .AND. ( Month( BB ) - Month( AA ) ) > 1
M := ( Month( BB ) - Month( AA ) ) - 1
ELSEIF Year( BB ) > Year( AA )
M := ( 12 - Month( AA ) ) + Month( BB ) - 1
ENDIF
LA := Year( AA )
LM := Month( AA ) + 1
IF LM > 12
LM := 1
LA := LA + 1
ENDIF
DD1 := CToD( "01/" + StrZero( LM, 2 ) + "/" + StrZero( LA, 4 ) ) - 1
D := Day( BB ) + ( Day( DD1 ) - Day( AA ) ) + 1
IF D >= 30
LA := Int( D / 30 )
D := D - ( LA * 30 )
M := M + 1
IF M > 12
M := 0
A := A + 1
ENDIF
ENDIF
ENDIF
HH := Str( A, 3 ) + ":" + Str( M, 2 ) + ":" + Str( D, 2 )
RETURN( HH )
METHOD Pantalla() CLASS TFechas
LOCAL oDlg, oFont
::vGets[1] := CTOD( "07/11/1972" ) // Space( 10 )
::vGets[2] := CTOD( "06/11/2022" ) // Space( 10 )
::vGets[3] := 0
DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -14 BOLD
DEFINE DIALOG oDlg RESOURCE "DLGFECHA" FONT oFont ;
COLORS CLR_BLACK, CLR_WHITE TRANSPARENT
oDlg:lHelpIcon := .F.
REDEFINE GET ::oGets[1] VAR ::vGets[ 1 ] ID 100 PICTURE "@KD 99/99/9999" ;
SPINNER OF oDlg FONT oFont COLORS CLR_MSPURPLE, CLR_WHITE UPDATE
REDEFINE GET ::oGets[2] VAR ::vGets[ 2 ] ID 110 PICTURE "@KD 99/99/9999" ;
SPINNER OF oDlg FONT oFont COLORS CLR_MSPURPLE, CLR_WHITE UPDATE ;
VALID( ( ::CalcularEdad() ), xFocus( ::oSalida ) )
REDEFINE GET ::oGets[3] VAR ::vGets[ 3 ] ID 120 PICTURE "@R 999999" ;
OF oDlg WHEN( .F. ) FONT oFont COLORS CLR_PINK, CLR_WHITE UPDATE
::oGets[3]:Disable()
::oGets[3]:lDisColors := .F. // Deactive disable color
::oGets[3]:nClrTextDis := CLR_WHITE // Color text disable status
::oGets[3]:nClrPaneDis := CLR_MSRED // Color Pane disable status
REDEFINE BUTTONBMP ::oCalcula ID 301 OF oDlg ;
ACTION( ::CalcularEdad() )
REDEFINE BUTTONBMP ::oSalida ID 302 OF oDlg ;
ACTION( oDlg:End() ) CANCEL
SET FONT OF ::oCalcula TO oFont
SET FONT OF ::oSalida TO oFont
ACTIVATE DIALOG oDlg CENTERED
::oSalida:End()
::oCalcula:End()
RETURN NIL
STATIC FUNCTION xFocus( oObj )
xSetFocus( oObj )
xSetFocus( oObj )
RETURN( .T. )
STATIC FUNCTION xSetFocus( oObj )
LOCAL _oWnd := oObj:oWnd, _oTempo := ""
DEFINE Timer _oTempo Interval 10 OF _oWnd ;
ACTION ( oObj:SetFocus(), _oTempo:End() )
ACTIVATE Timer _oTempo
RETURN( .T. )
/*
// TFECHAS2.RC
DLGFECHA DIALOG 305, 61, 203, 160
STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "TFechas - Using: Harbour .and. xHarbour"
FONT 8, "Tahoma"
{
EDITTEXT 100, 56, 25, 90, 12, ES_CENTER | WS_BORDER | WS_VSCROLL | WS_TABSTOP
EDITTEXT 110, 56, 51, 90, 12, ES_CENTER | WS_BORDER | WS_VSCROLL | WS_TABSTOP
EDITTEXT 120, 56, 79, 90, 12, ES_CENTER | WS_BORDER | WS_TABSTOP
PUSHBUTTON "&Calcula", 301, 33, 127, 60, 16
PUSHBUTTON "&Salida", 302, 96, 127, 60, 16
}
*/
// FIN / ENDRegards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
goosfancito
Aquí una función corta.
Aquí una función corta.
FUNCTION Edad(Fx,Fa)
Di=Day(Fx);Mi=Month(Fx);Ai=Year(Fx)-1900;Da=Day(Fa);Ma=Month(Fa);Aa=Year(Fa)-1900
If Di>Da
Da=Da+30;Ma=Ma-1
Endif
If Mi>Ma
Ma=Ma+12;Aa=Aa-1
Endi
vA=Aa-Ai
vM=Ma-Mi;vD=Da-Di
vD:=If(Day(Fx)=1,vD+1,vD)
Return vD,vM,vASaludos,
Adhemar C.
Adhemar C.
Hola !
Function Fnct_Prueba(dFechaNacimiento, dFechaActual)
Local nYearActual, nYearNacimiento
Local nMesActual , nMesNacimiento
Local nDiaActual , nDiaNacimiento
Local nEdadYears , nEdadMeses, nEdadDias
Local aValToReturn
Default dFechaActual:=cToD('06/11/2022'), dFechaNacimiento:=cToD('07/11/1972') // esta linea debes eliminarla al insertar esta funcion en tu proyecto
aValToReturn := {}
nYearActual := year (dFechaActual)
nMesActual := month(dFechaActual)
nDiaActual := day (dFechaActual)
nYearNacimiento := Year (dFechaNacimiento)
nMesNacimiento := Month(dFechaNacimiento)
nDiaNacimiento := Day (dFechaNacimiento)
nEdadYears := nYearActual - nYearNacimiento
nEdadMeses := nMesActual - nMesNacimiento
nEdadDias := nDiaActual - nDiaNacimiento
if nEdadDias<0
nEdadMeses := nEdadMeses - 1
nEdadDias := nEdadDias + 30
endif
if nEdadMeses<0
nEdadYears := nEdadYears - 1
nEdadMeses := nEdadMeses + 12
endif
aValToReturn := { nEdadYears ,;
nEdadMeses ,;
nEdadDias }
msginfo("años-> "+str(aValToReturn[1])+CRLF+" Meses-> "+str(aValToReturn[2])+CRLF+" Dias-> "+str(aValToReturn[3]))
return aValToReturn"Los errores en programación, siempre están entre la silla y el teclado..."
Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin
Carora, Estado Lara, Venezuela.
Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin
Carora, Estado Lara, Venezuela.
Que buena clase eh José? Felicidades. Ahora, tiene incluso la edad de escribir.
Regards, saludos.
// \SAMPLES\TFECHAS2.PRG
// Con xHarbour funciona Bien, y ahora Con Harbour Tambien.
// Harbour es un poco complicado para nosotros aun. Jajaja.
//////////////////////////////////////////////////////////////////////////////
// Programa: fecha.prg
// Fecha Creación: 01/08/2022
// Hora: 12:22
// Proyecto en xMate: fecha
// Lista de funciones:
// Ultima actualizacion :>: 01/08/2022 18:06
// Historial:
// >>:
// 01/08/22
//////////////////////////////////////////////////////////////////////////////
#include "fivewin.ch"
#Define CLR_LGREEN nRGB( 190, 215, 190 )
#Define CLR_SOFTYELLOW nRGB( 255, 251, 225 )
#Define CLR_PINK nRGB( 255, 128, 128 )
#Define CLR_NBLUE nRGB( 128, 128, 192 )
#Define CLR_MSPURPLE nRGB( 0, 120, 215 )
#Define CLR_MSRED nRGB( 232, 17, 35 )
#Define CLR_MSGRAY nRGB( 229, 229, 229 )
MEMVAR oApp
FUNCTION Main()
SET CENTURY ON
SET DATE BRITISH
SET EPOCH TO YEAR( DATE() ) - 30
oApp := TFechas():New()
oApp:Pantalla()
FreeResources()
Release All
SysRefresh()
HB_GCALL( .T. ) // xHarbour
CLEAR MEMORY
PostQuitMessage( 0 )
RETURN NIL
CLASS TFechas
DATA oGets AS OBJECT
DATA vGets INIT ""
DATA oSalida AS OBJECT
DATA oCalcula AS OBJECT
METHOD New() CONSTRUCTOR
METHOD CalcularEdad()
METHOD Pantalla()
END CLASS
METHOD New() CLASS TFechas
::oGets := Array( 5 )
::vGets := Array( 5 )
RETURN( Self )
METHOD CalcularEdad() CLASS TFechas
LOCAL nEdad, aInicial, aFinal, FechaIni, FechaFin
FechaIni := ::vGets[ 1 ]
FechaFin := ::vGets[ 2 ]
// nEdad := _Tiempo( FechaIni, FechaFin )
// nEdad := ETA( FechaIni, FechaFin )
nEdad := Fnct_Prueba( FechaIni, FechaFin )
::vGets[ 3 ] := nEdad
::oGets[3]:VARPUT( nEdad )
::oGets[3]:Refresh()
RETURN( .T. )
// By Jose Alvarez - 11/01/2022
FUNCTION Fnct_Prueba( dFechaNacimiento, dFechaActual )
LOCAL nYearActual, nYearNacimiento
LOCAL nMesActual, nMesNacimiento
LOCAL nDiaActual, nDiaNacimiento
LOCAL nEdadYears, nEdadMeses, nEdadDias
LOCAL aValToReturn
DEFAULT dFechaActual := CToD( '06/11/2022' ), dFechaNacimiento := CToD( '07/11/1972' ) // esta linea debes eliminarla al insertar esta funcion en tu proyecto
aValToReturn := {}
nYearActual := year ( dFechaActual )
nMesActual := Month( dFechaActual )
nDiaActual := day ( dFechaActual )
nYearNacimiento := Year ( dFechaNacimiento )
nMesNacimiento := Month( dFechaNacimiento )
nDiaNacimiento := Day ( dFechaNacimiento )
nEdadYears := nYearActual - nYearNacimiento
nEdadMeses := nMesActual - nMesNacimiento
nEdadDias := nDiaActual - nDiaNacimiento
IF nEdadDias < 0
nEdadMeses := nEdadMeses - 1
nEdadDias := nEdadDias + 30
ENDIF
IF nEdadMeses < 0
nEdadYears := nEdadYears - 1
nEdadMeses := nEdadMeses + 12
ENDIF
aValToReturn := { nEdadYears, ;
nEdadMeses, ;
nEdadDias }
// MsgInfo( "años-> " + Str( aValToReturn[ 1 ] ) + CRLF + " Meses-> " + Str( aValToReturn[ 2 ] ) + CRLF + " Dias-> " + Str( aValToReturn[ 3 ] ) )
RETURN( nEdadYears ) // ( aValToReturn ) // extenso
FUNCTION ETA( dDatIn, dDatFin ) // By Enrico - 09/01/2022
LOCAL nEta := YEAR( dDatFin ) - YEAR( dDatIn )
IF MONTH( dDatFin ) < MONTH( dDatIn ) .OR. ;
( MONTH( dDatFin ) = MONTH( dDatIn ) .AND. ;
DAY( dDatFin ) < DAY( dDatIn ) )
nEta--
ENDIF
RETURN( nEta )
FUNCTION _TIEMPO( AA, BB )
LOCAL D, M, A, DD, LA, LM, DD1, HH
STORE 0 TO A, M, D
IF ( Year( BB ) - Year( AA ) ) > 1 .OR. ( ( BB - AA ) + 1 ) > 364
DD := CToD( Left( DToC( AA ), 6 ) + Right( DToC( BB ), 4 ) )
IF DToS( DD ) > DToS( BB )
DD := CToD( Left( DToC( DD ), 6 ) + StrZero( Val( Right( DToC( DD ), 4 ) ) - 1, 4 ) )
ENDIF
A := Year( DD ) - Year( AA )
IF Year( DD ) = Year( BB ) .AND. ( Month( BB ) - Month( DD ) ) > 1
M := ( Month( BB ) - Month( DD ) ) - 1
ELSEIF Year( BB ) > Year( DD )
M := ( 12 - Month( DD ) ) + Month( BB ) - 1
ENDIF
LA := Year( DD )
LM := Month( DD ) + 1
IF LM > 12
LM := 1
LA := LA + 1
ENDIF
DD1 := CToD( "01/" + StrZero( LM, 2 ) + "/" + StrZero( LA, 4 ) ) - 1
D := Day( BB ) + ( Day( DD1 ) - Day( DD ) ) + 1
IF D >= 30
LA := Int( D / 30 )
D := D - ( LA * 30 )
M := M + 1
IF M > 12
M := 0
A := A + 1
ENDIF
ENDIF
ELSE
A := 0
IF Year( AA ) = Year( BB ) .AND. ( Month( BB ) - Month( AA ) ) > 1
M := ( Month( BB ) - Month( AA ) ) - 1
ELSEIF Year( BB ) > Year( AA )
M := ( 12 - Month( AA ) ) + Month( BB ) - 1
ENDIF
LA := Year( AA )
LM := Month( AA ) + 1
IF LM > 12
LM := 1
LA := LA + 1
ENDIF
DD1 := CToD( "01/" + StrZero( LM, 2 ) + "/" + StrZero( LA, 4 ) ) - 1
D := Day( BB ) + ( Day( DD1 ) - Day( AA ) ) + 1
IF D >= 30
LA := Int( D / 30 )
D := D - ( LA * 30 )
M := M + 1
IF M > 12
M := 0
A := A + 1
ENDIF
ENDIF
ENDIF
HH := Str( A, 3 ) + ":" + Str( M, 2 ) + ":" + Str( D, 2 )
RETURN( HH )
METHOD Pantalla() CLASS TFechas
LOCAL oDlg, oFont
::vGets[1] := CTOD( "07/11/1972" ) // Space( 10 )
::vGets[2] := CTOD( "06/11/2022" ) // Space( 10 )
::vGets[3] := 0
DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -14 BOLD
DEFINE DIALOG oDlg RESOURCE "DLGFECHA" FONT oFont ;
COLORS CLR_BLACK, CLR_WHITE TRANSPARENT
oDlg:lHelpIcon := .F.
REDEFINE GET ::oGets[1] VAR ::vGets[ 1 ] ID 100 PICTURE "@KD 99/99/9999" ;
SPINNER OF oDlg FONT oFont COLORS CLR_MSPURPLE, CLR_WHITE UPDATE
REDEFINE GET ::oGets[2] VAR ::vGets[ 2 ] ID 110 PICTURE "@KD 99/99/9999" ;
SPINNER OF oDlg FONT oFont COLORS CLR_MSPURPLE, CLR_WHITE UPDATE ;
VALID( ( ::CalcularEdad() ), xFocus( ::oSalida ) )
REDEFINE GET ::oGets[3] VAR ::vGets[ 3 ] ID 120 PICTURE "@R 999999" ;
OF oDlg WHEN( .F. ) FONT oFont COLORS CLR_PINK, CLR_WHITE UPDATE
::oGets[3]:Disable()
::oGets[3]:lDisColors := .F. // Deactive disable color
::oGets[3]:nClrTextDis := CLR_WHITE // Color text disable status
::oGets[3]:nClrPaneDis := CLR_MSRED // Color Pane disable status
REDEFINE BUTTONBMP ::oCalcula ID 301 OF oDlg ;
ACTION( ::CalcularEdad() )
REDEFINE BUTTONBMP ::oSalida ID 302 OF oDlg ;
ACTION( oDlg:End() ) CANCEL
SET FONT OF ::oCalcula TO oFont
SET FONT OF ::oSalida TO oFont
ACTIVATE DIALOG oDlg CENTERED
::oSalida:End()
::oCalcula:End()
RETURN NIL
STATIC FUNCTION xFocus( oObj )
xSetFocus( oObj )
xSetFocus( oObj )
RETURN( .T. )
STATIC FUNCTION xSetFocus( oObj )
LOCAL _oWnd := oObj:oWnd, _oTempo := ""
DEFINE Timer _oTempo Interval 10 OF _oWnd ;
ACTION ( oObj:SetFocus(), _oTempo:End() )
ACTIVATE Timer _oTempo
RETURN( .T. )
/*
// TFECHAS2.RC
DLGFECHA DIALOG 305, 61, 203, 160
STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "TFechas - Using: Harbour .and. xHarbour"
FONT 8, "Tahoma"
{
EDITTEXT 100, 56, 25, 90, 12, ES_CENTER | WS_BORDER | WS_VSCROLL | WS_TABSTOP
EDITTEXT 110, 56, 51, 90, 12, ES_CENTER | WS_BORDER | WS_VSCROLL | WS_TABSTOP
EDITTEXT 120, 56, 79, 90, 12, ES_CENTER | WS_BORDER | WS_TABSTOP
PUSHBUTTON "&Calcula", 301, 33, 127, 60, 16
PUSHBUTTON "&Salida", 302, 96, 127, 60, 16
}
*/
// FIN / ENDRegards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha wrote:Que buena clase eh José? Felicidades. Ahora, tiene incluso la edad de escribir.
// \SAMPLES\TFECHAS2.PRG // Con xHarbour funciona Bien, y ahora Con Harbour Tambien. // Harbour es un poco complicado para nosotros aun. Jajaja. ////////////////////////////////////////////////////////////////////////////// // Programa: fecha.prg // Fecha Creación: 01/08/2022 // Hora: 12:22 // Proyecto en xMate: fecha // Lista de funciones: // Ultima actualizacion :>: 01/08/2022 18:06 // Historial: // >>: // 01/08/22 ////////////////////////////////////////////////////////////////////////////// #include "fivewin.ch" #Define CLR_LGREEN nRGB( 190, 215, 190 ) #Define CLR_SOFTYELLOW nRGB( 255, 251, 225 ) #Define CLR_PINK nRGB( 255, 128, 128 ) #Define CLR_NBLUE nRGB( 128, 128, 192 ) #Define CLR_MSPURPLE nRGB( 0, 120, 215 ) #Define CLR_MSRED nRGB( 232, 17, 35 ) #Define CLR_MSGRAY nRGB( 229, 229, 229 ) MEMVAR oApp FUNCTION Main() SET CENTURY ON SET DATE BRITISH SET EPOCH TO YEAR( DATE() ) - 30 oApp := TFechas():New() oApp:Pantalla() FreeResources() Release All SysRefresh() HB_GCALL( .T. ) // xHarbour CLEAR MEMORY PostQuitMessage( 0 ) RETURN NIL CLASS TFechas DATA oGets AS OBJECT DATA vGets INIT "" DATA oSalida AS OBJECT DATA oCalcula AS OBJECT METHOD New() CONSTRUCTOR METHOD CalcularEdad() METHOD Pantalla() END CLASS METHOD New() CLASS TFechas ::oGets := Array( 5 ) ::vGets := Array( 5 ) RETURN( Self ) METHOD CalcularEdad() CLASS TFechas LOCAL nEdad, aInicial, aFinal, FechaIni, FechaFin FechaIni := ::vGets[ 1 ] FechaFin := ::vGets[ 2 ] // nEdad := _Tiempo( FechaIni, FechaFin ) // nEdad := ETA( FechaIni, FechaFin ) nEdad := Fnct_Prueba( FechaIni, FechaFin ) ::vGets[ 3 ] := nEdad ::oGets[3]:VARPUT( nEdad ) ::oGets[3]:Refresh() RETURN( .T. ) // By Jose Alvarez - 11/01/2022 FUNCTION Fnct_Prueba( dFechaNacimiento, dFechaActual ) LOCAL nYearActual, nYearNacimiento LOCAL nMesActual, nMesNacimiento LOCAL nDiaActual, nDiaNacimiento LOCAL nEdadYears, nEdadMeses, nEdadDias LOCAL aValToReturn DEFAULT dFechaActual := CToD( '06/11/2022' ), dFechaNacimiento := CToD( '07/11/1972' ) // esta linea debes eliminarla al insertar esta funcion en tu proyecto aValToReturn := {} nYearActual := year ( dFechaActual ) nMesActual := Month( dFechaActual ) nDiaActual := day ( dFechaActual ) nYearNacimiento := Year ( dFechaNacimiento ) nMesNacimiento := Month( dFechaNacimiento ) nDiaNacimiento := Day ( dFechaNacimiento ) nEdadYears := nYearActual - nYearNacimiento nEdadMeses := nMesActual - nMesNacimiento nEdadDias := nDiaActual - nDiaNacimiento IF nEdadDias < 0 nEdadMeses := nEdadMeses - 1 nEdadDias := nEdadDias + 30 ENDIF IF nEdadMeses < 0 nEdadYears := nEdadYears - 1 nEdadMeses := nEdadMeses + 12 ENDIF aValToReturn := { nEdadYears, ; nEdadMeses, ; nEdadDias } // MsgInfo( "años-> " + Str( aValToReturn[ 1 ] ) + CRLF + " Meses-> " + Str( aValToReturn[ 2 ] ) + CRLF + " Dias-> " + Str( aValToReturn[ 3 ] ) ) RETURN( nEdadYears ) // ( aValToReturn ) // extenso FUNCTION ETA( dDatIn, dDatFin ) // By Enrico - 09/01/2022 LOCAL nEta := YEAR( dDatFin ) - YEAR( dDatIn ) IF MONTH( dDatFin ) < MONTH( dDatIn ) .OR. ; ( MONTH( dDatFin ) = MONTH( dDatIn ) .AND. ; DAY( dDatFin ) < DAY( dDatIn ) ) nEta-- ENDIF RETURN( nEta ) FUNCTION _TIEMPO( AA, BB ) LOCAL D, M, A, DD, LA, LM, DD1, HH STORE 0 TO A, M, D IF ( Year( BB ) - Year( AA ) ) > 1 .OR. ( ( BB - AA ) + 1 ) > 364 DD := CToD( Left( DToC( AA ), 6 ) + Right( DToC( BB ), 4 ) ) IF DToS( DD ) > DToS( BB ) DD := CToD( Left( DToC( DD ), 6 ) + StrZero( Val( Right( DToC( DD ), 4 ) ) - 1, 4 ) ) ENDIF A := Year( DD ) - Year( AA ) IF Year( DD ) = Year( BB ) .AND. ( Month( BB ) - Month( DD ) ) > 1 M := ( Month( BB ) - Month( DD ) ) - 1 ELSEIF Year( BB ) > Year( DD ) M := ( 12 - Month( DD ) ) + Month( BB ) - 1 ENDIF LA := Year( DD ) LM := Month( DD ) + 1 IF LM > 12 LM := 1 LA := LA + 1 ENDIF DD1 := CToD( "01/" + StrZero( LM, 2 ) + "/" + StrZero( LA, 4 ) ) - 1 D := Day( BB ) + ( Day( DD1 ) - Day( DD ) ) + 1 IF D >= 30 LA := Int( D / 30 ) D := D - ( LA * 30 ) M := M + 1 IF M > 12 M := 0 A := A + 1 ENDIF ENDIF ELSE A := 0 IF Year( AA ) = Year( BB ) .AND. ( Month( BB ) - Month( AA ) ) > 1 M := ( Month( BB ) - Month( AA ) ) - 1 ELSEIF Year( BB ) > Year( AA ) M := ( 12 - Month( AA ) ) + Month( BB ) - 1 ENDIF LA := Year( AA ) LM := Month( AA ) + 1 IF LM > 12 LM := 1 LA := LA + 1 ENDIF DD1 := CToD( "01/" + StrZero( LM, 2 ) + "/" + StrZero( LA, 4 ) ) - 1 D := Day( BB ) + ( Day( DD1 ) - Day( AA ) ) + 1 IF D >= 30 LA := Int( D / 30 ) D := D - ( LA * 30 ) M := M + 1 IF M > 12 M := 0 A := A + 1 ENDIF ENDIF ENDIF HH := Str( A, 3 ) + ":" + Str( M, 2 ) + ":" + Str( D, 2 ) RETURN( HH ) METHOD Pantalla() CLASS TFechas LOCAL oDlg, oFont ::vGets[1] := CTOD( "07/11/1972" ) // Space( 10 ) ::vGets[2] := CTOD( "06/11/2022" ) // Space( 10 ) ::vGets[3] := 0 DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -14 BOLD DEFINE DIALOG oDlg RESOURCE "DLGFECHA" FONT oFont ; COLORS CLR_BLACK, CLR_WHITE TRANSPARENT oDlg:lHelpIcon := .F. REDEFINE GET ::oGets[1] VAR ::vGets[ 1 ] ID 100 PICTURE "@KD 99/99/9999" ; SPINNER OF oDlg FONT oFont COLORS CLR_MSPURPLE, CLR_WHITE UPDATE REDEFINE GET ::oGets[2] VAR ::vGets[ 2 ] ID 110 PICTURE "@KD 99/99/9999" ; SPINNER OF oDlg FONT oFont COLORS CLR_MSPURPLE, CLR_WHITE UPDATE ; VALID( ( ::CalcularEdad() ), xFocus( ::oSalida ) ) REDEFINE GET ::oGets[3] VAR ::vGets[ 3 ] ID 120 PICTURE "@R 999999" ; OF oDlg WHEN( .F. ) FONT oFont COLORS CLR_PINK, CLR_WHITE UPDATE ::oGets[3]:Disable() ::oGets[3]:lDisColors := .F. // Deactive disable color ::oGets[3]:nClrTextDis := CLR_WHITE // Color text disable status ::oGets[3]:nClrPaneDis := CLR_MSRED // Color Pane disable status REDEFINE BUTTONBMP ::oCalcula ID 301 OF oDlg ; ACTION( ::CalcularEdad() ) REDEFINE BUTTONBMP ::oSalida ID 302 OF oDlg ; ACTION( oDlg:End() ) CANCEL SET FONT OF ::oCalcula TO oFont SET FONT OF ::oSalida TO oFont ACTIVATE DIALOG oDlg CENTERED ::oSalida:End() ::oCalcula:End() RETURN NIL STATIC FUNCTION xFocus( oObj ) xSetFocus( oObj ) xSetFocus( oObj ) RETURN( .T. ) STATIC FUNCTION xSetFocus( oObj ) LOCAL _oWnd := oObj:oWnd, _oTempo := "" DEFINE Timer _oTempo Interval 10 OF _oWnd ; ACTION ( oObj:SetFocus(), _oTempo:End() ) ACTIVATE Timer _oTempo RETURN( .T. ) /* // TFECHAS2.RC DLGFECHA DIALOG 305, 61, 203, 160 STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU CAPTION "TFechas - Using: Harbour .and. xHarbour" FONT 8, "Tahoma" { EDITTEXT 100, 56, 25, 90, 12, ES_CENTER | WS_BORDER | WS_VSCROLL | WS_TABSTOP EDITTEXT 110, 56, 51, 90, 12, ES_CENTER | WS_BORDER | WS_VSCROLL | WS_TABSTOP EDITTEXT 120, 56, 79, 90, 12, ES_CENTER | WS_BORDER | WS_TABSTOP PUSHBUTTON "&Calcula", 301, 33, 127, 60, 16 PUSHBUTTON "&Salida", 302, 96, 127, 60, 16 } */ // FIN / END
Regards, saludos.
Hola Joao!
Gracias por estar siempre presente con ayuda para los que participamos en el foro.
Tomando la idea de la manera en que lo hace adhemar, se puede simplicar bastante, aunque a mi particularmente no me gusta esa manera de programar porque se sacrifica mucha claridad a la hora de leer el codigo, pero todo es valido en programacion y es cuestion de gustos.
Function Fnct_CalcularEdad(dFechaNacimiento, dFechaActual)
Local nYearActual , nMesActual , nDiaActual, nYearNacimiento, nMesNacimiento, nDiaNacimiento
Local nEdadYears , nEdadMeses , nEdadDias , aValToReturn
aValToReturn := {}
nYearActual := year (dFechaActual) ; nMesActual := Month (dFechaActual) ; nDiaActual := Day (dFechaActual)
nYearNacimiento := Year (dFechaNacimiento) ; nMesNacimiento:= Month (dFechaNacimiento) ; nDiaNacimiento := Day (dFechaNacimiento)
nEdadYears := nYearActual-nYearNacimiento ; nEdadMeses:=nMesActual-nMesNacimiento ; nEdadDias:=nDiaActual-nDiaNacimiento
iif( nEdadDias <0 , (nEdadMeses := nEdadMeses -1 , nEdadDias := nEdadDias + 30) ,)
iif( nEdadMeses<0 , (nEdadYears := nEdadYears -1 , nEdadMeses := nEdadMeses + 12) ,)
aValToReturn := { nEdadYears , nEdadMeses, nEdadDias }
return aValToReturn"Los errores en programación, siempre están entre la silla y el teclado..."
Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin
Carora, Estado Lara, Venezuela.
Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin
Carora, Estado Lara, Venezuela.