• 締切済み

週だけのカレンダーを作成する方法

週だけのカレンダーを作成しています。 1～31日までのカレンダーは作成できるのですが、その週だけのカレンダーを作成する方法が分かりません。どなたか週だけのソースを教えていただけるとありがたいです。 ■因みに1～31日までのカレンダーのソース Sub Gamen_cal( ) if kbn = "edi" or kbn = "del" then Call Update_sche end if %> <form method="POST" action="sche.asp"> <table border="1"> <tr> <td><% Call SetMonth %></td> <td><input type="Submit" name="sub" value="表示"></td> </tr> </table> <input type="hidden" name="act" value="cal"> <input type="hidden" name="kbn" value="go"> </form> <p><% =year(hiduke) %>年<% =month(hiduke) %>月 <table border="1"> <tr> <td bgcolor="#FFD700">日</td> <td bgcolor="#FFD700">月</td> <td bgcolor="#FFD700">火</td> <td bgcolor="#FFD700">水</td> <td bgcolor="#FFD700">木</td> <td bgcolor="#FFD700">金</td> <td bgcolor="#FFD700">土</td> </tr> <% Dim i,j,wd,nextmonth,matsubi wd = Weekday(DateSerial(year(hiduke), month(hiduke), 1)) nextmonth=DateAdd("m", 1, hiduke) matsubi=Day(DateSerial(year(nextmonth), month(nextmonth), 1 - 1)) For i = 0 to 5 if d >= matsubi then Exit For %> <tr> <% Dim d,ymd For j = 0 to 6 d = (i * 7) + j - wd + 2 ymd = DateSerial(year(hiduke), month(hiduke), d) %> <% if d > 0 and d <= matsubi then %> <td><a href="sche.asp?act=edi&hiduke=<% = ymd %>"> <% if yoteichk(ymd) = "OK" then Response.Write "●" %> <% = d %></a></td> <% else %> <td>　</td> <% end if %> <% Next %> </tr> <% Next %> </table> <% End Sub ------------------------------------------------------------- ■週だけの場合どのようなソースになるのでしょうか？

noname#71395
noname#71395

みんなの回答

回答No.1

仕事ですか？それとも趣味ですか？どちらにせよ、自分で考えて作った方がいいと思いますよ。 ちなみに、ASP.NETで適当に作ってみました。 <%@ Page Language="VB" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <script runat="server"> Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Dim [today] As DateTime = DateTime.Today Dim oneDay As DateTime = [today].AddDays(-[today].DayOfWeek) Dim builder As New StringBuilder() For ii As Integer = 0 To 6 Step 1 builder.Append(oneDay.AddDays(ii).Day) builder.Append(" "c) Next Literal1.Text = builder.ToString() End Sub </script> <html xmlns="http://www.w3.org/1999/xhtml"> <head runat="server"> <title>週だけのカレンダー</title> </head> <body> <form id="form1" runat="server"> <asp:Literal ID="Literal1" runat="server"></asp:Literal> </form> </body> </html>

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Microsoft ASP

関連するQ&A

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

質問する