Set: Current Calendar Day (Date)

CREATE STATIC SET CURRENTCUBE.[Current Calendar Day (Date)]
 AS filter(
  [Date].[Calendar Date].[Calendar Day],
  [Date].[Calendar Date].Properties( "Is Current Date" ) <> "0"
).item(0), DISPLAY_FOLDER = 'Current Dates';