|
|
Using infinite asymptotics...
MyFib(1477) Loops: [1477] Steps: [Approx:25109]
GoodFib(1477) Loops: [1088552] Steps: [6537220]
LinearFib(1477) Loops: [1092980] Steps: [8752702]
Even though Linerfib takes more steps, it out performs GoodFib in a clock test. In engineering we call this the 'Proof from the pudding...'
LinerFib(1477) LoopCount: [1478] - SplitTimeMicro: [44.6984183744023]
MyFib(1477) LoopCount: [1] - SplitTimeMicro: [48.8888950970026]
GoodFib(1477) LoopCount: [1475] - SplitTimeMicro: [507.047683434626]
modified on Wednesday, July 8, 2009 2:35 PM
|
|
|
|
|
Ok, guy. Which part of "the really important thing here is not the problem itself, but the way you can solve it applying those restrictions" is the one you have not understood?
|
|
|
|
|
_Erik_ wrote: Ok, guy. Which part of "the really important thing here is not the problem itself, but the way you can solve it applying those restrictions" is the one you have not understood?
I have all ready admited your point is valid! My problem with the interviewer was that I had expalined the problems with recrusion and how it causes bad things to happen like: heap pile up, stack overflow, huge thread stacks, and object over load due to the problem with not being able box objects for reuse. I also told the interviewer that I only had a basic understanding of the problem and that I knew it would be better solved with out using recursion. I did explain what recursion was and such. My biggest mistake was not asking the interviewer for a diffrent problem using the same constraints for which I completly undestood. We are human Eric, a knowlegable man learns from his own mistakes, a wise man learns from others. I was not trying to bash you in this thread, my honest appoligies if you though as much. My intent was to show how I arrived at my conclusions about the problem algroythm during the interview. Perhaps others reading this thread could gain wisdom from my mistake.
~TheArch
|
|
|
|
|
You don't know why you didn't get the job. It could have been for many reasons. I've been turned down for jobs even AFTER I passed the technical part. A lot of who gets hired has to do with the chemistry of the group you're interviewing with. Qualifications are overrated.
The second phrase is correct.
|
|
|
|
|
Well, I would have been thier Cheif Architect and Lead Developer.
I would have been the companies first hire besides the CTO which I was interviewing with.
He probibly didn't like me breaking the pencile into Four peices. 
~TheArch
|
|
|
|
|
What would have been really funny; is if the interviewer actually hired me because I demonstrated recursion by repeatidly breaking the pencile in half. But he told me I didn't understand recursion. Hmm, strange how the subconcious mind works.
~TheArch
|
|
|
|
|
What I do is keep crib notes of basic algorithms in my notebook in case they ask you to do one. With the iPhone, you can keep electronic notes of the same things and review them while waiting for the interview to start. 
|
|
|
|
|
This is just one method, but do not expect it to be short... 
I spent my days debugging this kind of code... 
Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)
Dim i As Integer
Dim r As Integer
Dim sEmployeeID As String
Dim dDateFrom As DateTime = Convert.ToDateTime(DateFrom.Text)
Dim dDateTo As DateTime = Convert.ToDateTime(DateTo.Text)
Dim dDateCurrent As Date = dDateFrom
Dim sConsultantInfoDay As String = ""
Dim sProjectInfo1 As String = ""
Dim sProjectInfo2 As String = ""
Dim sProject As String = ""
Dim DateEnd As Object
Dim DaysNoticeExt As Object
Dim sColor1 As String = "#FFFFFF"
Dim sColor2 As String = "#FFFFFF"
Dim PreviousColor As String = "#FFFFFF"
Dim hl As New HyperLink
Dim lb As New Label
Dim lb2 As New Label
Dim iDayofWeek As Integer
Dim sDayName As String
Dim sExit As String
Dim bgColor As Drawing.Color
Dim sColorProject As String = "#FFFFFF"
Dim bTSClosed As Boolean
Dim Hours As Double
Dim HoursClientMonth As Double
Dim HoursMonth As Double
Dim HoursTBPMonth As Double
Dim HoursInternalMonth As Double
Dim DailyHoursTBP As Double
Dim TSID As Integer
Dim oEmpDateStart As Object
Dim oEmpDateEnd As Object
Dim bClientProject As Boolean = False
Dim bProjectFoundMonth As Boolean = False
Dim WorkPerc As Double
Dim sHoliday As String
Dim ProjectID As Integer
Dim TotalHoursMonth As Double
Dim dteRenewal, dteCurrentNotification, dteCurrentEndProj As DateTime
Dim intRenewalCpt As Integer = -1
Dim blnIsFirstTime As Boolean = True
Dim intRenewsEachNbMonths As Integer
Select Case e.Row.RowType
Case DataControlRowType.Header
Dim iMonth As Integer
e.Row.Cells(0).Visible = False
e.Row.Cells(1).Visible = False
e.Row.Cells(2).Visible = False
e.Row.Cells(3).Visible = False
e.Row.Cells(iColDaysStart - 1).Width = ConsultantColWidth
e.Row.Cells(iColDaysStart - 1).Text = sEmployeeHeader
e.Row.Cells(iColDaysStart - 1).Font.Size = iFontSizeEmployees
e.Row.Cells(iColDaysStart - 1).Font.Bold = True
e.Row.Cells(iColDaysStart - 1).ForeColor = Drawing.Color.White
e.Row.Cells(iColDaysStart - 1).BackColor = Drawing.Color.DarkBlue
i = iColDaysStart
Do While dDateCurrent <= dDateTo
iMonth = dDateCurrent.Month
sDayName = WeekdayName(DatePart("w", dDateCurrent), True, Microsoft.VisualBasic.FirstDayOfWeek.Sunday)
e.Row.Cells(i).Text = String.Concat(Left(sDayName, 2), String.Concat("<br /> ", Day(dDateCurrent).ToString))
e.Row.Cells(i).Font.Name = "Consolas, Courier New"
e.Row.Cells(i).Font.Size = iFontSizeHours
e.Row.Cells(i).BorderWidth = 1
e.Row.Cells(i).BorderColor = Drawing.Color.LightGray
e.Row.Cells(i).HorizontalAlign = HorizontalAlign.Center
iDayofWeek = Weekday(dDateCurrent)
sHoliday = sql.SQLValue("IsHoliday '" & dDateCurrent.Month.ToString & "/" & dDateCurrent.Day.ToString & "/" & dDateCurrent.Year.ToString & "'")
If sHoliday <> "N" Then
' Public Holiday
bgColor = Drawing.Color.Gray
Else
If iDayofWeek = 7 Or iDayofWeek = 1 Then
bgColor = Drawing.Color.Gray
Else
bgColor = Drawing.Color.DarkBlue
End If
End If
e.Row.Cells(i).ForeColor = Drawing.Color.White
e.Row.Cells(i).BackColor = bgColor
dDateCurrent = DateAdd(DateInterval.Day, 1, dDateCurrent)
If iMonth <> dDateCurrent.Month And Me.chkTotals.Checked Then
i = i + 1
e.Row.Cells(i).Text = "Total"
e.Row.Cells(i).Font.Size = iFontSizeHours
e.Row.Cells(i).ForeColor = Drawing.Color.White
e.Row.Cells(i).BackColor = Drawing.Color.DarkBlue
End If
i = i + 1
Loop
Case DataControlRowType.DataRow
Dim iMonth As Integer = 0
e.Row.Height = 25
e.Row.Cells(0).Visible = False ' EmployeeID
e.Row.Cells(1).Visible = False ' Customer
e.Row.Cells(2).Visible = False ' Department/Project
e.Row.Cells(3).Visible = False ' ProjectID
ProjectID = e.Row.Cells(3).Text
sEmployeeID = e.Row.Cells(0).Text
lb2.Text = " "
If sCustomerProject <> e.Row.Cells(1).Text & e.Row.Cells(2).Text And Me.optGroupBy.SelectedValue = 3 Then
' New Client/Project
e.Row.BackColor = Drawing.Color.White
e.Row.ForeColor = Drawing.Color.DarkBlue
e.Row.Cells(iColDaysStart - 1).Font.Size = iFontSizeEmployees ' Employees
e.Row.Cells(iColDaysStart - 1).Font.Bold = True
e.Row.Cells(iColDaysStart - 1).Text = e.Row.Cells(1).Text & " - " & e.Row.Cells(2).Text
e.Row.Style.Add("border-top-color", "Black")
e.Row.Style.Add("border-bottom-color", "White")
e.Row.Height = 25
sCustomerProject = e.Row.Cells(1).Text & e.Row.Cells(2).Text
e.Row.Cells(iColDaysStart - 1).Width = 210
e.Row.Cells(iColDaysStart - 1).Style.Add("cellspacing", "2")
e.Row.Cells(iColDaysStart - 1).Style.Add("background-color", "#FFFFCA")
e.Row.Cells(iColDaysStart - 1).Style.Add("color", "DarkBlue")
e.Row.Cells(iColDaysStart - 1).Style.Add("border-right-color", "#FFFFFD")
e.Row.Cells(iColDaysStart - 1).Style.Add("border-top-color", "#FFFFFD")
e.Row.Cells(iColDaysStart - 1).Style.Add("border-bottom-color", "#FFFFFD")
e.Row.Cells(iColDaysStart).Style.Add("border-left-color", "#FFFFFD")
i = iColDaysStart
Do While dDateCurrent <= dDateTo
iDayofWeek = Weekday(dDateCurrent)
e.Row.Cells(i).Style.Add("border-left-color", "White")
e.Row.Cells(i).Style.Add("border-right-color", "White")
dDateCurrent = DateAdd(DateInterval.Day, 1, dDateCurrent)
i = i + 1
Loop
Else
e.Row.Cells(iColDaysStart - 1).Font.Size = iFontSizeEmployees ' Employees
e.Row.Cells(iColDaysStart - 1).BackColor = Drawing.Color.Ivory
e.Row.Cells(iColDaysStart - 1).Width = ConsultantColWidth
Select Case Me.optGroupBy.SelectedValue
Case 1 ' Group By Department
lb.Text = " " & e.Row.Cells(2).Text & " - "
lb.ForeColor = Drawing.Color.Black
e.Row.Cells(iColDaysStart - 1).Controls.Add(lb)
hl.Text = e.Row.Cells(iColDaysStart - 1).Text ' Consultant
Case 2 ' Group By Consultant
hl.Text = Convert.ToString(cntConsultant) & ". " & e.Row.Cells(iColDaysStart - 1).Text ' Consultant
Case 3 ' Group By Client/Project
hl.Text = e.Row.Cells(iColDaysStart - 1).Text ' Consultant
lb.Text = " "
e.Row.Cells(iColDaysStart - 1).Controls.Add(lb)
End Select
hl.NavigateUrl = "EmployeeProjectsEdit.aspx?eid=" & e.Row.Cells(0).Text
e.Row.Cells(iColDaysStart - 1).Controls.Add(lb2)
e.Row.Cells(iColDaysStart - 1).Controls.Add(hl)
cntConsultant = cntConsultant + 1
i = iColDaysStart
sExit = ""
Dim dr() As DataRow
If Me.optGroupBy.SelectedValue = 3 Then
' Client/Project view
dr = dtProjectsTS.Select("EmployeeID = " & sEmployeeID) ' Get projects employee
Else
dr = dtProjectsTS.Select("EmployeeID = " & sEmployeeID) ' Get projects employee
End If
' Get Employee startdate / endate
If dr.GetUpperBound(0) > -1 Then
oEmpDateStart = dr(r)("EmpDateStart")
oEmpDateEnd = dr(r)("EmpDateEnd")
WorkPerc = dr(r)("WorkPerc")
Else
' No Projects assigned
oEmpDateStart = sql.SQLValue("SELECT DateStart FROM Employees WHERE EmployeeID = " & sEmployeeID)
oEmpDateEnd = sql.SQLValue("SELECT DateEnd FROM Employees WHERE EmployeeID = " & sEmployeeID)
End If
' Fake the dates to prevent Null error
If IsDBNull(oEmpDateStart) Then oEmpDateStart = Convert.ToDateTime("01/01/1950")
If IsDBNull(oEmpDateEnd) Then oEmpDateEnd = Convert.ToDateTime("01/01/2099")
HoursMonth = 0
HoursClientMonth = 0
HoursInternalMonth = 0
HoursTBPMonth = 0
bProjectFoundMonth = False
' Get days / Format days (colors, hours, 2 projects)
Do While dDateCurrent <= dDateTo
iMonth = dDateCurrent.Month
iDayofWeek = Weekday(dDateCurrent)
If oEmpDateStart > dDateCurrent Or oEmpDateEnd < dDateCurrent Then
' Unemployed / no project
e.Row.Cells(i).ToolTip = "Unemployed"
e.Row.Cells(i).BackColor = Drawing.ColorTranslator.FromHtml("#FFFFFF")
e.Row.Cells(i).Style.Add("border-left-color", "White")
e.Row.Cells(i).Style.Add("border-right-color", "White")
Else
sColor1 = "#FFFFFF"
sProject = "No Assignment"
Hours = 0
DailyHoursTBP = 8
DaysNoticeExt = 0
bClientProject = False
If dr.GetUpperBound(0) > -1 Then ' Loop through employee projects
' Check for client project = main
For r = 0 To dr.GetUpperBound(0)
If dr(r)("Month") = dDateCurrent.Month And dr(r)("Year") = dDateCurrent.Year Then
bTSClosed = dr(r)("Closed")
If Me.optGroupBy.SelectedValue = 3 Then ' Client/Project view
If Server.HtmlDecode(e.Row.Cells(2).Text) = dr(r)("ProjectName") And dr(r)("ProjectTypeID") < 4 Then
bClientProject = True
End If
Else
If dr(r)("ProjectTypeID") < 4 Then ' Client project
bClientProject = True
End If
End If
End If
Next
Dim sInfo As String = ""
For r = 0 To dr.GetUpperBound(0)
' Employee Projects / Months
If dr(r)("Month") = dDateCurrent.Month And dr(r)("Year") = dDateCurrent.Year Then
bProjectFoundMonth = True
If Me.optGroupBy.SelectedValue < 3 Then
' Department / Employee view
If Not IsDBNull(dr(r)("DateStart")) And Not IsDBNull(dr(r)("DateEnd")) Then
If dDateCurrent >= dr(r)("DateStart") And dDateCurrent <= dr(r)("DateEnd") Then
If bClientProject Then
If dr(r)("ProjectTypeID") <= 3 Then 'Client Project
sProject = GetProjectInfoToolTip(dr, r)
sColor1 = dr(r)("ColorHtml")
If Not IsDBNull(dr(r)("FirstRenewalDate")) Then
If Not dDateCurrent < dr(r)("FirstRenewalDate") Then
If dteCurrentNotification < DateTime.Today() Then
dteRenewal = DateTime.Parse(dr(r)("FirstRenewalDate").ToString())
Do Until dteCurrentNotification >= DateTime.Today()
intRenewalCpt += 1
dteCurrentNotification = dteRenewal.AddMonths(intRenewalCpt * dr(r)("RenewEachNbMonths")).AddDays(-1 * dr(r)("DaysNoticeExt"))
dteCurrentEndProj = dteRenewal.AddMonths(intRenewalCpt * dr(r)("RenewEachNbMonths"))
Loop
End If
If dDateCurrent = dteCurrentEndProj And blnIsFirstTime Then
intRenewalCpt += 1
dteCurrentNotification = dteRenewal.AddMonths(intRenewalCpt * dr(r)("RenewEachNbMonths")).AddDays(-1 * dr(r)("DaysNoticeExt"))
dteCurrentEndProj = dteRenewal.AddMonths(intRenewalCpt * dr(r)("RenewEachNbMonths"))
intRenewsEachNbMonths = Integer.Parse(dr(r)("RenewEachNbMonths"))
blnIsFirstTime = False
End If
If dDateCurrent < dteCurrentEndProj And Not blnIsFirstTime Then
sColor1 = dr(r)("ColorHtmlExt")
ElseIf Not blnIsFirstTime Then
sColor1 = "#FFFFFF"
sProject = "No Assignment"
End If
End If
End If
DailyHoursTBP = dr(r)("DailyHoursTBP")
DateEnd = dr(r)("DateEnd")
DaysNoticeExt = dr(r)("DaysNoticeExt")
TotalHoursMonth = dr(r)("TotalHoursMonth")
End If
Else
If dr(r)("ProjectTypeID") >= 4 Then ' Internal Project
sProject = dr(r)("ProjectName")
sColor1 = dr(r)("ColorHtml")
DailyHoursTBP = dr(r)("DailyHoursTBP")
DateEnd = dr(r)("DateEnd")
DaysNoticeExt = dr(r)("DaysNoticeExt")
TotalHoursMonth = dr(r)("TotalHoursMonth")
End If
End If
End If
End If
If dr(r)(14 + dDateCurrent.Day) > 4 Then
If dr(r)("ProjectTypeID") >= 4 Then ' Internal Project
sProject = dr(r)("ProjectName")
Else
sProject = GetProjectInfoToolTip(dr, r)
End If
sColor1 = dr(r)("ColorHtml")
If Not IsDBNull(dr(r)("FirstRenewalDate")) Then
If Not dDateCurrent < dr(r)("FirstRenewalDate") Then
If dteCurrentNotification < DateTime.Today() Then
dteRenewal = DateTime.Parse(dr(r)("FirstRenewalDate").ToString())
Do Until dteCurrentNotification >= DateTime.Today()
intRenewalCpt += 1
dteCurrentNotification = dteRenewal.AddMonths(intRenewalCpt * dr(r)("RenewEachNbMonths")).AddDays(-1 * dr(r)("DaysNoticeExt"))
dteCurrentEndProj = dteRenewal.AddMonths(intRenewalCpt * dr(r)("RenewEachNbMonths"))
Loop
End If
If dDateCurrent = dteCurrentEndProj And blnIsFirstTime Then
intRenewalCpt += 1
dteCurrentNotification = dteRenewal.AddMonths(intRenewalCpt * dr(r)("RenewEachNbMonths")).AddDays(-1 * dr(r)("DaysNoticeExt"))
dteCurrentEndProj = dteRenewal.AddMonths(intRenewalCpt * dr(r)("RenewEachNbMonths"))
intRenewsEachNbMonths = Integer.Parse(dr(r)("RenewEachNbMonths"))
blnIsFirstTime = False
End If
If dDateCurrent < dteCurrentEndProj And Not blnIsFirstTime Then
sColor1 = dr(r)("ColorHtmlExt")
ElseIf Not blnIsFirstTime Then
sColor1 = "#FFFFFF"
sProject = "No Assignment"
End If
End If
End If
DailyHoursTBP = dr(r)("DailyHoursTBP")
DateEnd = dr(r)("DateEnd")
DaysNoticeExt = dr(r)("DaysNoticeExt")
TotalHoursMonth = dr(r)("TotalHoursMonth")
TSID = dr(r)("TSID")
If Me.optMonths.SelectedValue = 1 Then ' One month view
Hours = Hours + Math.Round(dr(r)(14 + dDateCurrent.Day), 2, MidpointRounding.AwayFromZero)
Else
Hours = Hours + Math.Round(dr(r)(14 + dDateCurrent.Day), 1, MidpointRounding.AwayFromZero)
End If
HoursMonth = HoursMonth + dr(r)(14 + dDateCurrent.Day)
Exit For
End If
TSID = dr(r)("TSID")
If Me.optMonths.SelectedValue = 1 Then ' One month view
Hours = Hours + Math.Round(dr(r)(14 + dDateCurrent.Day), 2, MidpointRounding.AwayFromZero)
Else
Hours = Hours + Math.Round(dr(r)(14 + dDateCurrent.Day), 1, MidpointRounding.AwayFromZero)
End If
HoursMonth = HoursMonth + dr(r)(14 + dDateCurrent.Day)
Else
' Client / Project view
If Not IsDBNull(dr(r)("DateStart")) And Not IsDBNull(dr(r)("DateEnd")) Then
If dDateCurrent >= dr(r)("DateStart") And dDateCurrent <= dr(r)("DateEnd") Then
If bClientProject Then
If dr(r)("ProjectTypeID") <= 3 Then 'Client Project
' START someone's name changes
If Server.HtmlDecode(e.Row.Cells(2).Text) = dr(r)("ProjectName") AndAlso Server.HtmlDecode(e.Row.Cells(1).Text) = dr(r)("CustomerName") Then
' STOP someone's name changes
sProject = GetProjectInfoToolTip(dr, r)
sColor1 = dr(r)("ColorHtml")
If Not IsDBNull(dr(r)("FirstRenewalDate")) Then
If Not dDateCurrent < dr(r)("FirstRenewalDate") Then
If dteCurrentNotification < DateTime.Today() Then
dteRenewal = DateTime.Parse(dr(r)("FirstRenewalDate").ToString())
Do Until dteCurrentNotification >= DateTime.Today()
intRenewalCpt += 1
dteCurrentNotification = dteRenewal.AddMonths(intRenewalCpt * dr(r)("RenewEachNbMonths")).AddDays(-1 * dr(r)("DaysNoticeExt"))
dteCurrentEndProj = dteRenewal.AddMonths(intRenewalCpt * dr(r)("RenewEachNbMonths"))
Loop
End If
If dDateCurrent = dteCurrentEndProj And blnIsFirstTime Then
intRenewalCpt += 1
dteCurrentNotification = dteRenewal.AddMonths(intRenewalCpt * dr(r)("RenewEachNbMonths")).AddDays(-1 * dr(r)("DaysNoticeExt"))
dteCurrentEndProj = dteRenewal.AddMonths(intRenewalCpt * dr(r)("RenewEachNbMonths"))
intRenewsEachNbMonths = Integer.Parse(dr(r)("RenewEachNbMonths"))
blnIsFirstTime = False
End If
If dDateCurrent < dteCurrentEndProj And Not blnIsFirstTime Then
sColor1 = dr(r)("ColorHtmlExt")
ElseIf Not blnIsFirstTime Then
sColor1 = "#FFFFFF"
sProject = "No Assignment"
End If
End If
End If
DailyHoursTBP = dr(r)("DailyHoursTBP")
DateEnd = dr(r)("DateEnd")
DaysNoticeExt = dr(r)("DaysNoticeExt")
TotalHoursMonth = dr(r)("TotalHoursMonth")
End If
End If
Else
End If
End If
End If
If dr(r)(14 + dDateCurrent.Day) > 4 Then
If Server.HtmlDecode(e.Row.Cells(2).Text) = dr(r)("ProjectName") Or dr(r)("ProjectTypeID") = 6 Then
sColor1 = dr(r)("ColorHtml")
If Not IsDBNull(dr(r)("FirstRenewalDate")) Then
If Not dDateCurrent < dr(r)("FirstRenewalDate") Then
If dteCurrentNotification < DateTime.Today() Then
dteRenewal = DateTime.Parse(dr(r)("FirstRenewalDate").ToString())
Do Until dteCurrentNotification >= DateTime.Today()
intRenewalCpt += 1
dteCurrentNotification = dteRenewal.AddMonths(intRenewalCpt * dr(r)("RenewEachNbMonths")).AddDays(-1 * dr(r)("DaysNoticeExt"))
dteCurrentEndProj = dteRenewal.AddMonths(intRenewalCpt * dr(r)("RenewEachNbMonths"))
Loop
End If
If dDateCurrent = dteCurrentEndProj And blnIsFirstTime Then
intRenewalCpt += 1
dteCurrentNotification = dteRenewal.AddMonths(intRenewalCpt * dr(r)("RenewEachNbMonths")).AddDays(-1 * dr(r)("DaysNoticeExt"))
dteCurrentEndProj = dteRenewal.AddMonths(intRenewalCpt * dr(r)("RenewEachNbMonths"))
intRenewsEachNbMonths = Integer.Parse(dr(r)("RenewEachNbMonths"))
blnIsFirstTime = False
End If
If dDateCurrent < dteCurrentEndProj And Not blnIsFirstTime Then
sColor1 = dr(r)("ColorHtmlExt")
ElseIf Not blnIsFirstTime Then
sColor1 = "#FFFFFF"
sProject = "No Assignment"
End If
End If
End If
DailyHoursTBP = dr(r)("DailyHoursTBP")
DateEnd = dr(r)("DateEnd")
DaysNoticeExt = dr(r)("DaysNoticeExt")
TotalHoursMonth = dr(r)("TotalHoursMonth")
TSID = dr(r)("TSID")
If Me.optMonths.SelectedValue = 1 Then ' One month view
Hours = Hours + Math.Round(dr(r)(14 + dDateCurrent.Day), 2, MidpointRounding.AwayFromZero)
Else
Hours = Hours + Math.Round(dr(r)(14 + dDateCurrent.Day), 1, MidpointRounding.AwayFromZero)
End If
HoursMonth = HoursMonth + dr(r)(14 + dDateCurrent.Day)
Exit For
End If
End If
TSID = dr(r)("TSID")
If Server.HtmlDecode(e.Row.Cells(2).Text) = dr(r)("ProjectName") Then
If Me.optMonths.SelectedValue = 1 Then ' One month view
Hours = Hours + Math.Round(dr(r)(14 + dDateCurrent.Day), 2, MidpointRounding.AwayFromZero)
Else
Hours = Hours + Math.Round(dr(r)(14 + dDateCurrent.Day), 1, MidpointRounding.AwayFromZero)
End If
If dr(r)("ProjectTypeID") >= 4 Then ' Internal Project
HoursInternalMonth = HoursInternalMonth + dr(r)(14 + dDateCurrent.Day)
End If
HoursClientMonth = HoursClientMonth + dr(r)(14 + dDateCurrent.Day)
HoursMonth = HoursMonth + dr(r)(14 + dDateCurrent.Day)
End If
End If
End If
Next ' Next record in Timesheets/Projects Employee
bgColor = Drawing.ColorTranslator.FromHtml(sColor1)
e.Row.Cells(i).BackColor = bgColor
If Me.GridView1.HeaderRow.Cells(i).BackColor <> Drawing.Color.Gray Then
If dDateCurrent = dteCurrentNotification And Not blnIsFirstTime Then
e.Row.Cells(i).ToolTip = "Passed this deadline, the contract will be automatically prolonged for " & _
intRenewsEachNbMonths & " month(s)"
Else
e.Row.Cells(i).ToolTip = sProject
End If
HoursTBPMonth = HoursTBPMonth + DailyHoursTBP
End If
e.Row.Cells(i).Font.Size = iFontSizeHours
e.Row.Cells(i).ForeColor = Drawing.Color.White
e.Row.Cells(i).HorizontalAlign = HorizontalAlign.Center
If Me.chkHours.Checked Then
If dDateCurrent = dteCurrentNotification And Not blnIsFirstTime Then
e.Row.Cells(i).Text = IIf(Hours > 0, "<span style=""color: Black;"">* </style>" + Hours.ToString, "<span style=""color: Black;"">*</style>")
Else
e.Row.Cells(i).Text = IIf(Hours > 0, Hours.ToString, "")
End If
End If
Else
' No projects assigned
e.Row.Cells(i).ToolTip = sProject
e.Row.Cells(i).BackColor = Drawing.ColorTranslator.FromHtml("#FFFFFF")
End If
If iDayofWeek = 7 Or iDayofWeek = 1 Then
e.Row.Cells(i).ToolTip = "Weekend"
e.Row.Cells(i).BackColor = Drawing.Color.Gray
e.Row.Cells(i).Width = 20
Else
If Me.GridView1.HeaderRow.Cells(i).BackColor = Drawing.Color.Gray Then
'Public Holiday
bgColor = Drawing.Color.Gray
e.Row.Cells(i).ToolTip = "Public Holiday"
e.Row.Cells(i).BackColor = bgColor
End If
e.Row.Cells(i).Width = DayWidth
End If
End If
dDateCurrent = DateAdd(DateInterval.Day, 1, dDateCurrent)
If iMonth <> dDateCurrent.Month And Me.chkTotals.Checked Then
' TOTALS: Total column month
i = i + 1
If bProjectFoundMonth = True Then
e.Row.Cells(i).Attributes("onmouseover") = "this.style.cursor='hand';this.style.textDecoration='underline';this.style.color='blue'"
e.Row.Cells(i).Attributes("OnClick") = "javascript:location.href='Timesheet.aspx?t=e&tsid=" & TSID.ToString & "'"
Dim sTSClosedLabel As String = ""
If HoursMonth < ((WorkPerc / 100) * HoursTBPMonth) Then
' Timesheet not completed, i.e. not all hours performed
If bTSClosed Then
e.Row.Cells(i).ForeColor = Drawing.ColorTranslator.FromHtml("#006464")
sTSClosedLabel = "Timesheet closed" & vbCrLf
e.Row.Cells(i).Attributes("onmouseout") = "this.style.textDecoration='none';this.style.color='#006464'"
e.Row.Cells(i).ToolTip = sTSClosedLabel & sb("Remaining hours: ", Math.Round(((WorkPerc / 100) * HoursTBPMonth) - HoursMonth, 2, MidpointRounding.AwayFromZero).ToString, vbCrLf, "Click to open the Timesheet")
Else
If Me.optGroupBy.SelectedValue = 3 Then ' Client/Project view
If TotalHoursMonth < ((WorkPerc / 100) * HoursTBPMonth) Then
e.Row.Cells(i).ForeColor = Drawing.ColorTranslator.FromHtml("#E60000")
e.Row.Cells(i).Attributes("onmouseout") = "this.style.textDecoration='none';this.style.color='#E60000'"
Else
e.Row.Cells(i).ForeColor = Drawing.Color.Black
e.Row.Cells(i).Attributes("onmouseout") = "this.style.textDecoration='none';this.style.color='black'"
End If
e.Row.Cells(i).ToolTip = "Click to open the Timesheet"
Else
' Display in red
e.Row.Cells(i).ForeColor = Drawing.ColorTranslator.FromHtml("#E60000")
e.Row.Cells(i).Attributes("onmouseout") = "this.style.textDecoration='none';this.style.color='#E60000'"
e.Row.Cells(i).ToolTip = sb("Remaining hours: ", Math.Round(((WorkPerc / 100) * HoursTBPMonth) - HoursMonth, 2, MidpointRounding.AwayFromZero).ToString, vbCrLf, "Click to open the Timesheet")
End If
End If
Else
' Timesheet completed, i.e. hours performed
If bTSClosed Then
' Timesheet closed
e.Row.Cells(i).ForeColor = Drawing.ColorTranslator.FromHtml("#006464")
sTSClosedLabel = "Timesheet closed" & vbCrLf
e.Row.Cells(i).Attributes("onmouseout") = "this.style.textDecoration='none';this.style.color='#006464'"
Else
e.Row.Cells(i).ForeColor = Drawing.Color.Black
e.Row.Cells(i).Attributes("onmouseout") = "this.style.textDecoration='none';this.style.color='black'"
End If
If HoursMonth > ((WorkPerc / 100) * HoursTBPMonth) Then
e.Row.Cells(i).ToolTip = sb("Additional hours: ", Math.Round(Math.Abs(((WorkPerc / 100) * HoursTBPMonth) - HoursMonth), 2, MidpointRounding.AwayFromZero).ToString, vbCrLf, sb(sTSClosedLabel, "Click to open the Timesheet"))
Else
e.Row.Cells(i).ToolTip = sTSClosedLabel & "Click to open the Timesheet"
End If
End If
e.Row.Cells(i).HorizontalAlign = HorizontalAlign.Right
e.Row.Cells(i).Font.Size = iFontSizeHours
e.Row.Cells(i).Font.Bold = True
HoursMonth = HoursMonth - HoursInternalMonth ' Test
If Me.optMonths.SelectedValue = 1 Then ' One month view
HoursMonth = Math.Round(HoursMonth, 2, MidpointRounding.AwayFromZero)
If InStr(HoursMonth.ToString, ".") = 0 Then
e.Row.Cells(i).Text = IIf(HoursMonth >= 0, HoursMonth.ToString & ".00", "")
Else
e.Row.Cells(i).Text = IIf(HoursMonth >= 0, HoursMonth.ToString("#.00"), "")
End If
Else
HoursMonth = Math.Round(HoursMonth, 1, MidpointRounding.AwayFromZero)
If InStr(HoursMonth.ToString, ".") = 0 Then
e.Row.Cells(i).Text = IIf(HoursMonth >= 0, HoursMonth.ToString & ".0", "")
Else
e.Row.Cells(i).Text = IIf(HoursMonth >= 0, HoursMonth.ToString, "")
End If
End If
End If
e.Row.Cells(i).BackColor = Drawing.ColorTranslator.FromHtml("#8ECBDD")
HoursMonth = 0
HoursTBPMonth = 0
End If
i = i + 1
Loop
End If
End Select
End Sub
Well this is enough to keep the forum busy for few days I believe.
modified 21-Jun-23 3:47am.
|
|
|
|
|
That's terrible!
I mean...VB? 
No trees were harmed in the sending of this message; however, a significant number of electrons were slightly inconvenienced.
This message is made of fully recyclable Zeros and Ones
|
|
|
|
|
Wow, what a beast. My deepest condolences.
A dogged, arrogant belief in self and the childlike idealism that comes with not knowing my limits. This is my greatest blessing, my priceless attribute.
|
|
|
|
|
"Swiss made" implies elgance in design, using the least amount of parts in a well-thought out fashion.
This is more German made, where the engineering uses the most amount of parts possible to do the simplest of jobs.
The breech of a certain German artillery piece (can't remember which) was made with 192 parts. The equivilent artillery piece on the U.S. side used 48. The Swiss probably could have done it in 20.
|
|
|
|
|
Snif :'(
I vote for removing the Swiss citizenship of this programmer 
|
|
|
|
|
What's your problem with Germans?
There are idiots as well as geniuses and everything in between everywhere in the world...
Maybe you should not care that much about weapons...
Regards
Thomas
www.thomas-weller.de
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.
Programmer - an organism that turns coffee into software.
|
|
|
|
|
 is your problem?? All I did was bring up something I saw in a documentery about artillery and it's reliablilty and maintainability, and you think I'm picking on the Germans? Dude, back then, during the war, they tended to over-engineer their weapons. That's all I'm saying...
|
|
|
|
|
I agree with you
And what's about an italian like me? Would you like me to speak about spaghetti code?
Luckly italian people does not always write spaghetti as they eat!! :P
|
|
|
|
|
LMAO!
Ever here the American sing-a-long: 'On top of old meatball...'
|
|
|
|
|
And Danish code is just sweet!...
"God doesn't play dice" - Albert Einstein
"God not only plays dice, He sometimes throws the dices where they cannot be seen" - Niels Bohr
|
|
|
|
|
that's just too funny. I guess he's a bit cranky. I happen to be a bit of an armor historian buff, and the big, bad German tanks of ww2 were mostly junk. Credit to the 88 and the high velocity 75, but reliability is everything. The Tiger 2 and Panther broke down at horrendous rates. The panther's armor was spotty at best with mediocre quality of the armor plate, etc.
Kelly's Heroes Tiger Tank - YouTube[^]
Reliability was key. So, I appreciate the comment on the complexity of the arty pieces. I just wish some of the defense contractors in the US would learn.
Charlie Gilley
“They who can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety.” BF, 1759
Has never been more appropriate.
|
|
|
|
|
Yeah, so it's long and wide, some methods have to be; what have you replaced it with?
|
|
|
|
|
|
So what?
As far as I've seen it, all the magic numbers are commented (not totally sure, somewhere in the middle my eyes began to bleed)...
Regards
Thomas
www.thomas-weller.de
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.
Programmer - an organism that turns coffee into software.
|
|
|
|
|
Well, that code brings me back to the 90's. Typical "journeyman programmer" production. The journeyman programmer doesn't care about software engineering or improving the skills in their trade, just hack away until it works... eventually they work up their way to be project manager and leave the crap to someone else to maintain . Don't let it get to you too much the first 20 years are the worse
|
|
|
|
|
Very well put  I wouldn't even use the word 'programmer' in the same sense as VB, more like 'user'.
VB - curse of many bad project implementations.
|
|
|
|
|
In fairness, a lot of bad implementations are done in other languages, I dare say there are as many shocking apps developed in C# as there are VB.Net.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
