Power Builder - convertir fecha a texto

buenas, alguien sabe convertir fecha a texto, yo obtengo la fecha por ejemplo de hoy
01/01/2007 y quiero convertirlo a texto es decir 01 de Enero del 2007
gracias

Tienes que crear una rutina como esta:

Date ld_fecha
Integer li_mes
String ls_mes, is_dia, is_year, ls_fechalet

ld_fecha = Today( )
ls_dia = String(day(ld_fecha))
li_mes = Month(ld_fecha)
ls_year = String(Year(ld_fecha))

Choose Case li_mes
Case 1
ls_mes = ' de Enero de '
Case 2
ls_mes = ' de Febrero de '
Case 3
ls_mes = ' de Marzo de '
Case 4
ls_mes = ' de Abril de '
Case 5
ls_mes = ' de Mayo de '
Case 6
ls_mes = ' de Junio de '
Case 7
ls_mes = ' de Julio de '
Case 8
ls_mes = ' de Agosto de '
Case 9
ls_mes = ' de Septiembre de '
case 10
ls_mes = ' de Octubre de '
Case 11
ls_mes = ' de Noviembre de '
Case 12
ls_mes = ' de Diciembre de '
End Choose

ls_fechalet = ls_dia + ls_mes + ls_year

Si es en un datawindow tienes que hacer algo similar.
Espero que te sea de ayuda.

David Ochoa
Consultores Ciberfin, S. A. de C. V.
[email protected]

el codigo siguiente corresponde a una función general creada con el objetivo de devolver la fecha en formato fecha larga a partir de una fecha dada como parametro.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//
// Nombre : f_fecha larga
// Objectivo : devolver fecha larga
// Creado : Jorge E
// Fecha Creación : 20/09/2006
// Argumentos :date ad_fecha
// retorno : string
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Integer li_dia,li_mes,li_anio
string ls_mes, ls_fecha

if IsNull(ad_fecha) then return ""

li_dia = day(ad_fecha)
li_mes = month(ad_fecha)
li_anio = year(ad_fecha)

Choose Case li_mes
case 1 ; ls_mes = "Enero"
case 2 ; ls_mes = "Febrero"
case 3 ; ls_mes = "Marzo"
case 4 ; ls_mes = "Abril"
case 5 ; ls_mes = "Mayo"
case 6 ; ls_mes = "Junio"
case 7 ; ls_mes = "Julio"
case 8 ; ls_mes = "Agosto"
case 9 ; ls_mes = "Setiembre"
case 10 ; ls_mes = "Octubre"
case 11 ; ls_mes = "Noviembre"
case 12 ; ls_mes = "Diciembre"
End Choose

return String(li_dia,"00") + " de " + ls_mes + " del " + string(li_anio,"0000")

para utilizarla
st_1.text = f_fecha_larga(today())

string ls_meses[] = {"Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", &
"Agosto", "Setiembre", "Octubre", "Noviembre", "Diciembre"}

return replace(string(ad_fecha, 'dd \de \de yyyy'), 7, 0, ls_meses[month(ad_fecha)])

Saludos,

Michel

WebBlog de PowerBuilder: http://conpb.blogspot.com

Yo tengo una ventana con un DW freeform donde imprimo un formato y lo unico que requiero es que se ponga la fecha de hoy, pero requiero que sea en formato largo (de texto). El campo de fecha es un computed field con la funcion today().

Adjunto 2 imagenes para que vean mejor los detalles:

• fecha-a-Texto.zip(519,0 KB)