[es] - Formatiranje dana u sedmici

azzo-kSv
Aleksander Janjic
KoToR

Član broj: 21966
Poruke: 143
*.49.crnagora.net.

Sajt: srednjaskolakotor.users.c..

+5 Profil

Formatiranje dana u sedmici

^{11.08.2011. u 13:03 - pre 154 meseci}

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!

Kingdom Saint Vraca

Odgovor na temu

Marko Simulak
123456adada

Član broj: 272268
Poruke: 104

+1 Profil

Re: Formatiranje dana u sedmici

^{15.08.2011. u 16:21 - pre 154 meseci}

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

Odgovor na temu

azzo-kSv
Aleksander Janjic
KoToR

Član broj: 21966
Poruke: 143
*.49.crnagora.net.

Sajt: srednjaskolakotor.users.c..

+5 Profil

Re: Formatiranje dana u sedmici

^{16.08.2011. u 08:33 - pre 154 meseci}

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!!

Kingdom Saint Vraca

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Formatiranje dana u sedmici

^{16.08.2011. u 11:30 - pre 154 meseci}

> 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.

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

azzo-kSv
Aleksander Janjic
KoToR

Član broj: 21966
Poruke: 143
*.crnagora.net.

Sajt: srednjaskolakotor.users.c..

+5 Profil

Re: Formatiranje dana u sedmici

^{16.08.2011. u 12:09 - pre 154 meseci}

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

Kingdom Saint Vraca

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Formatiranje dana u sedmici

^{17.08.2011. u 07:35 - pre 154 meseci}

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

Odgovor na temu

azzo-kSv
Aleksander Janjic
KoToR

Član broj: 21966
Poruke: 143
*.crnagora.net.

Sajt: srednjaskolakotor.users.c..

+5 Profil

Re: Formatiranje dana u sedmici

^{17.08.2011. u 08:04 - pre 154 meseci}

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?

Kingdom Saint Vraca

Prikačeni fajlovi

Book111.xls - 14.5k

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Formatiranje dana u sedmici

^{17.08.2011. u 09:51 - pre 154 meseci}

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

Odgovor na temu

azzo-kSv
Aleksander Janjic
KoToR

Član broj: 21966
Poruke: 143
*.crnagora.net.

Sajt: srednjaskolakotor.users.c..

+5 Profil

Re: Formatiranje dana u sedmici

^{17.08.2011. u 11:21 - pre 154 meseci}

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]}

Kingdom Saint Vraca

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Formatiranje dana u sedmici

^{17.08.2011. u 11:46 - pre 154 meseci}

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?

Odgovor na temu