promedios de datos en rango de hrs

[claudiovf]

hola:

Estoy trabajando con macros de excel y nec sacar promedio de datos que se encuntren en un determinado rango de hora. Los rango de Horas van cada media hora 5:30, 6:00, 6:30


los datos son los siguientes:

Código XML:

5:30:00 0,002916667
5:40:00 0,002916667
5:50:00 0,003055556
6:00:00 0,003055556
6:10:00 0,003032407
6:20:00 0,003310185
6:30:00 0,003310185
6:37:30 0,003391204
6:45:00 0,003391204
6:52:30 0,003599537
7:00:00 0,003599537
 

tengo el siguiente codigo:

Dim i As Integer
Dim x As Integer
Dim y As Integer
Dim p As Integer

Dim hora As Double
Dim hora1 As Double
Dim patito As Double



i = 4
x = 14
While Worksheets("Hoja4").Cells(i, 1) <> ""


hora1 = CDbl(Worksheets("Hoja4").Cells(i + 1, 1))
hora = CDbl(Worksheets("Hoja4").Cells(i, 1))


y = 0
patito = 0
While CDbl(Worksheets("Diferencias").Cells(x, 1)) < hora1

patito = patito + Worksheets("Diferencias").Cells(x, 2)

y = y + 1
x = x + 1
Wend

Worksheets("Hoja4").Cells(i, 2) = (patito / y)

i = i + 1
Wend

los resultados, de las dos primeras medias horas me dan correcto, pero el problema se me presenta en los siguientes rangos ya que el ciclo itera una vez más de lo que debiera.

Código .xls:

Hora    promedio    resultados que debiera ser
5:30:00 0,002962963 0,002962963
6:00:00 0,003132716 0,003132716
6:30:00 0,003458333 0,003423032
7:00:00 0,004100879 0,004000611
 

Como pueden observar el problema se me presenta de las 6:30 en adelante.

por favor ayudenme!!!!!

[claudiovf]

Nadie sabe algo de este tema?