Click here to Skip to main content
13,052,351 members (50,112 online)

The Weird and The Wonderful

   

The Weird and The Wonderful forum is a place to post Coding Horrors, Worst Practices, and the occasional flash of brilliance.

We all come across code that simply boggles the mind. Lazy kludges, embarrassing mistakes, horrid workarounds and developers just not quite getting it. And then somedays we come across - or write - the truly sublime.

Post your Best, your worst, and your most interesting. But please - no programming questions . This forum is purely for amusement and discussions on code snippets. All actual programming questions will be removed.

 
GeneralVal Grind (the wrong kind) Pin
Rob Grainger20-Dec-12 5:12
memberRob Grainger20-Dec-12 5:12 
From some legacy VB6 code I'm in the process of making redundant...

Private Sub Command7_Click()
    Dim PolNumb As Long
 
    If Val("" & txtOpenPolicyNo) > 0 Then
        PolNumb = Val("" & txtOpenPolicyNo)
    Else
        PolNumb = Val("" & InputBox("Policy ID "))
        If Val("" & PolNumb) > 0 Then
           PolNumb = GetPolicyNumberfromID(PolNumb)
        End If
    End If
 
    If Val("" & PolNumb) > 0 Then
        FindPolicy GetPolicyIDfromNumber(PolNumb)
    End If
End Sub


I particularly like the lines...

If Val("" & PolNumb) > 0 Then


which effectively convert a number to a string, prepend an empty string, then convert it back again... just for good measure.
GeneralRe: Val Grind (the wrong kind) Pin
Naerling20-Dec-12 10:40
memberNaerling20-Dec-12 10:40 
GeneralRe: Val Grind (the wrong kind) Pin
Nagy Vilmos20-Dec-12 22:55
memberNagy Vilmos20-Dec-12 22:55 
GeneralRe: Val Grind (the wrong kind) Pin
Brady Kelly2-Jan-13 21:46
memberBrady Kelly2-Jan-13 21:46 
GeneralRe: Val Grind (the wrong kind) Pin
Nagy Vilmos2-Jan-13 22:52
memberNagy Vilmos2-Jan-13 22:52 
GeneralRe: Val Grind (the wrong kind) Pin
LesF4-Jan-13 9:51
memberLesF4-Jan-13 9:51 
GeneralRe: Val Grind (the wrong kind) Pin
Rob Grainger4-Jan-13 10:09
memberRob Grainger4-Jan-13 10:09 
GeneralRe: Val Grind (the wrong kind) Pin
Naerling4-Jan-13 11:56
memberNaerling4-Jan-13 11:56 
GeneralRe: Val Grind (the wrong kind) Pin
Member 46088986-Jan-13 11:45
memberMember 46088986-Jan-13 11:45 
GeneralRe: Val Grind (the wrong kind) Pin
Naerling6-Jan-13 12:26
memberNaerling6-Jan-13 12:26 
GeneralRe: Val Grind (the wrong kind) Pin
Chris Quinn24-Dec-12 0:19
memberChris Quinn24-Dec-12 0:19 
GeneralRe: Val Grind (the wrong kind) Pin
Rob Grainger29-Dec-12 3:19
memberRob Grainger29-Dec-12 3:19 
GeneralRe: Val Grind (the wrong kind) Pin
Chris Quinn31-Dec-12 0:17
memberChris Quinn31-Dec-12 0:17 
GeneralRe: Val Grind (the wrong kind) Pin
Rob Grainger31-Dec-12 2:57
memberRob Grainger31-Dec-12 2:57 
AnswerRe: Val Grind (the wrong kind) Pin
Mark Hurd3-Jan-13 14:32
memberMark Hurd3-Jan-13 14:32 
GeneralRe: Val Grind (the wrong kind) Pin
Rob Grainger4-Jan-13 9:55
memberRob Grainger4-Jan-13 9:55 
GeneralRe: Val Grind (the wrong kind) Pin
Mark Hurd4-Jan-13 14:56
memberMark Hurd4-Jan-13 14:56 
GeneralRe: Val Grind (the wrong kind) Pin
playstation328-Dec-12 21:22
memberplaystation328-Dec-12 21:22 
JokeRe: Val Grind (the wrong kind) Pin
RafagaX3-Jan-13 4:57
memberRafagaX3-Jan-13 4:57 
GeneralRe: Val Grind (the wrong kind) Pin
dshillito3-Jan-13 10:58
memberdshillito3-Jan-13 10:58 
GeneralRe: Val Grind (the wrong kind) Pin
Rob Grainger4-Jan-13 9:56
memberRob Grainger4-Jan-13 9:56 
GeneralRe: Val Grind (the wrong kind) Pin
cpkilekofp11-Jan-13 7:02
membercpkilekofp11-Jan-13 7:02 
GeneralRe: Val Grind (the wrong kind) Pin
Rob Grainger11-Jan-13 7:42
memberRob Grainger11-Jan-13 7:42 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.


Advertise | Privacy | Mobile
Web02 | 2.8.170713.1 | Last Updated 26 Jul 2017
Copyright © CodeProject, 1999-2017
All Rights Reserved. Terms of Service
Layout: fixed | fluid