Calcular Meses y Dias

zorrillafrancis · #1 (**permalink**) 02/02/2011, 20:45

Hola Amigos como puedo calcular cuantos dias han transcurrido desde el 10/Ago/2010 hasta el 10/Ene/2010 ?

He utilizado la function Datediif pero esta solo me trae los meses transcurrido sin tomar en cuenta los dias...

Gracias amigos espero su ayuda...

zorrillafrancis · #2 (**permalink**) 03/02/2011, 18:48

Sera que nadie sabe esto aqui...

gakutaru · #3 (**permalink**) 04/02/2011, 17:45

DateDiff tiene la siguiente estructura:
DateDiff(Intervalo, fecha1, fecha2)
para saber los dias solo utiliza el
DateInterval.Day
en internavlo...
aqui hay mas info -> http://msdn.microsoft.com/en-us/libr...6f(VS.80).aspx

zorrillafrancis · #4 (**permalink**) 04/02/2011, 20:11

Te comprendo gakutaru pero eso no es sificiente. porque el datediif determina los meses que han pasado sin tomar en cuenta los dias...

Ej: del 15/Ene/2011 hasta el 10/Feb/2011 la funcion me devolvera 1 pero en realidad no ha pasado un mes...

Gracias por tu ayuda. Si encuentras la mandera me ayudar please....

gakutaru · #5 (**permalink**) 04/02/2011, 20:29

y que esperas que muestre?
que diga han pasado 0,90 meses?
o la cantidad de dias?

zorrillafrancis · #6 (**permalink**) 04/02/2011, 20:46

Te dare mi idea de lo que quiero hacer para que entiendas mejor.

Estoy desarrollando un modulo que cobre un recargo cada x fecha..

Entonces si yo configuro la fecha para el mes de enero. que el dia 15/01/2011 se cobrara recargo.

Si la persona que no ha pagado diciembre y viene el dia 10/01/2011 a pagar no se puede cobrar recargo.

Quiero que me muestre 0 si no ha pasado la fecha de vencimiento de recargo.... Ver porque quiero que sea preciso.

Espero que ahora me entiendas...

gakutaru · #7 (**permalink**) 04/02/2011, 20:49

en ese caso con el date diff puedes obtener un negativo, asi si es negativo por codigo dices que es 0. y lo haces con el interval.day

zorrillafrancis · #8 (**permalink**) 04/02/2011, 20:59

Con un interval.day no me funcionara porque existe la posibilidad de que la persona dure 2 o 3 hasta 4 meses sin pagar... la cual por cada mes se le cobrara recargo. Tambien si es por dias el calculo no sera preciso porque hay dias de 31 etc..

gakutaru · #9 (**permalink**) 04/02/2011, 21:25

Ya mira.
el datediff como te digo devuelve negativo

Código vb:

Ver original<html>
<head>
<script runat="server">
    Sub Page_Load()
        Dim fchVence As DateTime = "15/01/2011"
        Dim fch2 As DateTime = "10/01/2011"
        lblFecha.Text = DateDiff(DateInterval.Month, fchVence, fch2)
    End Sub
</script>
</head>
<body>
<form runat="server">
<asp:Label runat="server" ID="lblFecha"></asp:Label>
</form>
</body>
</html>

esto devuelve 0
si cambias las fechas

Dim fchVence As DateTime = "15/01/2011"
Dim fch2 As DateTime = "31/05/2011"
lblFecha.Text = DateDiff(DateInterval.Month, fchVence, fch2)

devuelve 4
si kieres saber la cantidad de meses y dias exactos juega con el date difff y date add
x ejemplo

Código vb:

Ver originalSub Page_Load()
        Dim fchVence As DateTime = "15/01/2011"
        Dim fch2 As DateTime = "31/05/2011"
        Dim intMeses As Integer = DateDiff(DateInterval.Month, fchVence, fch2)
        lblFecha.Text = intMeses
        Dim fch3 As DateTime = DateAdd(DateInterval.Month, intMeses, fchVence)
        lblFecha.Text = fch3
        Dim intDias As Integer = DateDiff(DateInterval.Day, fch3, fch2)
        lblFecha.Text = "vencio el:  " & fchVence & ", hoy es: " & fch2 & ", la fecha esta pasada en " & intMeses & " meses y " & intDias & " dias"
    End Sub

devolvera
vencio el: 15-01-2011, hoy es: 31-05-2011, la fecha esta pasada en 4 meses y 16 dias
que es una fecha mas exacta.
ahora q tienes los valores en enteros, puedes evaluarlos y saber de cuanto es la multa.
usa funciones para saber mas exactamente esto.

zorrillafrancis · #10 (**permalink**) 04/02/2011, 21:46

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