The code is a simple loop, populating cells.
- Code: Select all
event1 = ba.getEvents(14) 'SportID 14 = "Soccer - Fixtures"
For Each evnt1 In event1
event2 = ba.getEvents(evnt1.eventId)
For Each evnt2 In event2
diff = DateDiff("s", Now(), evnt2.startTime)
'If diff >= 0 Then
'Match not yet started
ActiveCell.Offset(0, 0).Value = CDate(Mid(evnt1.eventName, 10, 99))
ActiveCell.Offset(0, 0).NumberFormat = "dd mmmm"
ActiveCell.Offset(0, 0).HorizontalAlignment = xlLeft
ActiveCell.Offset(0, 1).Value = evnt2.eventName
ActiveCell.Offset(0, 2).Value = "'" & CStr(evnt2.eventId)
ActiveCell.Offset(0, 6).Value = evnt2.startTime
ActiveCell.Offset(1, 0).Select
'End If
Next
Next
I have tried evnt1.startTime and this also returns "00:00:00"

Does anyone know/have suggestions on how to get to the start time of a footy match?
Thanks
Art