FoxPro/Visual FoxPro - doble pregunta en vfox

   
Vista:

doble pregunta en vfox

Publicado por banhner (1 intervención) el 27/10/2013 17:36:03
quiero saber si alguien me puede decir como formular doble pregunta en visual fox, necesito sacar el signo de zodiaco de edades ingresadas
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

doble pregunta en vfox

Publicado por Fidel (558 intervenciones) el 28/10/2013 13:33:38
Puedes emplear una función como esta:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
PROCEDURE GETZODIAC(xdFecha)
* Obtener el signo del Zodíaco a partir de una fecha dada
*  ldFEcha=Date(1936,10,4)
* lcSigno=GetZoidac(ldFecha)
***************************************************************
LOCAL lnDia,lnMes,lcResp
lcresp=""
LOCAL ARRAY gazod(24,4)
gaZod[1,1]=1
gaZod[2,1]=1
gaZod[3,1]=2
gaZod[4,1]=2
gaZod[5,1]=3
gaZod[6,1]=3
gaZod[7,1]=4
gaZod[8,1]=4
gaZod[9,1]=5
gaZod[10,1]=5
gaZod[11,1]=6
gaZod[12,1]=6
gaZod[13,1]=7
gaZod[14,1]=7
gaZod[15,1]=8
gaZod[16,1]=8
gaZod[17,1]=9
gaZod[18,1]=9
gaZod[19,1]=10
gaZod[20,1]=10
gaZod[21,1]=11
gaZod[22,1]=11
gaZod[23,1]=12
gaZod[24,1]=12
 
gaZod[1,2]=1
gaZod[2,2]=20
gaZod[3,2]=1
gaZod[4,2]=19
gaZod[5,2]=1
gaZod[6,2]=21
gaZod[7,2]=1
gaZod[8,2]=21
gaZod[9,2]=1
gaZod[10,2]=21
gaZod[11,2]=1
gaZod[12,2]=21
gaZod[13,2]=1
gaZod[14,2]=21
gaZod[15,2]=1
gaZod[16,2]=22
gaZod[17,2]=1
gaZod[18,2]=23
gaZod[19,2]=1
gaZod[20,2]=23
gaZod[21,2]=1
gaZod[22,2]=23
gaZod[23,2]=1
gaZod[24,2]=21
 
gaZod[1,3]=19
gaZod[2,3]=31
gaZod[3,3]=18
gaZod[4,3]=29
gaZod[5,3]=20
gaZod[6,3]=31
gaZod[7,3]=20
gaZod[8,3]=30
gaZod[9,3]=20
gaZod[10,3]=31
gaZod[11,3]=20
gaZod[12,3]=30
gaZod[13,3]=20
gaZod[14,3]=31
gaZod[15,3]=21
gaZod[16,3]=31
gaZod[17,3]=22
gaZod[18,3]=30
gaZod[19,3]=22
gaZod[20,3]=31
gaZod[21,3]=22
gaZod[22,3]=30
gaZod[23,3]=20
gaZod[24,3]=31
 
gaZod[1,4]=[Capricornio]
gaZod[2,4]=[Acuario]
gaZod[3,4]=[Acuario]
gaZod[4,4]=[Piscis]
gaZod[5,4]=[Piscis]
gaZod[6,4]=[Aries]
gaZod[7,4]=[Aries]
gaZod[8,4]=[Tauro]
gaZod[9,4]=[Tauro]
gaZod[10,4]=[Géminis]
gaZod[11,4]=[Géminis]
gaZod[12,4]=[Cáncer]
gaZod[13,4]=[Cáncer]
gaZod[14,4]=[Leo]
gaZod[15,4]=[Leo]
gaZod[16,4]=[Virgo]
gaZod[17,4]=[Virgo]
gaZod[18,4]=[Libra]
gaZod[19,4]=[Libra]
gaZod[20,4]=[Escorpio]
gaZod[21,4]=[Escorpio]
gaZod[22,4]=[Sagitario]
gaZod[23,4]=[Sagitario]
gaZod[24,4]=[Capricornio]
 
 
lnDia=DAY(xdFecha)
lnMes=MONTH(xdFecha)
FOR i=1 TO 24
	IF gazod[i,1]=lnMes
		IF BETWEEN(lnDia,gazod[i,2],gazod[i,3])
			lcREsp=gazod[i,4]
			EXIT
		ENDIF
	ENDIF
NEXT
RETURN lcREsp
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