FoxPro/Visual FoxPro - guardar solo el nombre del dia..

Como guardo o le doy el valor a un text de solo el dia de una fecha ingresada.

por ejemplo:

02/28/2007 = Miercoles

He visto la funcion Cdow, pero no logro pasar el valor del Display a un textbox.

Gracias.

Thisform.txtdia.value = Cdow(fecha)

Saludos..Plinio..

Oye, haz de cuenta que primero escriben una fecha en un textbox en formato
ctod(" / / "). Bueno entonces seria:

Thisform.txtdia.value=Cdow(Thisform.fecha.value) asi??

Gracias

Neo si lo que quieres es guardar el nopmbre del dia pues tomalo de ese textbox

REPLACE MiCampoNombreDia WITH CDOW (Thisform.txtFecha.Value)

Suerte

Oye como lo cambio a Español...por codigo o por Api o alguna .dll

Gracias, me sirvió de mucho.

Cualquiera de las 2 que te guste mas neo las 2 funcionan


FUNCTION sp_FechaApal(dFecha_a_Conv)
Local sMes as string , sSem as string, cDia as string, cMes as string
sMes='Enero Febrero Marzo Abril Mayo Junio Julio Agosto SeptiembreOctubre Noviembre Diciembre'
sSem='Domingo Lunes Martes MiercolesJueves Viernes Sabado'
cDia=Allt(SubStr(sSem, ((Dow(dFecha_a_Conv)*9)-9)+1, 9))
cMes=Allt(SubStr(SMes, ((Month(dFecha_a_Conv)*10)-10)+1,10))
Return cDia + ' '+Allt(Str(Day(dFecha_a_Conv)))+ ' de '+ cMes + ' de '+ Allt(Str(Year(dFecha_a_Conv)))
EndFunc


FUNCTION lFecha(tcFecha)
LOCAL aDias(7), aMeses(12)
aDias[1]="Domingo "
aDias[2]="Lunes "
aDias[3]="Martes "
aDias[4]="Miércoles "
aDias[5]="Jueves "
aDias[6]="Viernes "
aDias[7]="Sábado "
aMeses[1]="Enero"
aMeses[2]="Febrero"
aMeses[3]="Marzo"
aMeses[4]="Abril"
aMeses[5]="Mayo"
aMeses[6]="Junio"
aMeses[7]="Julio"
aMeses[8]="Agosto"
aMeses[9]="Septiembre"
aMeses[10]="Octubre"
aMeses[11]="Noviembre"
aMeses[12]="Diciembre"
RETURN TRANSFORM(DAY(tcFecha),"@L 99")+" de " +aMeses(MONTH(tcFecha)) + " de " + TRANSFORM(YEAR(tcFecha),"@L 9999")
ENDFUNC


Suerte