Option Explicit
Public bDebug_Mode As Boolean

Function DrBladeLife(sTagName As String, sStartTime As String, sEndTime As String)
    Dim PIVals As PISDK.PIValues
    Dim PIVal As PISDK.PIValue
    Dim sFilterExp As String
       
    bDebug_Mode = True
   
'   Connect to sPIServer
    If Not modConnection.bConnectToPI("servername") Then
        Err.Raise 9999, , "Unable to connect to server"
    End If
   
    oPIServer.ServerTime  'oPIServer is a Public variable declared in a separate module containing the connection code
   
    sFilterExp = "'" & sTagName & "'=0"
    Set PIVals = RetrievePIValuesWithFilter(sTagName, sStartTime, sEndTime, sFilterExp)
   
    DrBladeLife = (CDate(sEndTime) - PIVals(PIVals.Count).TimeStamp.LocalDate) * 24
   
End Function


Private Function RetrievePIValuesWithFilter(ByVal PITag As String, ByVal StartTime As String, ByVal EndTime As String, ByVal Filter As String) As PISDK.PIValues
       
        Const csPROCNAME As String = "RetrivePIValuesWithFilter"
       
        Dim sErrMsg As String
        Dim Ret As PISDK.PIValues
        Dim PIPnt As PISDK.PIPoint
       
        On Error GoTo ErrorHandler
       
        Set PIPnt = oPIServer.PIPoints(PITag)
        Set Ret = PIPnt.Data.RecordedValues(StartTime, EndTime, PISDK.BoundaryTypeConstants.btOutside, Filter, fvRemoveFiltered)
       
               
       
ExitPoint:
    On Error GoTo 0
'   Put things back the way they were
   
'   Set objects to Nothing, quit applications, etc. (garbage collection)
    Set RetrievePIValuesWithFilter = Ret

    Exit Function

ErrorHandler:
'   Diplay error message; if not in debug mode go to ExitPoint, otherwise, debug.
    sErrMsg = Err.Number & ": " & Err.Description
    MsgBox Prompt:="Unexpected error occurred in:" & csPROCNAME & Chr(10) & sErrMsg, _
        Buttons:=vbOKOnly + vbExclamation

    If bDebug_Mode Then
        bDebug_Mode = False
        Stop
        Resume
    Else
        Resume ExitPoint
    End If
End Function