border
VB 6
 
 
  1 links from elsewhere to this Post. Click to view. #1 (permalink)  
Antiguo 06-01-2008, 12:46:58
Avatar de Claudia
Usuario VIP del Foro
 
Registrado: ene 2005
Ubicación: Lima
Posts: 503
Créditos: 14.772
Claudia Valoración +2
Contactar con Claudia a través de MSN Contactar con Claudia a través de Yahoo
Predeterminado Funcion para Calcular EDAD en AÑOS , DIAS , MESES

hola a todos alguino de ustedes saber como puedo hacer una funcion que me devuelva como resultado la edad de una persona expresada en años meses y dias
__________________
Claudia Rossmery Chumpitaz Torres
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 06-01-2008, 17:31:20
Avatar de seba123neo
Moderador
 
Registrado: nov 2007
Ubicación: Argentina
Posts: 799
Créditos: 5.926
seba123neo Valoración +2
Predeterminado

Hola Claudia,se hace con las mismas funciones de fecha que se hacia en el visual basic 6(DateDiff,DateAdd,DateSerial,etc),mira aca te pase una de visual 6 a .net,se puede hacer de mucahs formas ,una es esta:

Código:
Public Class Form1

    Function TuEdad(ByVal dInicio As Date, ByVal dFin As Date) As String
        Dim Dias As Integer, Meses As Integer, Años As Integer
        Dim DiasMes As Integer

        Dias = Microsoft.VisualBasic.DateAndTime.Day(dFin) - Microsoft.VisualBasic.DateAndTime.Day(dInicio)
        Meses = DatePart("m", dFin) - DatePart("m", dInicio)
        Años = DateDiff("yyyy", dInicio, dFin)

        If Dias < 0 Then

            DiasMes = Microsoft.VisualBasic.DateAndTime.Day(DateSerial(Year(dInicio), Month(dInicio) + 1, 0))

            Dias = (DiasMes - Microsoft.VisualBasic.DateAndTime.Day(dInicio)) + Microsoft.VisualBasic.DateAndTime.Day(dFin)

            Meses = Meses - 1
        End If
        If Meses < 0 Then

            Meses = 12 + Meses

            Años = Años - 1
        End If
        TuEdad = MsgBox("Tenes " & Format(Años, "00" & " Años ") & Format(Meses, "00" & " Meses ") & Format(Dias, "00" & " Dias"))
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TuEdad("14/03/1987", Now)
    End Sub

End Class
saludos.
__________________
Todos somos ignorantes; lo que pasa es que no todos ignoramos las mismas cosas - Albert Einstein
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado

LinkBacks (?)
LinkBack to this Thread: http://www.foro.vb-mundo.com/f25/funcion-calcular-edad-anos-dias-meses-12673/
Escrito Por For Type Fecha
Visual Basic.NET [Archivo] - Pgina 8 - VB-MUNDO - Programacion Visual This thread Refback 25-04-2012 19:07:46

Temas Similares
Tema Autor Foro Respuestas Último Mensaje
¿Como calcular los meses y dias acumulados? lesthad Visual Basic.NET 0 16-05-2007 15:09:13
Cálculo fechas con meses de sólo 30 días? lindochico Visual Basic 6.00 3 29-11-2006 22:43:42
Obtener dias, meses y años de la resta de dos fechas samgar VBA (Excel, Word, Outlook, Access) 7 22-11-2006 22:47:29
calcular edad Spawn69 ORACLE 1 10-11-2005 15:59:30
Calcular la edad en Año mes y dia con SQL Server HECTOR SQL SERVER 2 01-06-2005 05:38:18


La franja horaria es GMT. Ahora son las 10:34:41.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios
© VB-MUNDO CO. Todos los derechos reservados
Tutoriales Premium | Juegos Online 


right

Programacion, vb 6, visual basic, foro programacion

Inactive Reminders By Icora Web Design