Azure DevOps Demo Models · main

VbaRoutineAssessment.bas

modernization/vba-routine-assessment/sample-inputs/VbaRoutineAssessment.bas · 928 bytes · read-only public source view

Attribute VB_Name = "VbaRoutineAssessment"
Option Explicit
Public RunCount As Long
Public LastRunDate As Date

Public Sub RunAssessment()
    On Error GoTo Handler
    Dim sourceSheet As Worksheet
    Dim outputSheet As Worksheet
    Set sourceSheet = ThisWorkbook.Worksheets("Input")
    Set outputSheet = ThisWorkbook.Worksheets("Output")
    outputSheet.Range("B2").Value = CalculateScore(sourceSheet.Range("B2").Value, sourceSheet.Range("B3").Value)
    RunCount = RunCount + 1
    LastRunDate = Now
    Exit Sub
Handler:
    outputSheet.Range("B4").Value = Err.Description
End Sub

Public Function CalculateScore(ByVal routineCount As Long, ByVal externalCalls As Long) As Double
    CalculateScore = routineCount * 0.6 + externalCalls * 3
End Function

Private Sub ExportResults()
    On Error Resume Next
    ThisWorkbook.Worksheets("Output").Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\assessment.xlsx"
End Sub