Formatiranje dana u sedmici

Code:
program petlja3;
        uses crt;
var
   i,n,s:integer;
begin
     clrscr;
     textcolor(7);
     gotoXy(1,1);
     writeln('--------------------------------------------------------------------------------');
     textcolor(20);
     gotoXy(25,2);
     writeln('################################');
     gotoXy(25,3);
     writeln('************POCETAK************* ');
     gotoXy(25,4);
     writeln('################################');
     writeln;
     textcolor(yellow);
     writeln('Unesi broj ');
     read(n);
     s:=1;
     textbackground(blue);
     textcolor(0);
     write(1);
     for i:=2 to n do
         begin
              write('+',i);
              s:=s+i;
         end;
     write('=',s);
     writeln;
     textbackground(0);
     textcolor(20);
     gotoXy(25,10);
     writeln('################################');
     gotoXy(25,11);
     writeln('!!!!!!!!!!!!!KRAJ!!!!!!!!!!!!!!! ');
     gotoXy(25,12);
     writeln('################################');
     writeln;
     textcolor(blue);
     writeln('Reci zar nije COOL....:DDD ');
     gotoXy(67,20);
     writeln('By Shimmy');
     textcolor(7);
     gotoXy(1,21);
     writeln('--------------------------------------------------------------------------------');
     repeat until keypressed;
end.

Code:
=IF(WEEKDAY(C3)=1;"je nedjelja";"nije nedjelja")

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cColor As Integer, iDay As Integer
If Target.Column <> 3 Then Exit Sub //ovo je tvoja kolona
If Not IsDate(Target) Then
    MsgBox "Please enter a Valid Date"
    Target.Select
    Exit Sub
End If
iDay = Weekday(Target)

Select Case iDay
    Case Is = 1: cColor = 3
    Case Is = 2: cColor = 6
    Case Is = 3: cColor = 22
    Case Is = 4: cColor = 10
    Case Is = 5: cColor = 46
    Case Is = 6: cColor = 42
    Case Is = 7: cColor = 29
End Select
    
Range(Target.Offset(0, -2), Target).Interior.ColorIndex = cColor
    

End Sub