vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2018
 
zurück

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

VB.NET - Fortgeschrittene
Daten Auswerten 
Autor: ERBRU
Datum: 13.06.18 19:21

ich brauche eure Hilfe,

habe eine Tabelle
Spalte---------------Typ
ID-------------------Autowert(Int32)
Liefermangel---------String
Eingang--------------DateTime
Woche----------------Funktion(DateToWeek) (String)
Beschreibung---------String
Verursacher----------String

Stellungnahme--------String
Status---------------String

Nun, möchte ich ein Balkendiagramm 2018 mit den Monaten: Januar, Feburar ...,Dezember

Balken: je Monat Anzahl Liefermangel, und je Monat Häufigkeit Verursacher zum Liefermangel.

Hoffe bekomme auf dies Thema eine Antwort wie man ein Jahresdiagramm erstellen kann und die Daten richtig präsentiert (Bericht) für den Chef

Function DateToWeek zur berechnung der Woche aus Datum
 Public Function DateToWeek(ByVal dDate As Date) As String
        ' Startdatum der ersten Kalenderwoche des Jahres und Folgejahres 
        ' berechnen
        Dim dThisYear As Date = CalendarWeek(1, dDate.Year)
        Dim dNextYear As Date = CalendarWeek(1, dDate.Year + 1)
 
        ' Prüfen, ob Datum zur ersten Woche des Folgejahres gehört
        If dDate >= dNextYear Then
            ' Rückgabe: KW 1 des Folgejahres
            Return dDate.Year + 1 & "01"
        ElseIf dDate < dThisYear Then
            ' Falls das Datum noch zu einer KW aus dem letzten Jahr zählt
            Return dDate.Year - 1 & DatePart(DateInterval.WeekOfYear, _
              New Date(dDate.Year - 1, 12, 28), FirstDayOfWeek.Monday, _
              FirstWeekOfYear.FirstFourDays)
        Else
            ' KW = Differenz zum ersten Tag der ersten Woche
            Return dDate.Year & Format$(dDate.Subtract(dThisYear).Days \ 7 + 1, _
              "00")
        End If
    End Function
|Beispiel: Lieferant, Kunde, Material etc. = Verursacher.
so wird der Verursacher Lieferant für den Mangel 1, 2, ... mal zugewiesen, oder der Kunde etc.
oder das Material, oder Sonstiges

seht euch das Bild mal an. Danke, Danke
https://picload.org/view/dopggdpi/13-06-_2018_19-31-04.png.html

Beitrag wurde zuletzt am 13.06.18 um 19:41:12 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Daten Auswerten233ERBRU13.06.18 19:21
Re: Daten Auswerten90Manfred X13.06.18 20:25
Re: Daten Auswerten82ERBRU14.06.18 06:44
Re: Daten Auswerten85Manfred X14.06.18 11:39
Re: Daten Auswerten58ERBRU17.06.18 10:17
Re: Daten Auswerten31ERBRU30.06.18 20:30
Re: Daten Auswerten31ERBRU02.07.18 06:05
Re: Daten Auswerten68ERBRU14.06.18 15:04

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-2018 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