home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / iPhone / default.aspx.vb < prev    next >
Text File  |  2013-03-03  |  1KB  |  25 lines
  1. 
  2. Partial Class iPhoneNet_Default
  3.     Inherits System.Web.UI.Page
  4.  
  5.     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  6.         Dim tlcsub As New AspNetMaker7_tfpssnet
  7.         Dim tmpHours As String, tmpMinutes As String, tmpTime As Long, tmpStartDate As String, tmpEndDate As String
  8.         If Now.Date().DayOfWeek = 0 Then
  9.             tmpStartDate = Now.Date().AddDays(-6)
  10.             tmpEndDate = Now.Date()
  11.         Else
  12.             tmpStartDate = (Now.Date().AddDays(-Now.Date().DayOfWeek)).AddDays(1)
  13.             tmpEndDate = (Now.Date().AddDays(-Now.Date().DayOfWeek)).AddDays(7)
  14.         End If
  15.         tmpTime = tlcsub.tlcGetWeekTotal(Session("TFProduction_Status_EmpID"), tmpStartDate, tmpEndDate)
  16.         tmpHours = Int(tmpTime / 60)
  17.         tmpMinutes = Int(tmpTime Mod 60)
  18.  
  19.         '        lblCurrentLogin.Text = "Current User: " & Session("tfpssnet_Status_UserName")
  20.         lblCurrentLogin.Text = "Current User: " & Session("TFProduction_Status_UserName")
  21.         lblCurrentHours.Text = " Current Week Actual: " & tmpHours & ":" & tmpMinutes.ToString.PadLeft(2, "0")
  22.     End Sub
  23.  
  24. End Class
  25.