出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[5605] Re:ありがとうございす。教えの通り関数でやって、ちゃんと表示されたのですが・・・・・
投稿者：Lightningさん 2006/01/20 14:40:10
あははは、こりゃ、簡略化したいですね。

こんなときこそSelectCase文ですよ！
VB系のSelectCaseはC系のSwitchと違い、int以外も振り分けに使えると言う強みを持っています。
だから、たとえば
If DateSerial(iyear,imonth,idate)= DateSerial(iyear,1,1) Then
Response.Write "<font color=red>"& idate &"<font size = 2>"&"元旦"&"</font>" & "</font>"

Else IF DateSerial(iyear,imonth,idate)= DateSerial(iyear,1,15-Weekday(Dateserial(iyear,1,1)-2)) Then
Response.Write "<font color=red>"& idate & "<font size = 2>"&"成人の日"&"</font>" & "</font>"

Else If DateSerial(iyear,imonth,idate)= DateSerial(iyear,2,11) Then
Response.Write "<font color=red>"& idate & "<font size = 2>" & "建国記念日 " & "</font>" & "</font>"

以下略
とかだと
select case DateSerial(iyear,imonth,idate)
case DateSerial(iyear,1,1)
略
case DateSerial(iyear,1,15-Weekday(Dateserial(iyear,1,1)-2))
略
case DateSerial(iyear,2,11)
以下略
という使い方が出来るのでとても便利です。
後は、たまに私がやるのですが
Resopnse.write
を
%> <%で代用する方法。
文頭が%>文が終わると<%になるので以外にみやすかったりしますが、諸刃の剣です。
#変数代入時にミスることがあるし

とかでどーでしょｗ
カレンダ上で祝祭日を色違いで表示したいのですが・・・・ 　 さとしさん [2006/01/13 15:55:29] [5584]
　 Re:カレンダ上で祝祭日を色違いで表示したいのですが・・・・ 　 ビギナーズラックさん [2006/01/13 17:16:03] [5585]
　 　 Re:カレンダ上で祝祭日を色違いで表示したいのですが・・・・ 　 さとしさん [2006/01/16 16:44:13] [5589]
　 　 　 Re:カレンダ上で祝祭日を色違いで表示したいのですが・・・・ 　 さとしさん [2006/01/17 17:36:32] [5591]
　 　 　 　 Re:カレンダ上で祝祭日を色違いで表示したいのですが・・・・ 　 ビギナーズラックさん [2006/01/17 22:32:01] [5595]
　 　 　 　 　 Re:カレンダ上で祝祭日を色違いで表示したいのですが・・・・ 　 さとしさん [2006/01/18 9:01:20] [5596]
　 Re:カレンダ上で祝祭日を色違いで表示したいのですが・・・・ 　 Lightningさん [2006/01/16 11:37:33] [5588]
　 　 ・・・・難しいですね。。 　 さとしさん [2006/01/17 17:31:27] [5590]
　 　 　 Re:・・・・難しいですね。。 　 Lightningさん [2006/01/18 14:23:27] [5600]
　 　 　 　 ありがとうございす。教えの通り関数でやって、ちゃんと表示されたのですが・・・・・ 　 さとしさん [2006/01/20 13:09:27] [5604]
　 　 　 　 　 Re:ありがとうございす。教えの通り関数でやって、ちゃんと表示されたのですが・・・・・ 　 Lightningさん [2006/01/20 14:40:10] [5605]
　 　 　 　 　 　 Re:ありがとうございす。教えの通り関数でやって、ちゃんと表示されたのですが・・・・・ 　 さとしさん [2006/01/23 15:08:41] [5607]
　 　 　 　 　 Re:ありがとうございす。教えの通り関数でやって、ちゃんと表示されたのですが・・・・・ 　 ビギナーズラックさん [2006/01/20 15:12:41] [5606]
　 　 　 　 　 　 Re:ありがとうございす。教えの通り関数でやって、ちゃんと表示されたのですが・・・・・ 　 さとしさん [2006/01/23 15:16:04] [5608]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ