通勤認定エクセルツール対応14

src/sh/tuk/validation/ValidationResult.cls

@@ -0,0 +1,31 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "ValidationResult"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+Option Explicit
+
+Public Passed       As Boolean
+Public ErrorCode    As String
+Public ErrorCol     As Long
+Public ErrorRow     As Long
+Public Extra        As String  ' extra info per rule type (e.g. duplicate value for ERR_DUPLICATE)
+
+Private Sub Class_Initialize()
+    Passed = True
+End Sub
+
+' ============================================================
+' Mark this result as a failure.
+' ============================================================
+Public Sub SetFail(errorCode As String, errorCol As Long, errorRow As Long, Optional extra As String = "")
+    Passed = False
+    Me.ErrorCode = errorCode
+    Me.ErrorCol = errorCol
+    Me.ErrorRow = errorRow
+    Me.Extra = extra
+End Sub