FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Fecha incorrecta...C贸mo saber?
Posts: 1446
Joined: Mon Oct 10, 2005 02:38 PM
Fecha incorrecta...C贸mo saber?
Posted: Tue Apr 02, 2024 09: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 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Fecha incorrecta...C贸mo saber?
Posted: Wed Apr 03, 2024 05: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
Posts: 234
Joined: Tue Sep 01, 2009 07:55 AM
Re: Fecha incorrecta...C贸mo saber?
Posted: Wed Apr 03, 2024 05:21 AM
Buenos d铆as:
Una forma sencillita ser铆a:
Code (fw): Select all Collapse
iif( fecha de entrada=DToC(CToD(fecha de entrada)),.t.,.f.)
Un saludo
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: Fecha incorrecta...C贸mo saber?
Posted: Wed Apr 03, 2024 12:46 PM
otra manera...
Code (fw): Select all Collapse
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.
Posts: 1446
Joined: Mon Oct 10, 2005 02:38 PM
Re: Fecha incorrecta...C贸mo saber?
Posted: Wed Apr 03, 2024 02: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 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Continue the discussion