манипулирование датой в vb

Question

как мы можем извлечь системное время в VB и сделать расчет т.е. добавляя или вычитая время, сохраняйте время изменения в таблице базы данных Oracle в более раннем формате.

Answer 1

Для получения системного времени

Dim timestamp As Date: timestamp = Now
timestamp = timestamp - Int(timestamp)

Чтобы добавить или вычесть временной интервал (например, добавить один час)

timestamp = DateAdd("h", 1, timestamp)

Чтобы сохранить его в базе данных, что-то вроде

Dim cnn As New Connection
cnn.ConnectionString = "YourConnectionString"

Dim cmd As New Command
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "YourStoredProcName"
cmd.ActiveConnection = cnn

Dim prm As Parameter: Set prm = cmd.CreateParameter("YourParameterName", adDBTime, adParamInput)
prm.Value = timestamp

Call cmd.Parameters.Append(prm)
Call cnn.Open
Call cmd.Execute
Call cnn.Close