function primerDiaMes()
		dim dia, mes, anio 
		  dia = "01"
		  mes = right("00" & month(date()),2)
		  anio = year(date())
		 form.txtFecIni.value = dia & "/" & mes & "/" & anio
		end function		
	
		function ultimoDiaMes()
		dim i, mes, anio
		dim fecAux, fecMesAux
			mes = cint(month(date()))
			anio = year(date())
			fecMesAux = cdate("28/" & mes & "/" & anio)
			for i = 1 to 4
				fecAux = dateAdd("d",i,fecMesAux)
				if cint(month(fecAux)) > mes then
					fecAux = dateAdd("d",-1,fecAux)
					exit for		
				end if
			next		
			form.txtFecFin.value = right("00" & day(fecAux),2) & "/" & right("00" & month(fecAux),2) & "/" & year(fecAux)			
		end function