vb.net 中没有了 time() 函数。
专注于为中小企业提供做网站、成都网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业故城免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了千余家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
可以通过 Now().TimeOfDay 截取当前的系统时间。
Now()函数取当前的系统日期时间，TimeOfDay 方法取日期时间中的时间部分。如下:
Dim t As TimeSpan
Dim s As Integer
t = Now().TimeOfDay
s = t.Hours * 3600 + t.Minutes * 60 + t.Seconds
变量s 就是 从午夜到现在经过的秒数。
用vba可以实现，不难。要看你具体做什么，下面是一个录制的宏，替换aaa为axa，然后替换bbb为xbx。
Sub 宏2()
'
' 宏2 宏
'
'
Cells.Replace What:="aaa", Replacement:="axa", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="bbb", Replacement:="xbx", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
你是要把连续多个空格，变换成只需要一个空格，那么：
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格，替换2个空格
loop
myAdpt.Fill(DataSet1, "1")
你把dataset中填充的fill表定义为了1
尝试下myAdpt.Fill(DataSet1, " 学生表")
或则直接myAdpt.Fill(DataSet1)
请参看fill的方法，一共有2种
DATEADD (datepart , number, date )
number
是一个表达式，可以解析为与 date 的 datepart 相加的 int。用户定义的变量是有效的。
如果您指定一个带小数的值，则将小数截去且不进行舍入。
date
是一个表达式，可以解析为 time、date、smalldatetime、datetime、datetime2 或 datetimeoffset 值。date 可以是表达式、列表达式、用户定义的变量或字符串文字。如果表达式是字符串文字，则它必须解析为一个 datetime 值。为避免不确定性，请使用四位数年份。有关两位数年份的信息，请参阅 two digit year cutoff 选项。
