Sumar fechas

Hola experto necesito de tu ayuda tengo este código, pero el problema es cuando llego a la cuota 10 el año de la fecha donde muestro los resultados sigue con 2009 cuando en realidad ya seria 2010 puedes ayudarme a solucionar este problema o quizás tengas una mejor idea gracias
public resul
do case
case this.value="1"
resul=30
case this.value="2"
resul=60
case this.value="3"
resul=90
case this.value="4"
resul=120
case this.value="5"
resul=150
case this.value="6"
resul=180
case this.value="7"
resul=210
case this.value="8"
resul=240
case this.value="9"
resul=270
case this.value="10"
resul=300
case this.value="11"
resul=330
case this.value="12"
resul=360
endcase
resultado=date()+(resul)
thisform.text3.value=resultado

2 Respuestas

Respuesta
1
Que quieres hacer con este código
El código esta evaluando que un textbox sea alguno de esos doce valores, estas seguro que lo estas escribiendo bien.
Al sumar a una fecha un numero N de días este aumenta todo tanto el día como el mes y el año, por lo tanto revisa que estés digitando bien los valores.
Gracias amigo falto un thisform.refresh, bueno en realidad lo que necesito es que cada vez que coloque un numero en el combo lo sume con la fecha actual y así obtener el resultado de la fecha futura, pero me dijeron que utilizara el FOR pero no entiendo bien como funciona me puedes ayudar con algunos ejemplos gracias.
Lo único que tienes es que hacer lo que estas diciendo
A una fecha se le pueda sumar un numero y esto me dará como resultado la fecha futura como tu la llamas
fechafut= date()+diasasumar
Respuesta
1
Asumo que lo quieres es generar los recibos y calcular la fecha de vencimiento de las cuotas, si es así, debes crear un arreglo con la cantidad de días correspondientes al mes en curso
DIMENSION Adiasmes[12]
Adiasmes[1]=31&&Enero
Adiasmes[2]=28&&Febrero
....
AdiasMes[12]=31    &&Diciembre
luego calcular desde la fecha de emision
FechaEmision=date()
YearVence=YEAR(FechaEmision)
FOR x=1 to 12
mesSiguiente=MONTH(FechaEmision)+1
IF mesSiguiente>12
  MesSiguiente=1
  YearVence=YearVence+1
ENDIF
FechaVence=DATE(YearVence,MesSiguiente,aDiasMes[MesSiguiente])
Endfor
Espero sea de ayuda, si no es así enviame más detalles

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Aplicaciones con Do CaSe Visualfox

Necesito ejemplos de unos programas con do case pero no se que hacer y me cuesta un poco porque es en formulario de visual fox con ese porque que io sepa es solo para hacer Menús.
1 respuesta

Ayuda por favor con teclas de función.

Que tala a todos los colaboradores de esta grandiosa, recién me he registrado y es por que tengo un problema con un punto de venta que estoy realizando como proyecto final de una material. Mi problema es el siguiente: Tengo una ventana de Ventas en...
1 respuesta

Producto condicional

Pregunto si hay una fórmula que multiplique los valores de 2 columnas, considerando que se cumplan 2 o más condiciones en otras columnas y luego sume estos productos, lo cual sería algo así como aplicar una fórmula del tipo SUMAPRODUCTO. SI (aunque...
3 respuestas

Deseo sumar campos desde un formulario

Me gustaría que me ayudase a sumar campos de un formulario sin que sea utilizando el generador de expresiones, ya que quiero que el resultado de la suma se guarde en la tabla en la que esta basada el formulario. Tengo algo de idea en la creación de...
1 respuesta

Introducir solo números ami calculadora en vb

Quisiera saber si me pueden ayudar en esto estoy haciendo una calculadora en visual basic 6.0 y no encuentro la forma de introducir los números que tengo en la calculadora por medio del teclado dela compu, osea intrucir solo nmeros desde ya
1 respuesta

Calcular Horas y Minutos Trabajados

Quiero calcular las horas trabajadas de un empleado. Yo tengo mi campo Hor_Ing, Hor_Sal y Hor_Trb. Y en la tabla se graban así: Hor_Ing: 07:58, Hor_Sal: 17:05. Pero en Hor_Trb: aquí debería después de Calcular grabar las horas y minutos que trabajo...
5 respuestas