DatePart

[le0]

Hello guys,

Is there anything wrong with my code (see below) bcoz when 10p-6a shift my
browser returns the error cannot be a zero-length string. Im wondering why,
bcoz the 2 other shift works perfectly.

<%
'Shift: 6a-2p
if DatePart("h", Now()) 5 And DatePart("h", Now()) < 14 then
ShiftID = "A"
end if

'Shift: 2p-10p
if DatePart("h", Now()) 13 And DatePart("h", Now()) < 22 then
ShiftID = "B"
end if

'Shift: 10p-6a
if DatePart("h", Now()) 21 And DatePart("h", Now()) < 6 then
ShiftID = "C"
end if
%>

[Dave Anderson]

le0 wrote:

'Shift: 10p-6a
if DatePart("h", Now()) 21 And DatePart("h", Now()) < 6 then
ShiftID = "C"
end if

When is something greater than 21 AND less than 6? Unlike your other
conditions, you can use OR for this one:

If DatePart("h",No w) 21 OR DatePart("h",No w) < 6 Then
ShiftID = "C"
End If

Of course, this might not be a bad place for a Select Case Statement:

Select Case DatePart("h",No w)
Case 6,7,8,9,10,11,1 2,13 ShiftID = "A"
Case 14,15,16,17,18, 19,20,21 ShiftID = "B"
Case Else ShiftID = "C"
End Select

And if you really want to shorten it, this will handle all three of your
conditions:

Shifts = Array("A","B"," C")
ShiftID = Shifts((DatePar t("h",Now)+18)\ 8 Mod 3)
--
Dave Anderson

Unsolicited commercial email will be read at a cost of $500 per message. Use
of this email address implies consent to these terms.

[le0]

Thanks Dave youre d'best =)

"Dave Anderson" <NY**********@s pammotel.comwro te in message
news:12******** *****@corp.supe rnews.com...

le0 wrote:

> 'Shift: 10p-6a
if DatePart("h", Now()) 21 And DatePart("h", Now()) < 6 then
ShiftID = "C"
end if

When is something greater than 21 AND less than 6? Unlike your other
conditions, you can use OR for this one:

If DatePart("h",No w) 21 OR DatePart("h",No w) < 6 Then
ShiftID = "C"
End If

Of course, this might not be a bad place for a Select Case Statement:

Select Case DatePart("h",No w)
Case 6,7,8,9,10,11,1 2,13 ShiftID = "A"
Case 14,15,16,17,18, 19,20,21 ShiftID = "B"
Case Else ShiftID = "C"
End Select

And if you really want to shorten it, this will handle all three of your
conditions:

Shifts = Array("A","B"," C")
ShiftID = Shifts((DatePar t("h",Now)+18)\ 8 Mod 3)
--
Dave Anderson

Unsolicited commercial email will be read at a cost of $500 per message.
Use of this email address implies consent to these terms.