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