elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Temas
Páginas: [1]
1  Programación / Programación Visual Basic / codigo para obtener los años cumplidos en VF 6.0 en: 25 Octubre 2005, 17:23 pm
fecha= date()
update coosalud set fechactual=fecha  where numcon= '25'

select count(*) as contar, fechanac as fn,fechactual as fa from coosalud where numdoc= '1070587053' into cursor Matriz
res=(year(fa) - year(fn))
dat= str((month(fa))+ (12 - month(fn)),2,2)
mes= month(fa)+ (12 - month(fn))
año= str(res,2,2)
año1= (res - 1)
rpt= str(año1,2,2)

if res > 1 then
      if month(fn) > month(fa) then
         año= (res - 1)
         update coosalud set edad=rpt, unidad='1'  where coddep= '15'
      else
           update coosalud set edad=año, unidad='1'  where coddep= '15'
      endif
   else
      if month(fa) < month(fn) then
         update coosalud set edad=dat, unidad='2' where coddep= '15'
       Else
          rta= val(str(month(fa)- month(fn)))
         update coosalud set edad=mes, unidad='2' where coddep='15'
       Endif
   EndIF

.... por favor si lo mejoras... publica las mejoras como
teniendo en cuenta tambien los dìas esta hecho todavia
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines