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,
Un Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
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.
dDate := ctod( cFecha )
isGoodDate := Â ALLTRIM( DTOC( dDate ) ) == ALLTRIM( cFecha )Muchas gracias a ambos, me quedo con la de Reinaldo.
Este foro es una joya.
Gracias.
Un Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
FiveWidi:
Ahà te va otra
LOCAL dFecha := CTOD(" / / ")
IF EMPTY(dFecha := CTOD("30/02/2012"))
MsgStop("Fecha erronea !")
ENDIF
Saludos
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 )
//--------------------------------------------------------------------------//
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.
DaysInMonth(Month(Date()))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