SSブログ

GWスペシャル ソース大公開 !(^^)! [スクリプト言語など]

<HTML><HEAD><TITLE>グッピー</TITLE></HEAD>
<style type="text/css"><!--
#tab0{ background-color:transparent; position:relative; top:20; left:0; z-index:100; border:solid #8800ff 0px; }
#td0{ font size:11; color:#bf0099; background-color:#efefff; }
#td1{ font size:12; text-align:center; border:0 solid #; width:14; padding:0 0 0 0;}
#sn{ font-weight:100; color:#95864A; text-decoration:underline; font size:15; background-color:transparent; padding:0 0 0 0; position:absolute; bottom:25; left:0;}
//--></style>

<SCRIPT LANGUAGE="VBScript"><!--
Dim wDy,WDN
m01_2 = # 1, 1, 2007#
m07_3 = # 7, 1, 2007#
m09_3 = # 9, 1, 2007#
m10_2 = #10, 1, 2007#

mDe = Array(m01_2, m07_3, m09_3, m10_2)
mMem = Array("成人の日","海の日", "敬老の日", "体育の日")

For i = 0 To 3
Mm = mDe(i)
wDy = Weekday(Mm)

if i=0 Or i=3 then
if wDy = 1 then x = 9
if wDy = 2 then x = 8
if wDy >= 3 then x = 8+(8-wDy)+1
else
if wDy = 1 then x = 16
if wDy = 2 then x = 15
if wDy >= 3 then x = 15+(8-wDy)+1
end if

if i=0 then
seijin= Month(Mm)&","&x&" "& mMem(i)
sx=x
end if
if i=1 then
umi = Month(Mm)&","&x&" "& mMem(i)
ux=x
end if
if i=2 then
keiro = Month(Mm)&","&x&" "& mMem(i)
kx=x
end if
if i=3 then
taiiku= Month(Mm)&","&x&" "& mMem(i)
tx=x
end if

WDN = WDN & Month(Mm)&"月" & x &"日は「" & mMem(i) &"」 "
Next
--></SCRIPT>

<script language="JavaScript"><!--
nDate = new Date();
day = new Array("日","月","火","水","木","金","土");
var ttH = nDate.getHours();
var ttM = nDate.getMinutes();
tH = "0"+"0" + ttH;
tH = tH.substring(tH.length-2,tH.length);
tM = "0"+"0" + ttM;
tM = tM.substring(tM.length-2,tM.length);
//defaultStatus
document.title = "2007年 なまけものカレンダ /// " + (1+nDate.getMonth()) + "月" + nDate.getDate() + "日(" + day[nDate.getDay()] + ") " +tH+ ":" +tM;

function theCalendar(theYear,theMonth)
{ var wrtMonth= new Array(0,31,28,31,30,31,30,31,31,30,31,30,31);
var wrtDate = new Array("日","月","火","水","木","金","土");
//var wrtDate = new Array("sun","mon","tue","wed","thu","fri","sat");
var wrtColor= new Array("#ff3333","#33333","#333333","#333333","#333333","#333333","#3333ff");
var special = new Array("1","1", "1",sx, "2","11", "3","21", "4","29", "5","3", "5","4", "5","5", "7",ux, "9",kx, "9","23", "10",tx, "11","3", "11","23", "12","23");
var spmemo = new Array('元日','成人の日','建国記念日','春分の日','昭和の日','憲法記念日','みどりの日','子供の日','海の日','敬老の日','秋分の日','体育の日','文化の日','勤労感謝の日','天皇誕生日','振替休日');

var specCol = "#ff0000";
var theDate = new Date();
var theCurrentMonth = theDate.getMonth()+1;
if(theYear >= 0){ theDate.setYear(theYear);
theDate.setMonth(theMonth-1); }
theYear = theDate.getYear();
theMonth= theDate.getMonth()+1;
if(theYear < 2000) theYear += 1900;
if(((theYear % 4 == 0) && (theYear % 100 != 0)) || (theYear % 400 == 0)){ wrtMonth[2]++; special[1]++; special[3]++; }
theDate.setDate(1);
var count = theDate.getDay();
var day = 0;
var date = 1;
var flag = false;
var hFlag = false;
var i,j;

with(document){
write("<table id=tab0><tr>");
write("<span id=sn><a href=h"+"ttp://blog.so-net.ne.jp/petamun target=top>h"+"ttp://blog.so-net.ne.jp (@_@;)</a><a href='#'> </a>Calendar "+theYear+"<font size=1>年</font> "+theMonth+"<font size=1>月</font></span>");

for(i=1; i <= wrtMonth[theMonth]+count; i++){ hFlag = false;
if(day >= count){ wrt = ""+date;
for(j=0; j<15; j++){ if((special[j*2] == theMonth) && (special[j*2+1] == date)){
wrt ="<a title="+spmemo[j]+"><b>" + wrt.fontcolor(specCol)+"</b></a>";
if((day%7) == 0) flag = true; hFlag = true; }} date++; } else { wrt=" "; }

if((hFlag == false) && flag == false) { wrt = wrt.fontcolor(wrtColor[(day%7)]); }
if((day%7 == 1) && flag == true){ wrt = "<a title="+spmemo[15]+">"+wrt.fontcolor(specCol)+"</a>"; flag = false; }

wd = (day%7);
if(wd == 0) wDat=wrtDate[wd].fontcolor("#ff3333");
if(wd == 6) wDat=wrtDate[wd].fontcolor('#3333ff');
if((wd > 0)&&(wd < 6)) wDat=wrtDate[wd].fontcolor('#777777');

if((nDate.getDate() == date-1) && (1+nDate.getMonth()==theMonth)) {
write("<td id=td1><span style='font size:8;'>"+wDat+"</span><br><span style='text-decoration:underline'>"+wrt+"</span></td>"); }
else { write("<td id=td1><span style='font size:8;'>"+wDat+"</span><br><span style=''>"+wrt+"</span></td>"); } day++; }
write("</tr></table><br>"); } }

for(Y=1; Y <= 1; Y++) { for(M=1; M <= 12; M++) theCalendar(2006+Y,M); }
defaultStatus = WDN;
//--></script>
<body>
</body>
</html>

プロトタイプの実行ソースでしたが、思索中のものですが、来年うるう年なんですけど設定すると祭日が1日ずれたりしてまして、まったく・・・・。
まだまだ、かなーりの変更が必要そうです。^^;

・・で、ブログ上で実行するにはちょっと難ありだったので、ポップアップタイプとして大幅に変更していますが、・・でよければ実行例はこちちらですので、見てやってくださいませ。
→ http://blog.so-net.ne.jp/petamun/2007-05-05-1


nice!(2)  コメント(1)  トラックバック(0) 
共通テーマ:パソコン・インターネット

nice! 2

コメント 1

うっぴぃ〜

(。・_・。)2kさま、nice感謝です。
key さま、nice感謝です。
by うっぴぃ〜 (2017-03-24 16:32) 

コメントを書く

お名前:
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0