MS27062016

app/DD-Record-Organiser/ClassHelper.vb

@@ -1,6 +1,18 @@
 Imports System.IO
+Imports System.Globalization
 
 Public Class ClassHelper
+    Public Shared Function Convert_Date_2_Form_Format(input As String, format As String)
+        Try
+            Dim dt As Date = CDate(input)
+            Dim result = dt.ToString(format, CultureInfo.InvariantCulture)
+            Return result
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected Error while converting value '" & input & "' to date....." & ex.Message, False)
+            Return input
+        End Try
+
+    End Function
     Public Shared Function CheckDBNull(input As Object, back_Value As String)
         If IsDBNull(input) Then
             If back_Value = "String" Then
@@ -31,7 +43,7 @@ Public Class ClassHelper
         Dim fs As Integer = FreeFile()
         Dim inuse As Boolean = False
         If File.Exists(filename) Then
-           Try
+            Try
                 Using f As New IO.FileStream(filename, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
                     ' thisFileInUse = False
                 End Using
@@ -106,4 +118,9 @@ Public Class ClassHelper
             End Try
         End If
     End Sub
+
+    Shared Function Convert_Date_2_Form_Format(p1 As Date) As Date
+        Throw New NotImplementedException
+    End Function
+
 End Class