Validar fecha.

[FiveWiDi]

Hola,

Estoy buscando una función que me permita validar una fecha; me refiero a que el fecha introducida sea correcta.

Así si el valor encontrado es 35/08/2018 pues que me indique que no es una fecha correcta.

Recuerdo de hace años haberla visto pero ahora no la localizo.

Gracias.

[James Bott]

Hmm, I don't think you can enter an invalid date into a date variable type. Have to tried that?

Otherwise here is a test. Note that when a character date is converted to a date format date, if it is invalid it will be an empty date (" / / "). It is still a date data type but it is empty.

Code: Select all  Expand view

#include "fivewin.ch"

Function Main()
   Local dDate, cDate
   Set date BRITISH      // DD/MM/YYYY
   set epoch to 1980
   Set century on
   
   dDate:= ctod("35/08/2018")
   cDate:= dtoc(dDate)
   
   msgInfo(dDate,"dDate")
   
   msgInfo( ctod(cDate), "ctod(cDate)" )
   
   if dtoc(dDate) = "  /  /    "
      msgInfo("Valid date ", DateValid(dDate) )
   endif
   
Return nil

// Test for valid date
Function DateValid( dDate )
   Local lValid:=.t.
   if dtoc(dDate) = "  /  /    "
      lValid := .f.
   endif  
Return lValid

// EOF

[nageswaragunupudi]

if Empty( CTOD( cStr ) )
// invalid date
endif

[FiveWiDi]

Thank you very much mr. Bott and mr. Rao

As Mr. Rao says, then this must be correct right?

Code: Select all  Expand view

FUNCTION lIsDateOk( dDate )
Return ( .Not. Empty( CToD( DToC( dDate ) ) ) )
 

The point is that I have a date field that must be corrupted and I want to check its validity.

Excuse my English, I'm using Google translate.

[Enrico Maria Giordano]

Code: Select all  Expand view

FUNCTION lIsDateOk( dDate )
Return ( .Not. Empty( CToD( DToC( dDate ) ) ) )

Why not just this?

Code: Select all  Expand view

IF EMPTY( dDate )
    // error
ENDIF

EMG

[FiveWiDi]

Code: Select all  Expand view

FUNCTION lIsDateOk( dDate )
Return ( .Not. Empty( CToD( DToC( dDate ) ) ) )

Why not just this?

Code: Select all  Expand view

IF EMPTY( dDate )
    // error
ENDIF

EMG

Because I have found a date with value 04/22/ 320

[Enrico Maria Giordano]

Impossible. A date field can't contain an invalid date and even if the database were corrupted you wouldn't get the invalid date, you will get an empty date.

EMG

[FiveWiDi]

Impossible. A date field can't contain an invalid date and even if the database were corrupted you wouldn't get the invalid date, you will get an empty date.

EMG

Well, maybe.

Str( Year( oTdbfDomici:DATAFIRM ), 4 ) + "-" + Right( Str( 100 + Month( oTdbfDomici:DATAFIRM ), 3, 0), 2 ) + "-" + Right( Str( 100 + Day( oTdbfDomici:DATAFIRM ), 3, 0), 2 ) = " 320-04-22"

[nageswaragunupudi]

Impossible. A date field can't contain an invalid date and even if the database were corrupted you wouldn't get the invalid date, you will get an empty date.

EMG

ABSOLUTELY CORRECT !!!

[Enrico Maria Giordano]

Thank you for the confirmation, Master.

EMG