add Get_ServerTime()

ArinLogin/Class1.vb

@@ -135,6 +135,29 @@
         Return Retval
     End Function
 
+
+
+
+    Public Function Get_ServerTime() As String
+        Dim Cs As String = ReadCString()
+
+        Dim Cn As New SqlClient.SqlConnection(Cs)
+        Dim Cmd As New SqlClient.SqlCommand("SELECT convert(varchar(19),  CURRENT_TIMESTAMP,120);", Cn)
+
+
+        Dim retval As String = ""
+
+        If Cn.State <> ConnectionState.Open Then Cn.Open()
+        retval = Cmd.ExecuteScalar().ToString()
+
+        Cmd.Dispose()
+        Cn.Close()
+        Return Retval
+    End Function
+
+
+
+
     ''' <summary>
     ''' 폴더내의 연결문자열 정보를 가지고 연결한다
     ''' </summary>