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

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  codigo para obtener los años cumplidos en VF 6.0
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: codigo para obtener los años cumplidos en VF 6.0  (Leído 1,414 veces)
walex

Desconectado Desconectado

Mensajes: 21


spanish


Ver Perfil
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


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
BitCoin: pronósticos cumplidos
Noticias
wolfbcn 2 2,920 Último mensaje 23 Junio 2011, 23:39 pm
por Debci
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines