home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 September / Chip_2002-09_cd1.bin / zkuste / vbasic / Data / Net / datetime.aspx next >
Encoding:
ASP.NET Web Form  |  2001-07-23  |  4.8 KB  |  155 lines
  1. <%@ Page Language="VB" %>
  2.  
  3. <HTML>
  4.   <HEAD>
  5. <script language=VB id=Script1 runat="server">
  6.     'DateValues will be updated when the page loads and
  7.     'when the button is clicked
  8.     Sub Page_Load(sender As Object, e As EventArgs)
  9.         UpdateDateValues
  10.     End Sub
  11.     
  12.     Sub btnUpdate_OnClick(Sender As Object, E As EventArgs)
  13.     lblNow.Text = "OK"
  14.         UpdateDateValues
  15.     End Sub
  16. Sub UpdateDateValues()
  17.     
  18.     dim dtNow as DateTime
  19.     dim intDaysinYear as integer
  20.     dim ts as New TimeSpan
  21.     
  22.  
  23.         
  24.     'Set DateTime Object to Now
  25.     dtNow = DateTime.Now
  26.  
  27.     'display various properties of the object
  28.     lblNow.Text = dtNow.ToString
  29.     
  30.     lblNowFormatted.Text = dtNow.ToString("MMMM dd, yyyy")
  31.     lblMonth.Text = dtNow.Month
  32.     lblMonthFormatted.Text = dtNow.toString("MMMM")
  33.     lblMonthAbbrev.Text = dtNow.ToString("MMM")
  34.     
  35.     lblDayofMonth.Text = dtNow.Day
  36.     lblDayofWeek.Text = dtNow.DayofWeek
  37.     lblDayofWeekFormatted.Text = dtNow.toString("dddd")
  38.     lblDayofWeekAbbrev.Text = dtNow.toString("ddd")
  39.     
  40.     lblYear.Text = dtNow.Year
  41.     lblYearFormatted.Text = dtNow.toString("yy")
  42.     
  43.     lblHour.Text = dtNow.Hour
  44.     lblMinute.Text = dtNow.Minute
  45.     lblSecond.Text = dtNow.Second
  46.     lblMilliseconds.Text = dtNow.Millisecond
  47.     lblEra.Text = dtNow.ToString("gg")
  48.     lblUniversal.Text = dtNow.ToUniversalTime
  49.     
  50.     lblTicks.Text = dtNow.Ticks
  51.     lblDayofYear.Text = dtNow.DayofYear
  52.     
  53.     intDaysinYear = iif(dtNow.IsLeapYear(dtNow.Year), 366, 365)
  54.     lblDaysUntilNewYear.Text = (intDaysinYear - dtNow.DayofYear)
  55.     lblDaysinMonth.Text = dtNow.DaysinMonth(dtNow.Year, dtNow.Month)
  56.     lblLeapYear.Text = dtNow.IsLeapYear(dtNow.Year)
  57.     lbl1000More.Text = dtNow.AddDays(1000).ToString
  58.     TS = Ts.FromDays(1000)
  59.     lbl1000Less.Text = dtNow.Subtract(Ts)
  60. End Sub    
  61.      
  62.  
  63. </script>
  64. </HEAD>
  65. <body id=Body1 runat="server">
  66. <h4>Date time object example: <em></EM></H4>
  67. <form id=Form1 action=DateTime.aspx method=post 
  68. runat="server">
  69. <p>Below, you see the property names and the corresponding 
  70. values of .NET's DateTime Object.  To refresh the values, click the button 
  71. below: </P>
  72. <p><asp:button id=btnUpdate onclick=btnUpdate_OnClick runat="server" text="Update"></asp:button></P></FORM>
  73. <table border=1>
  74.   <tr>
  75.     <td><b>Property</B></TD>
  76.     <td><b>Value</B></TD></TR>
  77.   <tr>
  78.     <td>Now</TD>
  79.     <td><asp:label id=lblNow runat="server"></asp:label></TD></TR>
  80.   <tr>
  81.     <td>Now (Short, Formatted)</TD>
  82.     <td><asp:label id=lblNowFormatted runat="server"></asp:label></TD></TR>
  83.   <tr>
  84.     <td>Month</TD>
  85.     <td><asp:label id=lblMonth runat="server"></asp:label></TD></TR>
  86.   <tr>
  87.     <td>Month (Formatted)</TD>
  88.     <td><asp:label id=lblMonthFormatted runat="server"></asp:label></TD></TR>
  89.   <tr>
  90.     <td>Month (Abbreviated)</TD>
  91.     <td><asp:label id=lblMonthAbbrev runat="server"></asp:label></TD></TR>
  92.   <tr>
  93.     <td>Day of Month</TD>
  94.     <td><asp:label id=lblDayofMonth runat="server"></asp:label></TD></TR>
  95.   <tr>
  96.     <td>Day of Week</TD>
  97.     <td><asp:label id=lblDayofWeek runat="server"></asp:label></TD></TR>
  98.   <tr>
  99.     <td>Day of Week (Formatted)</TD>
  100.     <td><asp:label id=lblDayofWeekFormatted runat="server"></asp:label></TD></TR>
  101.   <tr>
  102.     <td>Day of Week (Abbreviated)</TD>
  103.     <td><asp:label id=lblDayofWeekAbbrev runat="server"></asp:label></TD></TR>
  104.   <tr>
  105.     <td>Year</TD>
  106.     <td><asp:label id=lblYear runat="server"></asp:label></TD></TR>
  107.   <tr>
  108.     <td>Year (Formatted)</TD>
  109.     <td><asp:label id=lblYearFormatted runat="server"></asp:label></TD></TR>
  110.   <tr>
  111.     <td>Hour</TD>
  112.     <td><asp:label id=lblHour runat="server"></asp:label></TD></TR>
  113.   <tr>
  114.     <td>Minute</TD>
  115.     <td><asp:label id=lblMinute runat="server"></asp:label></TD></TR>
  116.   <tr>
  117.     <td>Second</TD>
  118.     <td><asp:label id=lblSecond runat="server"></asp:label></TD></TR>
  119.   <TR>
  120.     <TD>Millisecond</TD>
  121.     <TD><asp:label id=lblMilliseconds runat="server"></asp:label></TD></TR>
  122.   <tr>
  123.     <td>Year Era</TD>
  124.     <td><asp:label id=lblEra runat="server"></asp:label></TD></TR>
  125.   <tr>
  126.     <td>Universal Time</TD>
  127.     <td><asp:label id=lblUniversal runat="server"></asp:label></TD></TR>
  128.   <tr>
  129.     <td>Seconds Since 1/1/0001</TD>
  130.     <td><asp:label id=lblTicks runat="server"></asp:label></TD></TR>
  131.   <tr>
  132.     <td>Day of Year</TD>
  133.     <td><asp:label id=lblDayofYear runat="server"></asp:label></TD></TR>
  134.   <tr>
  135.     <td>Days Until New Year</TD>
  136.     <td><asp:label id=lblDaysUntilNewYear runat="server"></asp:label></TD></TR>
  137.   <TR>
  138.     <TD>Days in Month</TD>
  139.     <TD><asp:label id=lblDaysInMonth runat="server"></asp:label></TD></TR>
  140.   <TR>
  141.     <TD>Is This a Leap Year</TD>
  142.     <TD>
  143. <asp:label id=lblLeapYear runat="server"></asp:label></TD></TR>
  144.   <TR>
  145.     <TD>1000 Days from Now</TD>
  146.     <TD>
  147. <asp:label id=lbl1000More runat="server"></asp:label></TD></TR>
  148.   <TR>
  149.     <TD>1000 Days Ago</TD>
  150.     <TD>
  151. <asp:label id=lbl1000Less runat="server"></asp:label></TD></TR></TABLE>
  152.  
  153. </body>
  154. </HTML>
  155.