出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
曜日指定で年月日をとりたい・・・ 　 あいあいさん [2002/07/11 14:57:57] [2312]
　 Re:曜日指定で年月日をとりたい・・・ 　 北岳さん [2002/07/11 19:10:07] [2315]
　 　 Re:曜日指定で年月日をとりたい・・・ 　 あいあいさん [2002/07/12 10:48:25] [2320]
[2312] 曜日指定で年月日をとりたい・・・
投稿者：あいあいさん 2002/07/11 14:57:57
こんにちは。またお世話になります。

フォームで「木曜日」を指定したら今月のその日付
02/07/04
02/07/11
02/07/18
02/07/25
をとりたいのですが。
どのようにしたら良いでしょうか？
宜しくお願いします。
[2315] Re:曜日指定で年月日をとりたい・・・
投稿者：北岳さん 2002/07/11 19:10:07
---------------- 1.asp --------------
<%
public w(7)
w(1)="日曜日": w(2)="月曜日": w(3)="火曜日": w(4)="水曜日"
w(5)="木曜日": w(6)="金曜日": w(7)="土曜日"
p=CInt(Request.form("w1"))
'----
function youbi(x)
i=WeekDay(x)
youbi=w(i)
end function
'----
%>
<html><body>
<p>本日
<br>　<%= date() %>　（<%= youbi(date()) %>）
<form action="1.asp" method=post>
<% for i=1 to 7
if i=p then s=" checked" else s="" %>
<input type="radio" name="w1" value="<%= i %>"<%= s %>><%= w(i) %><br>
<% next %>
<input type="submit" value=" GO ">
</form>
<%
if p>0 then
response.write "<br>今月の" & w(p) & "は："
t=date
d=0
do while month(t)=month(date)
if WeekDay(t)=p and d>0 then response.write "<br>" & t
d=d+1
t=DateSerial(year(date),month(date),d)
loop
end if
%>
　
面白そうなのでやってみましたが、ちょっと見づらいですね。
[2320] Re:曜日指定で年月日をとりたい・・・
投稿者：あいあいさん 2002/07/12 10:48:25
> 面白そうなのでやってみましたが、ちょっと見づらいですね。

北岳さん、有難うございます！
見事に日付が現れました。
学ばせて頂きますっ。

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