Fecha incorrecta...Cómo saber?

Fecha incorrecta...Cómo saber?

Postby FiveWiDi » Tue Apr 02, 2024 9:50 pm

Hola a todos,

¿Cual sería la manera de adecuada de comprobar que una fecha es INcorrecta?

Es decir, si tengo:

dMiMalaFecha := CToD( "30/02/2020" )

¿Cómo puedo saber que dMiMalaFecha es una fecha errónea?

Muchas gracias,
Un Saludo
Carlos G.

FiveWin 24.02 + Harbour 3.2.0dev (r2403071241), BCC 7.7 Windows 10
FiveWiDi
 
Posts: 1189
Joined: Mon Oct 10, 2005 2:38 pm

Re: Fecha incorrecta...Cómo saber?

Postby Armando » Wed Apr 03, 2024 5:20 am

Carlos:

dMiMalaFecha Te va a quedar vacía " / / "

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
User avatar
Armando
 
Posts: 3225
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Fecha incorrecta...Cómo saber?

Postby groiss » Wed Apr 03, 2024 5:21 am

Buenos días:
Una forma sencillita sería:
Code: Select all  Expand view


iif( fecha de entrada=DToC(CToD(fecha de entrada)),.t.,.f.)

 


Un saludo
groiss
 
Posts: 224
Joined: Tue Sep 01, 2009 7:55 am
Location: Plasencia - ESPAÑA

Re: Fecha incorrecta...Cómo saber?

Postby JoseAlvarez » Wed Apr 03, 2024 12:46 pm

otra manera...

Code: Select all  Expand view
function Fnct_ValFecha(cFecha)

   Local lFechaValida

   lFechaValida:= iif( Empty(cTod(cFecha)), .f., .t.)

return lFechaValida
 
"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.
User avatar
JoseAlvarez
 
Posts: 795
Joined: Sun Nov 09, 2014 5:01 pm

Re: Fecha incorrecta...Cómo saber?

Postby FiveWiDi » Wed Apr 03, 2024 2:48 pm

Muchas gracias,

Usaré el método de comprobar si el valor es Empty().

Como curiosidad, en la clase TGet se declara un objeto oGet que tiene una DATA BadDate ( ::oGet:BadDate ), el caso es que no veo como se setea esta data y por tanto no se como lo comprueba FiveWin.

De momento lo dicho, usaré Empty().

Muchas gracias,
Un Saludo
Carlos G.

FiveWin 24.02 + Harbour 3.2.0dev (r2403071241), BCC 7.7 Windows 10
FiveWiDi
 
Posts: 1189
Joined: Mon Oct 10, 2005 2:38 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: FAST WebCrawler [Crawler] and 30 guests