Hi @Clxmxnt25 ,
I made a test for your reference:
1\ OnVisible of the Screen:
UpdateContext({CurrentWeek:RoundDown((10 + (DateDiff(Date(Year(Today()), 1, 1), Today(), Days)+1) - (Weekday(Today())-1)) / 7, 0) + 1});
Clear(coldays);
ForAll(Sequence(7,(7-Weekday(DateValue("2021.1.1")-1))+(CurrentWeek-1)*7-6,1) As D,Collect(coldays, DateAdd(DateValue("2021.1.1"), D.Value)))
2\ Left icon:
UpdateContext({CurrentWeek:CurrentWeek-1});
Clear(coldays);
ForAll(Sequence(7,(7-Weekday(DateValue("2021.1.1")-1))+(CurrentWeek-1)*7-6,1) As D,Collect(coldays, DateAdd(DateValue("2021.1.1"), D.Value)))
3\ Right icon:
UpdateContext({CurrentWeek:CurrentWeek+1});
Clear(coldays);
ForAll(Sequence(7,(7-Weekday(DateValue("2021.1.1")-1))+(CurrentWeek-1)*7-6,1) As D,Collect(coldays, DateAdd(DateValue("2021.1.1"), D.Value)))
Result:

The result collection "coldays" is the table for using. DateValue("2021.1.1") need to be modified to like
DateValue(Concatenate(Text(CurrentYear),".1.1"))
Hope this helps.
Best regards,
Community Support Team _ Jeffer Ni
If this post helps, then please consider Accept it as the solution to help the other members find it.