Mistři v programování na #hovnokod

Interesting alternative for the "Or" key.

                If ViewModel.Deal.IsUsDeal() Then
                    SetZChangedValue(True)
                    Synchronize()
                    CalculateUSV()
                    SetZChangedValue(False)
                    PopulateFleetControls()
                ElseIf ViewModel.Deal.IsDachDeal() Then
                    SetZChangedValue(True)
                    Synchronize()
                    CalculateUSV()
                    SetZChangedValue(False)
                    PopulateFleetControls()
                End If

Anonymous,


Anonymous,

        Private Sub SetFleetControls()
            Dim isEnabled = FleetScreen.AircraftsGrid.RowCount > 0
            If isEnabled Then
                SingleCopyAircraftButton.Enabled = True
                MultiCopyAircraftButton.Enabled = True
                FleetToExcelButton.Enabled = True
                FleetFromExcelButton.Enabled = True
                OpenAircraftDetailsButton.Enabled = True
                FleetCostingDetailsToExcelButton.Enabled = True
                FleetCostingDetailsFromExcelButton.Enabled = True
                DetailsToExcelButton.Enabled = True
                AllocateTotalPremiumButton.Enabled = True
                FleetApplySuggestedButton.Enabled = True
            Else
                SingleCopyAircraftButton.Enabled = False
                MultiCopyAircraftButton.Enabled = False
                FleetToExcelButton.Enabled = False
                FleetFromExcelButton.Enabled = False
                OpenAircraftDetailsButton.Enabled = False
                FleetCostingDetailsToExcelButton.Enabled = False
                FleetCostingDetailsFromExcelButton.Enabled = False
                DetailsToExcelButton.Enabled = False
                AllocateTotalPremiumButton.Enabled = False
                FleetApplySuggestedButton.Enabled = False
            End If
        End Sub

Anonymous,

If True Then...

If grdFaktury.Value(grdFaktury.Columns.Item("exportovane").Index) <> 2 Or grdFaktury.Value(grdFaktury.Columns.Item("exportovane").Index) <> 3 Then
   ...
End If

Anonymous,

I don't want to live on this planet anymore..

   Call Loguj(3, "PUBDATE: Neni klasicky format: [" & strLog & "] original [" & strOrigPubDate & "]" & ex.Message, strAktualRSS)
                            'Fri, 17 Jun 2011 10:28:00 GMT
                            Try
                                pubDate = DateTime.ParseExact(strLog, "ddd, dd MMM yyyy HH:mm:ss zzz", System.Globalization.DateTimeFormatInfo.InvariantInfo, Globalization.DateTimeStyles.None)
                                Call Loguj(3, "PUBDATE: OK TRANSFORM : [" & strLog & "] -> [" & pubDate.ToString & "]", strAktualRSS)

                            Catch ex2 As Exception
                                Try
                                    pubDate = DateTime.ParseExact(strLog, "ddd, d MMM yyyy H:mm:ss GMT", System.Globalization.DateTimeFormatInfo.InvariantInfo, Globalization.DateTimeStyles.None)
                                    Call Loguj(3, "PUBDATE: OK TRANSFORM : [" & strLog & "] -> [" & pubDate.ToString & "]", strAktualRSS)

                                Catch ex3 As Exception
                                    Try
                                        pubDate = DateTime.ParseExact(strLog, "yyyy-MM-ddTHH:mm:ssK", System.Globalization.DateTimeFormatInfo.InvariantInfo, Globalization.DateTimeStyles.AllowLeadingWhite)
                                        Call Loguj(3, "PUBDATE: OK TRANSFORM : [" & strLog & "] -> [" & pubDate.ToString & "]", strAktualRSS)
....................
Catch ex42 As Exception
Try
pubDate = DateTime.ParseExact(strLog, "ddd dd MMM yyyy H:mm:ss CST", System.Globalization.DateTimeFormatInfo.InvariantInfo, Globalization.DateTimeStyles.None)
Call Loguj(3, "PUBDATE: OK TRANSFORM : [" & strLog & "] -> [" & pubDate.ToString & "]", strAktualRSS)

Catch ex44 As Exception
Call Loguj(1, "PUBDATE: NEZNAMY FORMAT : [" & strLog & "] [" & strOrigPubDate & "]" & ex44.Message, strAktualRSS)
pubDate = DateAdd(DateInterval.Hour, -4, Now())
intPubDateOk = 0

End Try
End Try
End Try
..........
End Try
End Try

Anonymous,