Control fecha

[FiveWiDi]

Hola a todos,

A ver si me saben decir como puedo controlar que una cadena no se puede convertir a fecha por que sería una fecha incorrecta; es decir, si tengo cFecha = "30/02/2012", éta no se podrá convertir por que no existe el día 30 en febrero.

Seguro que es una chorrada pero a estas horas estoy bastante bloqueado.

Gracias,

[RuFerSo]

Hola FiveWiDi: En la librería NF.lib de Harbour (tambien xHarbour), que se refiere a Nanforum.lib, en ella esta la funcion

FT_FDay(dFecha) Primer dia del mes, FirstDay
FT_LDay(dfecha) Ultimo dia del mes, LastDay
yo las uso en mis programas sin problemas.

Hay varias funciones de fecha muy útiles en esta librería.
Saludos
Ruben Fernandez.

[reinaldocrespo]

Y que tal esta idea?

Code: Select all

dDate := ctod( cFecha )
isGoodDate :=  ALLTRIM( DTOC( dDate ) ) == ALLTRIM( cFecha )
 

Reinaldo.

[FiveWiDi]

Muchas gracias a ambos, me quedo con la de Reinaldo.

Este foro es una joya.

Gracias.

[Armando]

FiveWidi:

Ahí te va otra

LOCAL dFecha := CTOD(" / / ")

IF EMPTY(dFecha := CTOD("30/02/2012"))
MsgStop("Fecha erronea !")
ENDIF

Saludos

[juan carlos bellucci]

Si no tenes la libreria o usas xharbour este pequeño programa te resuelve tu problema

Puedes escribir de la siguiente forma

Local fFecha := CTOD("03/02/2012") // la fecha que tu quieres consultar
Local uFecha := Date() // le das forma a la variable
uFecha := UltimoDia( fFecha ) // aqui la funcion te devuelve la fecha con el ultimo dia del mes


//---------------------------------------------------------------------------//
// Method UltimoDia( ) Retorna el el final de un mes
//--------------------------------------------------------------------------//
Function UltimoDia(xFecha)
Local xMes := Month( xFecha )
Local xAno := Year( xFecha )
Local nDias := 1
Local MiFecha := Date()
MiFecha := CTOD("01/"+StrZero(Month(xFecha),2)+"/"+StrZero(Year(xFecha),4))
Do While nDias < 31
MiFecha := MiFecha + 1
If Month( MiFecha ) > xMes
Exit
EndIf
nDias := nDias + 1
If nDias = 31
Exit
EndIF
EndDo
MiFecha := CTOD( StrZero(nDias,2)+"/"+StrZero(xMes,2)+"/"+StrZero(xAno,4) )

Return( MiFecha )
//--------------------------------------------------------------------------//

[reinaldocrespo]

Solo para que les sirva de información, no hace falta escribir funciones para buscar el último día del mes.
Si lo que se busca es el último día del mes, Harbour ya tiene una función nativa: EoM( dDate ) devuelve el último día del mes dDate. Si lo que se busca el es primer día del mes, Harbour ya tiene una función nativa: BoM( dDate ) devuelve el primer día del mes. Igual existe EoQ (end of quarter), EoY (end of Year)....

Pero no me parece que esto es lo que se pregunta en este hilo.

Saludos,


Reinaldo.

[acuellar]

Juan Carlos

Para sacar el último día podes usar esta función

Code: Select all

DaysInMonth(Month(Date()))
 

Saludos,

Adhemar

[colthop]

Si lo que estas buscando es el último día del mes y sabes el mes y el año, lo que yo hago es al 1 del mes siguiente le resto 1, excepto si el mes es 12 que se que son siempre 31.

En tu caso lo que haría es:

Code: Select all

cmonth = 2
cyear = 2012

if cmonth = 12
  cfecha = ctd("31/12/" + str(cyear,4,0))
else
  cfecha = ctod("01/" + str(cmonth+1,2,0) +"/" + str(cyear,4,0)) - 1
endif
 

Un saludo y espero que te sirva

Carlos