vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Re: Stördaten Ereignisse auswerten 
Autor: ERBRU
Datum: 22.04.17 15:56

Sorry, habe die Funktion angepasst es fehlte die Maschine

AndAlso _
            row.Field(Of Integer)("MaschinenID") = masch
Danke! nun würde ich gerne wissen wollen was der mininterval bedeutet?


 Private Function GetErrorsInWeeks(year As Integer, masch As Integer, _
                             mininterval As Integer) As DataTable
        Dim dt As DataTable = TPMDB.Stoerungen
        Dim cal As Globalization.Calendar = _
        Globalization.CultureInfo.CurrentCulture.Calendar
 
        Dim q = From row As DataRow In dt.AsEnumerable
          Where IsFullRow(row) AndAlso _
            row.Field(Of Date)("Eintrag").Year = year AndAlso _
            row.Field(Of Integer)("MaschinenID") = masch
            Let wk As Integer = _
                  cal.GetWeekOfYear(row.Field(Of Date)("Eintrag"), _
                  Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday), _
            art As String = row.Field(Of String)("ArtderStörung"), _
            minint As Boolean = _
                row.Field(Of Integer)("Stoerdauer") >= mininterval
          Group By wk, art, minint Into Count()
          Order By wk, art, minint
 
        Dim df As New DataTable
        With df.Columns
            .Add("Woche in " & year.ToString)
            .Add("Art der Störung")
            .Add(mininterval.ToString & " Min. überschritten?", GetType( _
              Boolean))
            .Add("Häufigkeit", GetType(Integer))
        End With
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Stördaten Ereignisse auswerten2.256ERBRU21.04.17 06:34
Re: Stördaten Ereignisse auswerten1.508Manfred X21.04.17 08:03
Re: Stördaten Ereignisse auswerten1.425ERBRU21.04.17 08:48
Re: Stördaten Ereignisse auswerten1.409Manfred X21.04.17 12:29
Re: Stördaten Ereignisse auswerten1.391ERBRU21.04.17 16:48
Re: Stördaten Ereignisse auswerten1.432Manfred X21.04.17 17:34
Re: Stördaten Ereignisse auswerten1.367ERBRU21.04.17 20:33
Re: Stördaten Ereignisse auswerten1.640Manfred X21.04.17 21:51
Re: Stördaten Ereignisse auswerten1.381ERBRU22.04.17 15:45
Re: Stördaten Ereignisse auswerten1.403ERBRU22.04.17 15:56
Re: Stördaten Ereignisse auswerten1.492Manfred X22.04.17 16:50
Re: Stördaten Ereignisse auswerten1.375ERBRU22.04.17 17:12
Re: Stördaten Ereignisse auswerten1.402Manfred X22.04.17 17:23
Re: Stördaten Ereignisse auswerten1.409effeff22.04.17 18:06
Re: Stördaten Ereignisse auswerten1.421ERBRU22.04.17 18:36
Re: Stördaten Ereignisse auswerten1.402ERBRU23.04.17 12:58
Re: Stördaten Ereignisse auswerten1.410Manfred X23.04.17 14:45
Re: Stördaten Ereignisse auswerten1.359ERBRU23.04.17 15:35
Re: Stördaten Ereignisse auswerten1.386ERBRU25.04.17 06:11
Re: Stördaten Ereignisse auswerten1.383Manfred X25.04.17 08:17
Re: Stördaten Ereignisse auswerten1.360ERBRU25.04.17 15:14
Re: Stördaten Ereignisse auswerten1.555Manfred X25.04.17 16:14
Re: Stördaten Ereignisse auswerten1.415Franki26.04.17 03:24
Re: Stördaten Ereignisse auswerten1.402Manfred X26.04.17 07:09

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel