1

こんにちは私は次のコードを持っています：

Dim CurrentDate
CurrentDate = Date()

Dim intHour
Dim intMinute
Dim intSecond

intHour = 17
intMinute = 0
intSecond = 0

Dim NewDate
Dim NewDate1
Dim NewDate2

NewDate = DatePart("yyyy", CurrentDate)
NewDate1 = DatePart("m", CurrentDate)
NewDate2 = DatePart("d", CurrentDate)


Dim Dates 

Dates = DateSerial(NewDate, NewDate1, NewDate2)

Dim Time 

Time = TimeSerial(intHour, intMonth, intSecond)

私はVBで同等のことをしました：

    Dim value As Date = Date.Now
    Dim intHour As Integer
    Dim intMinute As Integer
    Dim intSecond As Integer


    intHour = 17
    intMinute = 0
    intSecond = 0

    Dim newdatetime As DateTime = New Date(value.Year, value.Month, value.Day, intHour, intMinute, intSecond)

VBで私はすることができます

Dim newdatetime As DateTime = New Date(value.Year, value.Month, value.Day, intHour, intMinute, intSecond).

私のASPコードにはとがDates = DateSerial(NewDate, NewDate1, NewDate2)ありTime = TimeSerial(intHour, intMonth, intSecond)ます。VBのようにDateTimeとしてそれらをまとめるにはどうすればよいですか？

4

1 に答える 1

4

ふたつのやり方：

dim h,n,s
h = 17
n =  1
s =  2

dim t
t = timeserial(h,n,s)

dim d
d = date()
dim ts1
ts1 = dateadd("h",h, _
      dateadd("n",n, _
      dateadd("s",s, d )))
dim ts2
ts2 = d + T

どちらも同じ出力を生成します。追加のあるものには、0日目にどれだけ近いかによって、いくつかの落とし穴があります. 最初の方法は「正気」だと思います。私が思い出す限り、VBScript は日付部分を整数または浮動小数点数に格納し、時間部分を浮動小数点数の小数部分に格納しただけです (24 時間の 1 日の一部として、12:00 は 0.5 です)。したがって、追加するだけです。それらを一緒に +

于 2012-12-11T22:33:07.763 に答える