FoxPro/Visual FoxPro - Agregar a un linea de caracteres un comando

   
Vista:

Agregar a un linea de caracteres un comando

Publicado por Alejandro Chavarría (14 intervenciones) el 21/04/2014 20:43:21
Buenas Tardes,
Mi cerebro no tiene registro de cómo poder hacer ésto en foxpro:

Lo que quiero hacer es que en un texbox aparezca caracteres agregados por mí seguido de la fecha, es decir que aparezca "San pedro sula, 21 de abril del 2014". Pero no logro hacerlo

Lo unico que se me ocurre es lo siguiente:


1
thisform.txtfechalarga.Value= 'SAN PEDRO SULA, '             DATE() 

no se como adicionar la fecha, le coloco el signo +, &, and ....nada.
Espero que me ayuden con mi respuesta


PS: ahhh tambien para colocar en fecha larga (21 de abril del 2014) así que comando sería...



Estaré eternamene agradecido.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Agregar a un linea de caracteres un comando

Publicado por Fidel José (558 intervenciones) el 21/04/2014 23:08:35
Para sumar una cadena a una fecha, debes convertir la fecha a cadena:
thisform.text1.Value="La Fecha de Hoy es "+DTOC(date() )
Para saber el nombre de mes, y evitar el problema del idioma, te recomiendo que te crees una función de usuario:
Por ejemplo:
thisform.text1.Value="Hoy es "+transform(day(date()))+" de "+NombreMes(month(date()))+" de "+transform(year(date()))


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
PROCEDURE NOMBREMES
LPARAMETERS xnMes,xnFlag
* xnMes: Número de mes, puede ser caracter
* xnFlag: 0 (.F.), Nada (Proper)
*		  1        Upper
*		  2        Lower
*         4        Short
* NombreMes( 5 , 1 + 4 ) -> "MAY"
*------------------------------------------
IF VARTYPE(xnMes)="C"
	xnMes=VAL(xnMes)
ENDIF
IF VARTYPE(xnMes)#"N" OR EMPTY(xnMes)
	xnMes=MONTH(DATE())
ENDIF
IF VARTYPE(xnFlag)#"N"
	xnFlag=0
ENDIF
IF !INLIST(xnFlag,0,1,2,4,5,6)
	xnFlag=0
ENDIF
 
local lcMes,lcName
lcmes="Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,Noviembre,Diciembre"
lcName=GetWordNum(lcMes,xnMes,",")
DO case
	CASE INLIST(xnFlag,0,4)
		lcName=IIF(xnFlag=4,LEFT(lcName,3),LcName )
	CASE INLIST(xnFlag,1,5)
		lcName=UPPER(IIF(xnFlag=5,LEFT(lcName,3),LcName))
	CASE INLIST(xnFlag,2,6)
		lcName=LOWER(IIF(xnFlag=6,LEFT(lcName,3),LcName))
ENDCASE
RETURN lcName
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Agregar a un linea de caracteres un comando

Publicado por Alejandro Chavarría aleled05@gmail.com (14 intervenciones) el 28/04/2014 06:21:57
Gracias por contestarme josé. Me ha servido de maravilla.
Pero aun sigo sin entender cómo funciona. podrías explicármelo? (sí no es tanta la molestia claro)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar