Strange behavior with Date() function

•

What is DaniWeb IT Discussion Community?

You're currently browsing the ASP section within the Web Development category of DaniWeb, a massive community of 391,618 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 2,699 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our ASP advertiser: Lunarpages ASP Web Hosting

Thread Tools Display Modes

Views: 1435 | Replies: 3 | Solved

•

Join Date: Jan 2007

Posts: 10

Reputation: nekesa is an unknown quantity at this point

Rep Power: 2

Solved Threads: 0

nekesa

Offline

Newbie Poster

Strange behavior with Date() function

Jan 30th, 2007

I'm using this code to place Time\Date stamps in specific Access Columns:

 Help with Code Tags 
 asp Syntax (Toggle Plain Text) 
Dim conn,strsql,sql_update,ssn,cps,hdDate,TOD,PageDate,h
h=hour(now())
 
ssn = "Select SSN From CWCT07 where SSN = '" & Request.Form("SSN") & "'" 
 
If _
 (Request.form("PageDate")) = "1/30/2007" And "h" < "12" _ 
Then _
   sql_update = "Update CWCT07 Set Jan30AM = '" & Request.Form("hdDate") & "' where ssn = '" & Request.form("ssn") & "'" _
Else If _
  (Request.form("PageDate")) = "1/30/2007" And "h" > "12" _
Then _
   sql_update = "Update CWCT07 Set Jan30PM = '" & Request.Form("hdDate") & "' where ssn = '" & Request.form("ssn") & "'" _
Else If _
  (Request.form("PageDate")) = "2/05/2007" And "h" < "12" _
Then _
   sql_update = "Update CWCT07 Set Feb02AM = '" & Request.Form("hdDate") & "' where ssn = '" & Request.form("ssn") & "'" _
Else _
response.write(DATE()) _ 
End If
Dim conn,strsql,sql_update,ssn,cps,hdDate,TOD,PageDate,h
h=hour(now())

ssn = "Select SSN From CWCT07 where SSN = '" & Request.Form("SSN") & "'" 

If _
 (Request.form("PageDate")) = "1/30/2007" And "h" < "12" _ 
Then _
   sql_update = "Update CWCT07 Set Jan30AM = '" & Request.Form("hdDate") & "' where ssn = '" & Request.form("ssn") & "'" _
Else If _
  (Request.form("PageDate")) = "1/30/2007" And "h" > "12" _
Then _
   sql_update = "Update CWCT07 Set Jan30PM = '" & Request.Form("hdDate") & "' where ssn = '" & Request.form("ssn") & "'" _
Else If _
  (Request.form("PageDate")) = "2/05/2007" And "h" < "12" _
Then _
   sql_update = "Update CWCT07 Set Feb02AM = '" & Request.Form("hdDate") & "' where ssn = '" & Request.form("ssn") & "'" _
Else _
response.write(DATE()) _ 
End If

I get the correct answer:
1/30/2007 7:49:19 AM
But it is going into the Jan30PM column, not the Jan30AM Column. Shouldn't it be reading 7 as less than 12? Is there anyway to parse for the AM/PM part of the Date Function??

Thanks

•

Join Date: Jul 2005

Location: Dallas, TX

Posts: 481

Reputation: campkev is an unknown quantity at this point

Rep Power: 4

Solved Threads: 19

campkev

Offline

Posting Pro in Training

Re: Strange behavior with Date() function

Jan 30th, 2007

problem is not with the date function.

you are comparing the string "h" to the string "12"
"h" < "12" is always going to return false

you need to compare your variable h to the number 12

h < 12

•

Join Date: Jan 2007

Posts: 10

Reputation: nekesa is an unknown quantity at this point

Rep Power: 2

Solved Threads: 0

nekesa

Offline

Newbie Poster

Re: Strange behavior with Date() function

Jan 30th, 2007

Thanks. That works.

Now I just need to make sure the time is a 24 hour clock....not AM/PM?

•

Originally Posted by campkev

problem is not with the date function.

you are comparing the string "h" to the string "12"
"h" < "12" is always going to return false

you need to compare your variable h to the number 12

h < 12