Perdon por poner pocos datos, en realidad luego de:
Código PHP:
li.ListSubItems.Add , , rsConsulta2("Documento")
debría de ir el calculo de la edad y luego
Código PHP:
li.ListSubItems.Add , , rsConsulta2("FN_Usuario") Fecha de Nacimiento del Usuario
Pero ya lo solucione de esta manera:
Primero declare la funcion Calcular_Edad
Código PHP:
Function Calcular_Edad(Fecha_Nacimiento As Variant) As Integer
Dim Años As Variant
If IsNull(Fecha_Nacimiento) Then
Calcular_Edad = 0
Exit Function
End If
Años = DateDiff("yyyy", Fecha_Nacimiento, Now)
If Date < DateSerial(Year(Now), Month(Fecha_Nacimiento), Day(Fecha_Nacimiento)) Then
Años = Años - 1
End If
Calcular_Edad = CInt(Años)
End Function
Lugo cargo el listview con untextbox que suma la cantidad de datos cargados al Listview
Código PHP:
Private Sub Cargar_Listado_Click()
Call Cargar_Listado1
End Sub
Private Sub Cargar_Listado1()
On Error Resume Next
Me.ListView1.ListItems.Clear
Call Calcular_Fechas
Dim EDAD As Integer
Dim Total As Double, i As Integer
Dim rsConsulta3 As ADODB.Recordset
Dim li As ListItem
Set rsConsulta3 = New ADODB.Recordset
rsConsulta3.Open "SELECT * FROM Usuarios WHERE FN_Usuario BETWEEN #" & Format(Text1, "mm/dd/yyyy") & "# AND #" & Format(Text2, "mm/dd/yyyy") & "#", cnn, adOpenDynamic, adLockBatchOptimistic
While (rsConsulta3.EOF = False)
Set li = ListView1.ListItems.Add(, , rsConsulta3("ID_Usuario"))
li.ListSubItems.Add , , rsConsulta3("Fecha_Ingreso")
li.ListSubItems.Add , , rsConsulta3("Documento")
li.ListSubItems.Add , , rsConsulta3("Nombre1")
li.ListSubItems.Add , , rsConsulta3("Nombre2")
li.ListSubItems.Add , , rsConsulta3("Apellido1")
li.ListSubItems.Add , , rsConsulta3("Apellido2")
[B] li.ListSubItems.Add , , (Calcular_Edad(rsConsulta3("FN_Usuario")) & " Años ")[/B] li.ListSubItems.Add , , rsConsulta3("FN_Usuario")
li.ListSubItems.Add , , rsConsulta3("Domicilio")
li.ListSubItems.Add , , rsConsulta3("Telefono")
rsConsulta3.MoveNext
Wend
'Suma los valores de la columna de los Subitems(7)
For i = 1 To ListView1.ListItems.Count
Total = ListView1.ListItems.Count
Next
TextTotalEdad = Total 'Asigna el valor Al TextBox
End Sub
Lokoman, como siempre Gracias por la precupacion.
Un abrazo José