Fråga : Nya data för Sql-Query på 9am endast

Min strömquery ger mig datastart på 9am - (24 timmar)
som jag behöver endast att se 9am endast för varje min dag i datera range.

SELECT FlowLogPeriod.MdbDeviceID, DeviceSummary.MeterID, omvänden (datetime, FlowLogPeriod.LogPeriodFlowDateTime, 101), FlowLogPeriod.AP
FROM DeviceSummary INRE JOIN
FlowLogPeriod PÅ DeviceSummary.MdbDeviceID = FlowLogPeriod.MdbDeviceID
WHERE (DeviceSummary.MeterID = ”01103-705”) och (>=@StartDate för FlowLogPeriod.LogPeriodFlowDateTime) OCH (<=@EndDate för FlowLogPeriod.LogPeriodFlowDateTime) " klar "

Svar : Nya data för Sql-Query på 9am endast

Är här ettskola exempel.  Du skulle endera ändring det hard-coded standardarkivet, eller bruk frågar användaren för det kända arkivet.

För att beräkna StdDeven du måste att göra två passerar till och med datan, det första beräkna genomsnittet och därefter variancen.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

Explicit alternativ

Offentlig Substatistik ()
  Dunkel intFN som heltal
  Dunkel strLine som stränger
  strParsed dunkelt () som stränger
  Dunkla dblSums (8 till 15) som dubbelt
  Dunkla dblAvgs (8 till 15) som dubbelt
  Dunkla dblVariances (8 till 15) som dubbelt
  Dunkel lngCount som Long
  Dunkla lngColumns (1 till 4) som Long
  Dunkel strFilename som stränger
  lngColumns (1) = 8
  lngColumns (2) = 11
  lngColumns (3) = 12
  lngColumns (4) = 15
  Dunkel lngLoop som Long
  Const CSVpath som stränger = ”C:\Users\Mark\Downloads\”,
  '1gl-Factory-Low-SNR-Power-Level-.csv ",
  
  intFN = FreeFile
  strFilename = Dir (CSVpath & ”*.csv”)
  Gör till Len (strFilename) = 0
    Öppna CSVpath, & strFilename för matar in som #intFN
    Gör till EOF (intFN)
      Fodra matar in #intFN, strLine
      strParsed = splittring (strLinen, ”,”)
      '(I, L, M, N,   P) = 9, 12, 13, 15 med en beskärning
      För lngLoop = 1 till 4
        dblSums (lngColumns (lngLoop)) = dblSums (lngColumns (lngLoop)) + strParsed, Val ((lngColumns (lngLoop)))
      Därefter
      lngCount = lngCount + 1
    Kretsa
    Nära #intFN
    strFilename = Dir ()
  Kretsa
    
  För lngLoop = 1 till 4
    dblAvgs (lngColumns (lngLoop)) = dblSums (lngColumns (lngLoop)) /lngCount
  Därefter
  
  strFilename = Dir (CSVpath & ”*.csv”)
  Gör till Len (strFilename) = 0
    Öppna CSVpath, & strFilename för matar in som #intFN
    Gör till EOF (intFN)
      Fodra matar in #intFN, strLine
      strParsed = splittring (strLinen, ”,”)
      För lngLoop = 1 till 4
        dblVariances (lngColumns (lngLoop)) = dblVariances (lngColumns (lngLoop)) + (dblAvgs (lngColumns (lngLoop)) - strParsed, Val ((lngColumns (lngLoop)))) ^ 2
      Därefter
    Kretsa
    Nära #intFN
    strFilename = Dir ()
  Kretsa
    
    Debug.Print-lngCount
    För lngLoop = 1 till 4
      Debug.Print-dblSums (lngColumns (lngLoop)), dblAvgs (lngColumns (lngLoop)), dblVariances (lngColumns (lngLoop)), Sqr (dblVariances (lngColumns (lngLoop)))
    Därefter
  
  
Avsluta suben
Andra lösningar  
 
programming4us programming4us