01 Eylül 2006, 00:13 | #1 | |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Tarih.. alias cal { if ($window(@cal) && $1 != -v) { window -c @cal } if ($1 == -v) { drawrect -snfr @cal $rgb(255,255,255) 1 0 0 166 168 | tokenize 32 $2- } else window -dpo +t @cal -1 -1 180 168 fixedsys 12 if (!$1) tokenize 32 $asctime(m) $asctime(yyyy) var %cal.c = drawtext -rn @cal $rgb(0,0,0) fixedsys 12, %cal.buf = Ocak,Şubat,Mart,Nisan,Mayıs,Haziran,Temmuz,Ağustos ,Eylül,Ekim,Kasım,Aralık, %cal.mon = $gettok(%cal.buf,$1,44), %cal.year = $2 , %i = 1, %cal.nd = $cal.monthday($2,$1) drawfill -snr @cal $rgb(255,255,255) $color($color(background)) 0 0 %cal.c $int($calc($calc(166 - $width(%cal.mon %cal.year,fixedsys,12)) / 2)) 5 %cal.mon %cal.year %cal.c 0 23 Pz Pzt Sa Ça Pe Cu Ct if ($asctime(mm yyyy) == $cal.lf($1) $2) var %cal.sameday = $asctime(dd) while (%i <= %cal.nd) { if (%cal.sameday == $cal.lf(%i)) drawtext -rn @cal $rgb(255,0,0) fixedsys 12 $calc(($cal.rowcol($2,$1,%i).col -1) * 24) $calc(($cal.rowcol($2,$1,%i).row -1) * 15 + 40) $cal.lf(%i) else %cal.c $calc(($cal.rowcol($2,$1,%i).col -1) * 24) $calc(($cal.rowcol($2,$1,%i).row -1) * 15 + 40) $cal.lf(%i) inc %i } drawpic @cal set %cal.cur $1 $2 } alias cal.rowcol { if ($prop == row) return $cal.round($calc(((7- (7- $cal.daycalc($1,$2,1))) + $3) /7)) if ($prop == col) { var %cal.t = $calc(($calc($3 % 7) + $calc(7 - (7 - $cal.daycalc($1,$2,1))))) %cal.t = $iif(%cal.t > 7,$calc(%cal.t % 7),%cal.t) return $iif(%cal.t == 0,7,%cal.t) } } menu @cal { sclick: { tokenize 32 %cal.cur | cal -v $iif($1 > 11,1,$calc($1 + 1)) $iif($1 > 11,$calc($2 +1),$2) } rclick: { tokenize 32 %cal.cur | cal -v $iif($1 < 2,12,$calc($1 - 1)) $iif($1 < 2,$calc($2 -1),$2) } } alias cal.lf { return $iif($len($1) < 2,$+(0,$1),$1) } alias cal.daycalc { var %c = $int($calc($1 / 100)), %y = $calc($right($1,2) % 100), %m, %d, %y1,%y2,%y3 %c = $iif($1 < 1752,$calc(18 - %c),$calc(2 * (3 - (%c % 4)))) %y = $calc(($int($calc(%y / 12)) + $calc(%y % 12) + $int($calc($calc(%y % 12) / 4))) % 7) %m = $mid(033614625035,$2,1) %d = $iif(($calc($1 % 4) == 0 && $calc($1 % 100) != 0 || $calc($1 % 400) == 0) && ($2 == 1 || $2 == 2),$calc(($3 -1) %7),$calc($3 % 7)) return $calc((%c + %y + %m + %d) % 7) } alias cal.round return $iif($1 != $int($1),$int($calc($1 + 1)),$1) alias cal.monthday { if ($findtok(1.3.5.7.8.10.12,$2,1,46)) return 31 if ($2 == 2) { if ($calc($1 % 4) == 0 && $calc($1 % 100) != 0 || $calc($1 % 400) == 0) { return 29 } return 28 } return 30 } on *:load:{ .echo -a CipriX... .echo -a [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] .echo -a Kodların hepsi CipriX'e Ait değildir. } Görünüm: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. | |
|
Etiketler |
mirc, mirc download, mirc indir, tarih |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
Benzer Konular | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
Tarih - Felsefe / Tarih Metodolojosi Ders Notlari. | Sevda | Ödev ve Tezler | 0 | 08 Aralık 2012 03:29 |
İbn-i Haldun'un tarih felsefesi maddeci bir tarih görüşü müdür? | Kalemzede | Felsefe | 0 | 04 Ekim 2011 22:54 |