you can try to create a measure
Measure = if(max('Calendar'[Date])>=today(),1)
add this measure to visual filter and set to 1