Page 1 of 1
Control fecha
Posted: Mon Aug 06, 2012 7:55 pm
by 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,
Re: Control fecha
Posted: Mon Aug 06, 2012 8:31 pm
by 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.
Re: Control fecha
Posted: Mon Aug 06, 2012 8:48 pm
by reinaldocrespo
Y que tal esta idea?
Code: Select all
dDate := ctod( cFecha )
isGoodDate := ALLTRIM( DTOC( dDate ) ) == ALLTRIM( cFecha )
Reinaldo.
Re: Control fecha
Posted: Mon Aug 06, 2012 11:23 pm
by FiveWiDi
Muchas gracias a ambos, me quedo con la de Reinaldo.
Este foro es una joya.
Gracias.
Re: Control fecha
Posted: Tue Aug 07, 2012 12:45 am
by Armando
FiveWidi:
Ahí te va otra
LOCAL dFecha := CTOD(" / / ")
IF EMPTY(dFecha := CTOD("30/02/2012"))
MsgStop("Fecha erronea !")
ENDIF
Saludos
Re: Control fecha proba esto.
Posted: Tue Aug 07, 2012 9:34 am
by 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 )
//--------------------------------------------------------------------------//
Re: Control fecha
Posted: Tue Aug 07, 2012 12:35 pm
by 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.
Re: Control fecha
Posted: Tue Aug 07, 2012 4:23 pm
by acuellar
Juan Carlos
Para sacar el último día podes usar esta función
Saludos,
Adhemar
Re: Control fecha
Posted: Wed Aug 08, 2012 7:57 am
by 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