- {
- #WARNING: if index>=2 && series start at date >0h, result must be shifted
- #Convention: if first date asked, return first matching index (i.e.: 1)
- shift = 0
- if (integerIndex >= 2)
- {
- date1 = as.POSIXlt(data$getTime(1)[1])
- date2 = as.POSIXlt(data$getTime(2)[1])
- shift = (date1$year==date2$year && date1$mon==date2$mon && date1$mday==date2$mday)
- }
- return (integerIndex + shift)
- }