Ultimo día del mes
Buenas tardes
Le escribo con el fin de pedirle con todo respeto una pequeña asesoría, pasa lo siguiente, necesito una rutina para saber el ultimo día del mes. Agradezco la atención prestada gracias
Le escribo con el fin de pedirle con todo respeto una pequeña asesoría, pasa lo siguiente, necesito una rutina para saber el ultimo día del mes. Agradezco la atención prestada gracias
1 respuesta
Respuesta de falvarez
1
Estimado/a ligarreto:
Escribe el siguiente codigo:
Set Date French
Set Century On
VFECHA= Date()
VMES=Month(VFECHA)+1
VANIO=Year(VFECHA)
If VMES=13
VMES=1
VANIO=Year(VFECHA)+1
EndIf
VULTIMA_FECHA='01/'+Alltrim(Str(VMES,2))+'/'+Alltrim(Str(VANIO,4))
VULTIMA_FECHA=CtoD(VULTIMA_FECHA)-1
Wait DtoC(VULTIMA_FECHA) Wind
Espero te sea de utilidad. SUERTE!
Escribe el siguiente codigo:
Set Date French
Set Century On
VFECHA= Date()
VMES=Month(VFECHA)+1
VANIO=Year(VFECHA)
If VMES=13
VMES=1
VANIO=Year(VFECHA)+1
EndIf
VULTIMA_FECHA='01/'+Alltrim(Str(VMES,2))+'/'+Alltrim(Str(VANIO,4))
VULTIMA_FECHA=CtoD(VULTIMA_FECHA)-1
Wait DtoC(VULTIMA_FECHA) Wind
Espero te sea de utilidad. SUERTE!
