04/02/2011, 21:46
|
| | | Fecha de Ingreso: mayo-2008
Mensajes: 139
Antigüedad: 16 años, 7 meses Puntos: 0 | |
| Respuesta: Calcular Meses y Dias
Muchas gracias mi hermano por el esfuerzo. pero aqui tambien tengo la solucion
Public Function EvalTiempo(ByVal Fecha1 As DateTime, ByVal FechaFinal As DateTime) As Integer
Dim Meses As Integer = 0
If Fecha1.AddMonths(1) >= FechaFinal Then
Return 0
Exit Function
End If
Do
If Fecha1 >= FechaFinal Then
Return Meses - 1
Exit Function
End If
Fecha1 = Fecha1.AddMonths(1)
Meses += 1
Loop
End Function |