SoloCodigo

Plantea bien tu problema:
por lo poco que te entendi es que quieres hacer un calendario en foxpro y bueno para eso ya existe controles ActiveX como el MS-Calendary q es como el calendario de windows.
Ahora si quieres tu ingresar una cadena de fecha y luego que te diga que dia de la semana (lunes, martes, etc) hay funciones para eso y bueno escribeme al alex_uba1981@hotmail.com, para que me digas que es lo que realmente quieres ?bye

? sp_Fecha(date())

 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