border
VB 6
 
 
/

Retroceder   VB-MUNDO - Visual Basic, y mucho mas > Programacion > Visual Basic .NET
Olvidó Password? Registrarse!
Registrarse FAQDonate Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos

Visual Basic .NET Todas las Versiones de Visual Basic .NET

El Mejor Hosting .NET Framework 4.0

En VB-MUNDO usamos el increible servicio de SmarterASP

Respuesta
 
LinkBack (1) Herramientas
  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: 504
Créditos: 16.718
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: 798
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-a%F1os-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 14:52:11.

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


right
Inactive Reminders By Icora Web Design