Fecha inicio fecha final en power builder

Mostrar por defecto el primer día del mes y el ultimo día del mes. Lo utilizo para mostrar en mis reportes por fechas. De cada mes alguien me puede ayudar por favor.

1 respuesta

Respuesta
1

Tendrías que capturar la fecha del sistema para obtener el mes y año concatenarlo para la fecha inicial, para la fecha final suma 1 al mes capturado y usa la siguiente función

Relativedate(fecha, n) en el valor n coloca -1

MIRA ENCONTRÉ UN CÓDIGO

inicio: 01/03/2007
Final: 31/03/2007 (en teoria)...
Pues bien, te doy una solución para tu caso:
Date ld_fecha_inicio, ld_fecha_final
integer li_dia_ultimo
string ls_fecha_final
ld_fecha_inicio = Date ( String ( Today(),'dd/mm/yyyy' ) )
li_dia_ultimo = f_finmes ( Month ( ld_fecha_inicio), Year ( ld_fecha_inicio ) )
funcion f_finmes()
Crea una función externa donde recibe los parámetros de:
integer vr_mes, vr_axo
y retorna un valor de tipo integer
/* Código para determinar el último dia del mes, ponlo en el script de la funcion f_finmes() */
string ls_meses[12] = {'31','28','31','30','31','30','31','31','30','31','30','31'}
integer li_return
li_return = Integer ( ls_meses[vr_mes] )
if vr_mes = 2 then
if ( Int ( vr_axo / 4 ) - ( vr_axo / 4 ) ) = 0 then
li_return = 29
end if
end if
return li_return
cuando recuperes el valor de li_dia_ultimo, ramas la fecha final:
ls_fecha_final = String ( li_dia_ultimo )+'/'+String ( Month ( ld_fecha_final ) )+'/'+String ( Year ( ld_fecha_final ) )
ld_fecha_final = Date ( ls_fecha_final )
Incio: String ( ld_fecha_inicio ) = 01/12/2007
Final: String ( ld_fecha_final ) = 31/12/2007

Ayúdame

¿En la parte negrita me dice una función como?

string mes,anno,mes_1
date fecha_ini,fecha_fin
mes=right("0"+string(month(today())),2)
mes_1=right("0"+string(month(today())+1),2)
anno=string(year(today()))
fecha_ini=date("01/"+mes+"/"+anno)
fecha_fin=relativedate(date("01/"+mes_1+"/"+anno), - 1)
messagebox("",string(fecha_ini)+ "   "+string(fecha_fin))

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas