Конвертировать vb.net в asp Classic

77
5

У меня есть следующий код 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)

If DateTime.Now < newdatetime Then

If value.DayOfWeek = DayOfWeek.Saturday Then
value = value.AddDays(2)
Return value
End If

If value.DayOfWeek = DayOfWeek.Sunday Then
value = value.AddDays(1)
Return value
End If

Return value

ElseIf DateTime.Now > newdatetime Then
Do
value = value.AddDays(1)
Loop While (value.DayOfWeek = DayOfWeek.Saturday) Or (value.DayOfWeek = DayOfWeek.Sunday)
Return value
End If

Как это будет в ASP CLassic?

Может кто-нибудь помочь?

РЕДАКТИРОВАТЬ:

    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)

спросил(а) 2021-01-25T18:03:29+03:00 5 месяцев назад
1
Решение
63
Ваш ответ
Введите минимум 50 символов
Чтобы , пожалуйста,
Выберите тему жалобы:

Другая проблема