Hola
lucianinski, por lo que se puede apreciar, está correcto y debería funcionar ese procedimiento, salvo algunas incoherencias en el tratamiento de los tipos de datos:
Código vb:
Ver originalD = D - t1 'D es de tipo Integer y t1 es Double, por lo tanto en esta operación se pierden los decimales, ejemplo: si D = 1000 y t1 = 23,75, D - t1 dará como resultado 976 y no 976,25
Por lo que concluyo que el error está en otro lado.
Saludos cordiales!