APORTE PARA LOS NOVATOS TRUCO
Publicado por DOUGLAS (107 intervenciones) el 21/02/2004 18:02:34
ESTE PEQUÑO VALICITO. LE RETORNA CUANTOS SABADOS HAY EN EL MES SOLO LE MODIFICAN EL PARAMETRO EN UN LISTINDX. DE UN COMBO BOX. Y RETORNARA CUANTO DIAS HAY EN UN MES DE CUALQUIER DIAS, SI LO LOGRAN MEJORAR ME ENVIAN UNA COPIA.
ESTE ES OTRO PROCEDIMIENTO _EOM(DATE())
QUE PLINIO LE DIO A OTRO PROGRAMADOR ESTA EN LA PAGINA DOS DE ESTE FORO. SE LLAMA LA PREGUNTA ULTIMO DIA DEL MES.
ESPERO LES SIRVA A MUCHOS.
YO LO OCUPO PARA SABER CUANTOS SABADOS TRAE EL MES PARA DEDUCIR EN NOMINA UN %.
SOLAMENTE LO VAN A AGREGAR A UNA RUTINAS
ULTIMODIAMES = _EOM(DATE())
xDIAc = Substr(Dtoc(ULTIMODIAMES),1,2)
@ 10,10 SAY WSABADO FONT "ARIAL",20
yDIAn = Int(Val(xDIAc))
STORE 0 TO TOT
For I = 1 To yDIAn
mitad1 = Substr(Dtoc(ULTIMODIAMES),3,9)
mitad2 = STR(I)
completa = mitad2+mitad1
XFECH = CTOD(completa)
If Dow(XFECH) = 7
TOT = TOT +1
ENDIF
ENDFOR
RETURN
ESTE ES OTRO PROCEDIMIENTO _EOM(DATE())
QUE PLINIO LE DIO A OTRO PROGRAMADOR ESTA EN LA PAGINA DOS DE ESTE FORO. SE LLAMA LA PREGUNTA ULTIMO DIA DEL MES.
ESPERO LES SIRVA A MUCHOS.
YO LO OCUPO PARA SABER CUANTOS SABADOS TRAE EL MES PARA DEDUCIR EN NOMINA UN %.
SOLAMENTE LO VAN A AGREGAR A UNA RUTINAS
ULTIMODIAMES = _EOM(DATE())
xDIAc = Substr(Dtoc(ULTIMODIAMES),1,2)
@ 10,10 SAY WSABADO FONT "ARIAL",20
yDIAn = Int(Val(xDIAc))
STORE 0 TO TOT
For I = 1 To yDIAn
mitad1 = Substr(Dtoc(ULTIMODIAMES),3,9)
mitad2 = STR(I)
completa = mitad2+mitad1
XFECH = CTOD(completa)
If Dow(XFECH) = 7
TOT = TOT +1
ENDIF
ENDFOR
RETURN
Valora esta pregunta
0