Seniority = Stupidity?

RobIII

Mr. A. Malick is working as a Senior Programmer. He needed to substract some days of a given date. He knew about DateAdd as the code shows:

'*************************************************
'>>>>>DateMan for DateAdd and DateSub
'>>>>>DateAdd is a defualt function
'>>>>>DateSub is the fuction will help us to determine
'>>>>>the no. of days before the given date.
'<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>
'<<<<< Developed by A. XXXXX Malick >>>>>
'<<<<< Senior Programmer >>>>>
'<<<<< XXXXXXX@yahoo.com >>>>>
'<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>
'Add Microsoft Windows Common Controls-2 6.0 (SP4) to your project
'Add two DTPikcer to the form
Option Explicit
Dim SDate As Date
Dim PDate As Date
Dim D As Integer
Private Sub Command1_Click()
Text2.Text = DateSub(DTPicker1.Value, Val(Text1))
End Sub

Private Function DateSub(Date1 As Date, NoofDays As Integer) As Date
On Error GoTo ErrPart
PDate = Date1
D = NoofDays
If Day(PDate) - D <= 0 Then
 Select Case Month(PDate) - 1
 Case 0:
 SDate = CDate(31 - Abs(Day(PDate) - D) & "/" & 12 & "/" & Year(PDate))
 Case 1, 3, 5, 7, 8, 10, 12:
 SDate = CDate(31 - Abs(Day(PDate) - D) & "/" & Month(PDate) - 1 & "/" & Year(PDate))
 Case 4, 6, 9, 11:
 SDate = CDate(30 - Abs(Day(PDate) - D) & "/" & Month(PDate) - 1 & "/" & Year(PDate))
 Case 2:
 If Year(PDate) Mod 4 = 0 Then
 SDate = CDate(29 - Abs(Day(PDate) - D) & "/" & Month(PDate) - 1 & "/" & Year(PDate))
 Else
 SDate = CDate(28 - Abs(Day(PDate) - D) & "/" & Month(PDate) - 1 & "/" & Year(PDate))
 End If
 End Select
ElseIf Day(PDate) - D > 0 Then
 SDate = CDate(Day(PDate) - D & "/" & Month(PDate) & "/" & Year(PDate))
End If
DateSub = SDate
Exit Function
ErrPart:
 MsgBox Err.Number & ": " & Err.Description
End Function

Private Sub Command2_Click()
Text4.Text = DateAdd("d", Val(Text3.Text), DTPicker2.Value)
End Sub

How come Mr. Sr. Programmer never thought about adding NEGATIVE values then? A simple DateAdd("d",-7,SomeDate) would've done the trick [:D] And how come this guy ever became a senior? Who promoted him? CONFESS! Who was it?

Yes, I xxx-ed out some personal stuff, but if you look for it on PSC* it's easy to find [;)]

* One of the bigger WTF-sources I know to exsist [:P]

RobIII

Nice to see that all my hand-colored code (syntax highlighting) is gone. Crappy forum <grmbl>

dhromed

... NoofDays?

RobIII

I guess it's a typo for NoobDays which was a remake of Happy Days where Fonzie was left out and only the nerds appeared in [:D]

Albatross

This entire system will break down when we finally introduce the 13th month, which has 4 days! He'll have to rewrite the entire subroutine! What was he thinking???

SeekerDarksteel

@Albatross said:

This entire system will break down when we finally introduce the 13th month

Will it be called Smarch?

GalacticCowboy

Floopuary

GalacticCowboy

Milestones Professional 2023

John_Smallberries

@RobIII said:

'<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>
'<<<<< Developed by A. XXXXX Malick >>>>>
'<<<<< Senior Programmer >>>>>
'<<<<< XXXXXXX@yahoo.com >>>>>
'<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>


<crosses fingers="" and="" hits="" post=""></crosses>

The real WTF is that he put his title in the code. What happens when he gets promoted to Director?

RobIII

@John Smallberries said:

@RobIII said:

'<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>
'<<<<< Developed by A. XXXXX Malick >>>>>
'<<<<< Senior Programmer >>>>>
'<<<<< XXXXXXX@yahoo.com >>>>>
'<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>


<CROSSES post="" hits="" and="" fingers=""></CROSSES>

The real WTF is that he put his title in the code. What happens when he gets promoted to Director?

Don't worry, he won't [:D]

Also, I apologize for posting this thread in the wrong (sub)forum. I didn't even notice it before...

TomCo

@SeekerDarksteel said:

@Albatross said:
This entire system will break down when we finally introduce the 13th month

Will it be called Smarch?

Nebruary or Nonvember. Take your pick.

Albatross

Hey guys, do a google search for floopuary and look at the fourth result...

GalacticCowboy

Scary.

dhromed

@Albatross said:

Hey guys, do a google search for floopuary and look at the fourth result...

Superb!

John_Bigboote

<ConneryVoice>Febtober!</ConneryVoice>

Oscar_L

@Albatross said:

Hey guys, do a google search for floopuary and look at the fourth result...

Now do a search for Floopuary on Google and look at the third result. Looks like we edged out that broken link for a usegroup post.

wiggzie

sounds like someone wishes he was a senior programmer... picking out 1 crap piece of code that someone else wrote to say he is rubbish is a bit unfair - how about we go through some of your code...