deviation between days vba code

[harjotawang]

i have trobule to solve deviation between days.
if today friday, then deviation value between the days is
monday 3 day
tuesday 4 day
wednesday 5 day
thursday 6 day
friday 0 day
saturday 1 day
sunday 2 day
and continue with other days name

 

[footoo]

Here's a formula :

=SUBSTITUTE(ABS(MOD(WEEKDAY(TODAY())-WEEKDAY(A1),7)-7),7,0)+0

 

[harjotawang]

tks a lot sir. you help my day ????