Formatiranje dana u sedmici

[ azzo-kSv @ 11.08.2011. 13:03 ] @

Moze li mala pomoc,
Imam tabelu u kojoj jedna kolona sluzi za unos datuma. Moze li se formatirati ta kolona tako da kada unesem datum, a to po kalendaru jeste nedelja, da mi taj unos promjeni boju (npr. crvena)?
Hvala!

[ Marko Simulak @ 15.08.2011. 16:21 ] @

Pa nz ako ce ti pomoci, ja sam se nesto oko tog slicnog zezao, mnogo jednostavnije, al cisto da vidim kako rade te boje i te gluposti, tvoje je slozenije..a vidi ako ce ti pomoci...:D

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.

p.s ==> stavi da ti je paskal fullscreen...(alt+ent)...lepse je...:D

[ azzo-kSv @ 16.08.2011. 08:33 ] @

Marko,
ja sam tvoju formulu samo iskopirao u View Code radnog lista i nista se ne desava. Jesam li nesto propustio da uradim?
Da pojasnim: formatirao sam kolonu za datum tako da mi, kada otkucam datum daje npr. "nedelja, 15 jul", pa sam mislio da tu nedelju nekako visuelno isticem nekom funcijom.. Jel' to ide?
Hvala!!

[ savkic @ 16.08.2011. 11:30 ] @

> ja sam tvoju formulu samo iskopirao u View Code radnog lista i nista se ne desava. Jesam li nesto propustio da uradim?
> Da pojasnim: formatirao sam kolonu za datum tako da mi, kada otkucam datum daje npr. "nedelja, 15 jul",
> pa sam mislio da tu nedelju nekako visuelno isticem nekom funcijom.. Jel' to ide?

Šta ti tačno koristiš, DBGrid? Moraš raditi custom iscrtavanje sadržaja ćelije, bilo je ranije reči o sličnim stvarima pa pretraži grupu za OnDrawDataCell pojmom.

[ azzo-kSv @ 16.08.2011. 12:09 ] @

Za mene je ovo sto si napisao "spansko selo".. :)

[ captPicard @ 17.08.2011. 07:35 ] @

U čemu ti je ta kolona koju formatiraš? U DBGridu u ListViewu...? Ne možemo ti pomoči ako neznamo šta radiš.

[ azzo-kSv @ 17.08.2011. 08:04 ] @

Evo kako otprilike izgleda ta tabela.
E sada, mislio sam da formatiram kolonu 'C' tako da, kada je dan u sedmici 'nedelja', da celija pocrveni ili se istakne na neki nacin.
Moze li to, pod uslovom da nije mnogo komplikovano?

[ captPicard @ 17.08.2011. 09:51 ] @

Ma ček, kakve veze ima excel sa Delphi forumom?

Ovo ti je formula, ali morat češ se pozabaviti makronaredbama mi se čini:

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

Makro: (našao sam na netu, morat češ izmijeniti za svoj slučaj)

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

[ azzo-kSv @ 17.08.2011. 11:21 ] @

Je li sramota reci, ali ja ne znam da ovo implementiram!?

_{[Ovu poruku je menjao azzo-kSv dana 17.08.2011. u 12:36 GMT+1]}

[ captPicard @ 17.08.2011. 11:46 ] @

Citat:

azzo-kSv: Je li sramota reci, ali ja ne znam da ovo implementiram!?

_{[Ovu poruku je menjao azzo-kSv dana 17.08.2011. u 12:36 GMT+1]}

Nije sramota reči, ali ovo nije excel podforum, barem kod otvaranja teme pripazite da stavite temu u odgovarajući podforum, bar toliko nije teško se potruditi.

Vezano za ovo šta ne znate, recite gdje ste zapeli pa čemo pomoči?