Board index » vbscript

All times are UTC



 Record Set Date Compare to Mem Var Date 
Author Message
jmitc..
#1 / 3
 Record Set Date Compare to Mem Var Date

I'm missing something here -- my date comparison never evaluates to FALSE.

SQL Select using Fox ODBC driver returns a valid Set.  VBS never sees the
comparison as false.

Code with "over head" is:

      On Error Resume Next
      rs.MoveFirst

      Dim t_task_write
      'Dim my_date

      my_date = datevalue(date)-1

      ' -------------------------------
      ' For debugging
      ' -------------------------------
      Response.Write "Yesterday was: " & my_date & "<BR>"
      Response.WRite "Today is: " & date & "<BR>"
      Response.WRite "DateValue of Today is: " & datevalue(date) & "<BR>"

      Response.WRite "Today is Greater Than Yesterday: "
      Response.WRite date > my_date
      Response.WRite "<BR>"

      Response.Write "Yesterday is Less Than Today: "
      Response.WRite my_date < date
      Response.WRite "<BR>"

      Response.WRite "Today does NOT equal Yesterday: "
      Response.WRite my_date <> date
      Response.WRite "<BR>"

      Response.WRite "Today is the SAME as Yesterday: "
      Response.WRite my_date = date
      Response.WRite "<BR>"

      Dim t_field
      Dim t_Fields

      t_field = dateValue(rs.Fields("task.date_beg").value)
      t_fields = rs.Fields("task.date_beg").value

      Response.Write("Straight RS Field: ")
      Response.Write(rs.Fields("date_beg").Value)
      Response.Write("<BR>")

      Response.Write("DateValue of RS Field: ")
      Response.Write(dateValue(rs.Fields("date_beg").Value))
      Response.Write("<BR>")

      Response.Write("Straight Date Value of t_Field: ")
      Response.Write t_field
      Response.Write("<BR>")

      Response.Write("Straight Value of t_Fields: ")
      Response.Write t_fields
      Response.Write("<BR>")

      Response.WRite("Compare DateValue(RS) to <= My_Date: ")
      Response.Write(dateValue(rs.Fields("date_beg").Value)<=my_date)
      Response.Write("<BR>")

      Response.Write("Stratight RS Field is a Date: ")
      Response.Write(isdate(rs.Fields("date_beg").Value))
      Response.Write("<BR>")

      Response.Write("DateValue of RS Field is a date:" )
      Response.Write(isdate(datevalue(rs.Fields("date_beg").Value)))
      Response.WRite("<BR>")

      Response.Write("Mydate is a Date: ")
      Response.Write(isdate(my_date))
      Response.Write("<BR>")

      Response.Write("T_Field is a Date: ")
      Response.Write(isdate(t_field))
      Response.Write("<BR>")

      Response.WRite("Compare straight RS Field as field and DateValue of
field: ")
      Response.WRIte(rs.fields("task.date_beg").value =
datevalue(rs.fields("task.date_beg").value))
      Response.Write("<BR>")

      ' -----------------------------
      ' End Debug Code
      ' -----------------------------

      Dim t_loop
      t_date_loop = true

      if DateValue(rs.Fields("task.date_beg").value) <= my_date Then
        t_date_loop = true
       Else
        t_date_loop = false
      end if

      ' --------------------------------
      ' Begin Record Loop
      ' --------------------------------

      while Not rs.eof and t_date_loop
      'while Not rs.eof and DateValue(rs.Fields("task.date_beg").value) <=
my_date

       ' ---------------------------------------
       ' Debug Code
       ' ---------------------------------------
       Response.Write("----------------------------<BR>")
       Response.Write "Inside Date_beg Loop --" & my_date & "<br>"
       if Not rs.eof then
         t_true_false = "True"
        else
         t_true_false = False
       end if
       Response.Write "<b>NOT</b> End of File Condition is: " & t_true_false
& "<BR>"
       Response.Write "Field Date is: " & rs.Fields("task.date_beg").value &
"<br>"

       if rs.Fields("task.date_beg").value <= my_date then
         t_true_false = "True"
        else
         t_true_false = False
       end if
       Response.Write "Date Compare Straight is: " & t_true_False & "<br>"
       Response.Write("Date Compare Straight [ Field <= memvar ] is: ")
       Response.Write(rs.Fields("task.date_beg").value <= my_date)
       Response.Write("<BR>")

       if datevalue(rs.Fields("task.date_beg").value) <= my_date then
         t_true_false = "True"
        else
         t_true_false = False
       end if
       Response.Write "Date Compare DATEVALUE is: " & t_true_False & "<br>"
       Response.WRite("DateValue Compare [ datevalue of Field <= memvar ]
is: ")
       Response.WRite(datevalue(rs.Fields("task.date_beg").value) <=
my_date)
       Response.Write("<BR>")

       ' --------------------------------
       ' End Debug Code
       ' --------------------------------

       t_task_write = ""
       t_task_write = "<li>" & trim(rs.Fields("taskshort").Value) & " -- "
       t_task_write = t_task_write & rs.Fields("date_beg").Value
       t_task_write = t_task_write & " -- " &
trim(rs.Fields("task_stat").value)

       if ucase(trim(rs.Fields("task_stat").value)) <> "COMPLETE" then
         t_task_write = t_task_write & "</li><BR>"
        else
         t_task_write = t_task_write & "-- Completed -- " &
rs.Fields("act_end").value & "</li><BR>"
       end if

       Response.Write t_task_write

       rs.movenext

       ' -------------------------------
       ' Update date test flag
       ' -------------------------------
       if DateValue(rs.Fields("task.date_beg").value) <= my_date Then
         t_date_loop = true
        Else
         t_date_loop = false
       end if

       ' -------------------------------
       ' Debug Code
       ' -------------------------------

       Response.WRite(" ========================== ")

       Response.WRite("The Value of t_date_loop [ datevalue of field <=
memvar ] is: ")
       Response.WRite t_date_loop
       Response.Write("<BR>")

       t_eof = rs.eof
       Response.WRite("End of File is: ")
       Response.WRite(rs.eof)
       Response.WRite("<BR>")

       ' --------------------------------
       ' End debug Code
       ' --------------------------------

      Wend
      %>

Result is:

Yesterday was: 12/13/00
Today is: 12/14/00
DateValue of Today is: 12/14/00
Today is Greater Than Yesterday: True
Yesterday is Less Than Today: True
Today does NOT equal Yesterday: True
Today is the SAME as Yesterday: False
Straight RS Field: 12/4/00
DateValue of RS Field: 12/4/00
Straight Date Value of t_Field:
Straight Value of t_Fields:
Compare DateValue(RS) to <= My_Date: True
Stratight RS Field is a Date: True
DateValue of RS Field is a date:True
Mydate is a Date: True
T_Field is a Date: False
Compare straight RS Field as field and DateValue of field:
----------------------------
Inside Date_beg Loop --12/13/00
NOT End of File Condition is: True
Date Compare Straight is: True
Date Compare Straight [ Field <= memvar ] is:
Date Compare DATEVALUE is: True
DateValue Compare [ datevalue of Field <= memvar ] is:

APS Deadline -- 12/4/00 -- Open
==========================
The Value of t_date_loop [ datevalue of field <= memvar ]is: True
End of File is: False
----------------------------

 [ other records until "date_beg" Exceeds Yesterday ]

==========================
The Value of t_date_loop [ datevalue of field <= memvar ]is: True
End of File is: False
----------------------------
Inside Date_beg Loop --12/13/00
NOT End of File Condition is: True
Date Compare Straight is: True
Date Compare Straight [ Field <= memvar ] is:
Date Compare DATEVALUE is: True
DateValue Compare [ datevalue of Field <= memvar ] is:

C&A Print Release -- 12/15/00 -- Open
==========================
The Value of t_date_loop [ datevalue of field <= memvar ]is: True
End of File is: False
----------------------------

[ Other Records UNtil End of Record Set ]

==========================
The Value of t_date_loop [ datevalue of field <= memvar ]is: True
End of File is: False
----------------------------
Inside Date_beg Loop --12/13/00
NOT End of File Condition is: True
Date Compare Straight is: True
Date Compare Straight [ Field <= memvar ] is:
Date Compare DATEVALUE is: True
DateValue Compare [ datevalue of Field <= memvar ] is:

Mail to Metatec -- 12/22/00 -- Open
==========================
The Value of t_date_loop [ datevalue of field <= memvar ]is: True
End of File is: True



Tue, 03 Jun 2003 05:11:21 GMT  
Anonymous Use
#2 / 3
 Record Set Date Compare to Mem Var Date
This sample code works.  Replace msgbox with Response.Write.  No idea why
you're having problems.  Seems to me the use of DateValue is unnecessary.

dtmNow = Date
dtmThen = Date - 1
msgbox dtmNow & ">" & dtmThen & ": " & (dtmNow > dtmThen)
msgbox dtmNow & "<" & dtmThen & ": " & (dtmNow < dtmThen)
msgbox dtmNow & "=" & dtmThen & ": " & (dtmNow = dtmNow)


Quote:
> I'm missing something here -- my date comparison never evaluates to FALSE.

> SQL Select using Fox ODBC driver returns a valid Set.  VBS never sees the
> comparison as false.

> Code with "over head" is:

>       On Error Resume Next
>       rs.MoveFirst

>       Dim t_task_write
>       'Dim my_date

>       my_date = datevalue(date)-1

>       ' -------------------------------
>       ' For debugging
>       ' -------------------------------
>       Response.Write "Yesterday was: " & my_date & "<BR>"
>       Response.WRite "Today is: " & date & "<BR>"
>       Response.WRite "DateValue of Today is: " & datevalue(date) & "<BR>"

>       Response.WRite "Today is Greater Than Yesterday: "
>       Response.WRite date > my_date
>       Response.WRite "<BR>"

>       Response.Write "Yesterday is Less Than Today: "
>       Response.WRite my_date < date
>       Response.WRite "<BR>"

>       Response.WRite "Today does NOT equal Yesterday: "
>       Response.WRite my_date <> date
>       Response.WRite "<BR>"

>       Response.WRite "Today is the SAME as Yesterday: "
>       Response.WRite my_date = date
>       Response.WRite "<BR>"

>       Dim t_field
>       Dim t_Fields

>       t_field = dateValue(rs.Fields("task.date_beg").value)
>       t_fields = rs.Fields("task.date_beg").value

>       Response.Write("Straight RS Field: ")
>       Response.Write(rs.Fields("date_beg").Value)
>       Response.Write("<BR>")

>       Response.Write("DateValue of RS Field: ")
>       Response.Write(dateValue(rs.Fields("date_beg").Value))
>       Response.Write("<BR>")

>       Response.Write("Straight Date Value of t_Field: ")
>       Response.Write t_field
>       Response.Write("<BR>")

>       Response.Write("Straight Value of t_Fields: ")
>       Response.Write t_fields
>       Response.Write("<BR>")

>       Response.WRite("Compare DateValue(RS) to <= My_Date: ")
>       Response.Write(dateValue(rs.Fields("date_beg").Value)<=my_date)
>       Response.Write("<BR>")

>       Response.Write("Stratight RS Field is a Date: ")
>       Response.Write(isdate(rs.Fields("date_beg").Value))
>       Response.Write("<BR>")

>       Response.Write("DateValue of RS Field is a date:" )
>       Response.Write(isdate(datevalue(rs.Fields("date_beg").Value)))
>       Response.WRite("<BR>")

>       Response.Write("Mydate is a Date: ")
>       Response.Write(isdate(my_date))
>       Response.Write("<BR>")

>       Response.Write("T_Field is a Date: ")
>       Response.Write(isdate(t_field))
>       Response.Write("<BR>")

>       Response.WRite("Compare straight RS Field as field and DateValue of
> field: ")
>       Response.WRIte(rs.fields("task.date_beg").value =
> datevalue(rs.fields("task.date_beg").value))
>       Response.Write("<BR>")

>       ' -----------------------------
>       ' End Debug Code
>       ' -----------------------------

>       Dim t_loop
>       t_date_loop = true

>       if DateValue(rs.Fields("task.date_beg").value) <= my_date Then
>         t_date_loop = true
>        Else
>         t_date_loop = false
>       end if

>       ' --------------------------------
>       ' Begin Record Loop
>       ' --------------------------------

>       while Not rs.eof and t_date_loop
>       'while Not rs.eof and DateValue(rs.Fields("task.date_beg").value) <=
> my_date

>        ' ---------------------------------------
>        ' Debug Code
>        ' ---------------------------------------
>        Response.Write("----------------------------<BR>")
>        Response.Write "Inside Date_beg Loop --" & my_date & "<br>"
>        if Not rs.eof then
>          t_true_false = "True"
>         else
>          t_true_false = False
>        end if
>        Response.Write "<b>NOT</b> End of File Condition is: " &
t_true_false
> & "<BR>"
>        Response.Write "Field Date is: " & rs.Fields("task.date_beg").value
&
> "<br>"

>        if rs.Fields("task.date_beg").value <= my_date then
>          t_true_false = "True"
>         else
>          t_true_false = False
>        end if
>        Response.Write "Date Compare Straight is: " & t_true_False & "<br>"
>        Response.Write("Date Compare Straight [ Field <= memvar ] is: ")
>        Response.Write(rs.Fields("task.date_beg").value <= my_date)
>        Response.Write("<BR>")

>        if datevalue(rs.Fields("task.date_beg").value) <= my_date then
>          t_true_false = "True"
>         else
>          t_true_false = False
>        end if
>        Response.Write "Date Compare DATEVALUE is: " & t_true_False &
"<br>"
>        Response.WRite("DateValue Compare [ datevalue of Field <= memvar ]
> is: ")
>        Response.WRite(datevalue(rs.Fields("task.date_beg").value) <=
> my_date)
>        Response.Write("<BR>")

>        ' --------------------------------
>        ' End Debug Code
>        ' --------------------------------

>        t_task_write = ""
>        t_task_write = "<li>" & trim(rs.Fields("taskshort").Value) & " -- "
>        t_task_write = t_task_write & rs.Fields("date_beg").Value
>        t_task_write = t_task_write & " -- " &
> trim(rs.Fields("task_stat").value)

>        if ucase(trim(rs.Fields("task_stat").value)) <> "COMPLETE" then
>          t_task_write = t_task_write & "</li><BR>"
>         else
>          t_task_write = t_task_write & "-- Completed -- " &
> rs.Fields("act_end").value & "</li><BR>"
>        end if

>        Response.Write t_task_write

>        rs.movenext

>        ' -------------------------------
>        ' Update date test flag
>        ' -------------------------------
>        if DateValue(rs.Fields("task.date_beg").value) <= my_date Then
>          t_date_loop = true
>         Else
>          t_date_loop = false
>        end if

>        ' -------------------------------
>        ' Debug Code
>        ' -------------------------------

>        Response.WRite(" ========================== ")

>        Response.WRite("The Value of t_date_loop [ datevalue of field <=
> memvar ] is: ")
>        Response.WRite t_date_loop
>        Response.Write("<BR>")

>        t_eof = rs.eof
>        Response.WRite("End of File is: ")
>        Response.WRite(rs.eof)
>        Response.WRite("<BR>")

>        ' --------------------------------
>        ' End debug Code
>        ' --------------------------------

>       Wend
>       %>

> Result is:

> Yesterday was: 12/13/00
> Today is: 12/14/00
> DateValue of Today is: 12/14/00
> Today is Greater Than Yesterday: True
> Yesterday is Less Than Today: True
> Today does NOT equal Yesterday: True
> Today is the SAME as Yesterday: False
> Straight RS Field: 12/4/00
> DateValue of RS Field: 12/4/00
> Straight Date Value of t_Field:
> Straight Value of t_Fields:
> Compare DateValue(RS) to <= My_Date: True
> Stratight RS Field is a Date: True
> DateValue of RS Field is a date:True
> Mydate is a Date: True
> T_Field is a Date: False
> Compare straight RS Field as field and DateValue of field:
> ----------------------------
> Inside Date_beg Loop --12/13/00
> NOT End of File Condition is: True
> Date Compare Straight is: True
> Date Compare Straight [ Field <= memvar ] is:
> Date Compare DATEVALUE is: True
> DateValue Compare [ datevalue of Field <= memvar ] is:

> APS Deadline -- 12/4/00 -- Open
> ==========================
> The Value of t_date_loop [ datevalue of field <= memvar ]is: True
> End of File is: False
> ----------------------------

>  [ other records until "date_beg" Exceeds Yesterday ]

> ==========================
> The Value of t_date_loop [ datevalue of field <= memvar ]is: True
> End of File is: False
> ----------------------------
> Inside Date_beg Loop --12/13/00
> NOT End of File Condition is: True
> Date Compare Straight is: True
> Date Compare Straight [ Field <= memvar ] is:
> Date Compare DATEVALUE is: True
> DateValue Compare [ datevalue of Field <= memvar ] is:

> C&A Print Release -- 12/15/00 -- Open
> ==========================
> The Value of t_date_loop [ datevalue of field <= memvar ]is: True
> End of File is: False
> ----------------------------

> [ Other Records UNtil End of Record Set ]

> ==========================
> The Value of t_date_loop [ datevalue of field <= memvar ]is: True
> End of File is: False
> ----------------------------
> Inside Date_beg Loop --12/13/00
> NOT End of File Condition is: True
> Date Compare Straight is: True
> Date Compare Straight [ Field <= memvar ] is:
> Date Compare DATEVALUE is: True
> DateValue Compare [ datevalue of Field <= memvar ] is:

> Mail to Metatec -- 12/22/00 -- Open
> ==========================
> The Value of t_date_loop [ datevalue of field <= memvar ]is: True
> End of File is: True



Tue, 03 Jun 2003 08:20:36 GMT  
jmitc..
#3 / 3
 Record Set Date Compare to Mem Var Date
Finishing off my own post -- LESS IS MORE!!!

rs("date_beg").Value <= my_date

This works -- killed the "Fields" and table alias.


Quote:
> I'm missing something here -- my date comparison never evaluates to FALSE.

> SQL Select using Fox ODBC driver returns a valid Set.  VBS never sees the
> comparison as false.

> Code with "over head" is:

>       On Error Resume Next
>       rs.MoveFirst

>       Dim t_task_write
>       'Dim my_date

>       my_date = datevalue(date)-1

>       ' -------------------------------
>       ' For debugging
>       ' -------------------------------
>       Response.Write "Yesterday was: " & my_date & "<BR>"
>       Response.WRite "Today is: " & date & "<BR>"
>       Response.WRite "DateValue of Today is: " & datevalue(date) & "<BR>"

>       Response.WRite "Today is Greater Than Yesterday: "
>       Response.WRite date > my_date
>       Response.WRite "<BR>"

>       Response.Write "Yesterday is Less Than Today: "
>       Response.WRite my_date < date
>       Response.WRite "<BR>"

>       Response.WRite "Today does NOT equal Yesterday: "
>       Response.WRite my_date <> date
>       Response.WRite "<BR>"

>       Response.WRite "Today is the SAME as Yesterday: "
>       Response.WRite my_date = date
>       Response.WRite "<BR>"

>       Dim t_field
>       Dim t_Fields

>       t_field = dateValue(rs.Fields("task.date_beg").value)
>       t_fields = rs.Fields("task.date_beg").value

>       Response.Write("Straight RS Field: ")
>       Response.Write(rs.Fields("date_beg").Value)
>       Response.Write("<BR>")

>       Response.Write("DateValue of RS Field: ")
>       Response.Write(dateValue(rs.Fields("date_beg").Value))
>       Response.Write("<BR>")

>       Response.Write("Straight Date Value of t_Field: ")
>       Response.Write t_field
>       Response.Write("<BR>")

>       Response.Write("Straight Value of t_Fields: ")
>       Response.Write t_fields
>       Response.Write("<BR>")

>       Response.WRite("Compare DateValue(RS) to <= My_Date: ")
>       Response.Write(dateValue(rs.Fields("date_beg").Value)<=my_date)
>       Response.Write("<BR>")

>       Response.Write("Stratight RS Field is a Date: ")
>       Response.Write(isdate(rs.Fields("date_beg").Value))
>       Response.Write("<BR>")

>       Response.Write("DateValue of RS Field is a date:" )
>       Response.Write(isdate(datevalue(rs.Fields("date_beg").Value)))
>       Response.WRite("<BR>")

>       Response.Write("Mydate is a Date: ")
>       Response.Write(isdate(my_date))
>       Response.Write("<BR>")

>       Response.Write("T_Field is a Date: ")
>       Response.Write(isdate(t_field))
>       Response.Write("<BR>")

>       Response.WRite("Compare straight RS Field as field and DateValue of
> field: ")
>       Response.WRIte(rs.fields("task.date_beg").value =
> datevalue(rs.fields("task.date_beg").value))
>       Response.Write("<BR>")

>       ' -----------------------------
>       ' End Debug Code
>       ' -----------------------------

>       Dim t_loop
>       t_date_loop = true

>       if DateValue(rs.Fields("task.date_beg").value) <= my_date Then
>         t_date_loop = true
>        Else
>         t_date_loop = false
>       end if

>       ' --------------------------------
>       ' Begin Record Loop
>       ' --------------------------------

>       while Not rs.eof and t_date_loop
>       'while Not rs.eof and DateValue(rs.Fields("task.date_beg").value) <=
> my_date

>        ' ---------------------------------------
>        ' Debug Code
>        ' ---------------------------------------
>        Response.Write("----------------------------<BR>")
>        Response.Write "Inside Date_beg Loop --" & my_date & "<br>"
>        if Not rs.eof then
>          t_true_false = "True"
>         else
>          t_true_false = False
>        end if
>        Response.Write "<b>NOT</b> End of File Condition is: " &
t_true_false
> & "<BR>"
>        Response.Write "Field Date is: " & rs.Fields("task.date_beg").value
&
> "<br>"

>        if rs.Fields("task.date_beg").value <= my_date then
>          t_true_false = "True"
>         else
>          t_true_false = False
>        end if
>        Response.Write "Date Compare Straight is: " & t_true_False & "<br>"
>        Response.Write("Date Compare Straight [ Field <= memvar ] is: ")
>        Response.Write(rs.Fields("task.date_beg").value <= my_date)
>        Response.Write("<BR>")

>        if datevalue(rs.Fields("task.date_beg").value) <= my_date then
>          t_true_false = "True"
>         else
>          t_true_false = False
>        end if
>        Response.Write "Date Compare DATEVALUE is: " & t_true_False &
"<br>"
>        Response.WRite("DateValue Compare [ datevalue of Field <= memvar ]
> is: ")
>        Response.WRite(datevalue(rs.Fields("task.date_beg").value) <=
> my_date)
>        Response.Write("<BR>")

>        ' --------------------------------
>        ' End Debug Code
>        ' --------------------------------

>        t_task_write = ""
>        t_task_write = "<li>" & trim(rs.Fields("taskshort").Value) & " -- "
>        t_task_write = t_task_write & rs.Fields("date_beg").Value
>        t_task_write = t_task_write & " -- " &
> trim(rs.Fields("task_stat").value)

>        if ucase(trim(rs.Fields("task_stat").value)) <> "COMPLETE" then
>          t_task_write = t_task_write & "</li><BR>"
>         else
>          t_task_write = t_task_write & "-- Completed -- " &
> rs.Fields("act_end").value & "</li><BR>"
>        end if

>        Response.Write t_task_write

>        rs.movenext

>        ' -------------------------------
>        ' Update date test flag
>        ' -------------------------------
>        if DateValue(rs.Fields("task.date_beg").value) <= my_date Then
>          t_date_loop = true
>         Else
>          t_date_loop = false
>        end if

>        ' -------------------------------
>        ' Debug Code
>        ' -------------------------------

>        Response.WRite(" ========================== ")

>        Response.WRite("The Value of t_date_loop [ datevalue of field <=
> memvar ] is: ")
>        Response.WRite t_date_loop
>        Response.Write("<BR>")

>        t_eof = rs.eof
>        Response.WRite("End of File is: ")
>        Response.WRite(rs.eof)
>        Response.WRite("<BR>")

>        ' --------------------------------
>        ' End debug Code
>        ' --------------------------------

>       Wend
>       %>

> Result is:

> Yesterday was: 12/13/00
> Today is: 12/14/00
> DateValue of Today is: 12/14/00
> Today is Greater Than Yesterday: True
> Yesterday is Less Than Today: True
> Today does NOT equal Yesterday: True
> Today is the SAME as Yesterday: False
> Straight RS Field: 12/4/00
> DateValue of RS Field: 12/4/00
> Straight Date Value of t_Field:
> Straight Value of t_Fields:
> Compare DateValue(RS) to <= My_Date: True
> Stratight RS Field is a Date: True
> DateValue of RS Field is a date:True
> Mydate is a Date: True
> T_Field is a Date: False
> Compare straight RS Field as field and DateValue of field:
> ----------------------------
> Inside Date_beg Loop --12/13/00
> NOT End of File Condition is: True
> Date Compare Straight is: True
> Date Compare Straight [ Field <= memvar ] is:
> Date Compare DATEVALUE is: True
> DateValue Compare [ datevalue of Field <= memvar ] is:

> APS Deadline -- 12/4/00 -- Open
> ==========================
> The Value of t_date_loop [ datevalue of field <= memvar ]is: True
> End of File is: False
> ----------------------------

>  [ other records until "date_beg" Exceeds Yesterday ]

> ==========================
> The Value of t_date_loop [ datevalue of field <= memvar ]is: True
> End of File is: False
> ----------------------------
> Inside Date_beg Loop --12/13/00
> NOT End of File Condition is: True
> Date Compare Straight is: True
> Date Compare Straight [ Field <= memvar ] is:
> Date Compare DATEVALUE is: True
> DateValue Compare [ datevalue of Field <= memvar ] is:

> C&A Print Release -- 12/15/00 -- Open
> ==========================
> The Value of t_date_loop [ datevalue of field <= memvar ]is: True
> End of File is: False
> ----------------------------

> [ Other Records UNtil End of Record Set ]

> ==========================
> The Value of t_date_loop [ datevalue of field <= memvar ]is: True
> End of File is: False
> ----------------------------
> Inside Date_beg Loop --12/13/00
> NOT End of File Condition is: True
> Date Compare Straight is: True
> Date Compare Straight [ Field <= memvar ] is:
> Date Compare DATEVALUE is: True
> DateValue Compare [ datevalue of Field <= memvar ] is:

> Mail to Metatec -- 12/22/00 -- Open
> ==========================
> The Value of t_date_loop [ datevalue of field <= memvar ]is: True
> End of File is: True



Wed, 04 Jun 2003 00:56:20 GMT  
 
 Page 1 of 1
  [ 3 post ] 

 Relevant Pages 

1. Compare date in form with date/time in form with date/time in database

2. Comparing Network date to client date when logging in using RAS

3. vb6 date variables comparing with access date fields returns always empty recordset

4. Date$ not setting date properly

5. Crystal Reports 8.5 date range parameter field - record selection that includes null date range

6. Date - date = date

7. bind dtp control to date field of record set

8. prob w var user defined type as class mem ( prob easy for an exp VB OO)

9. Dates dates dates

10. Dates, Dates, & More Dates

11. How to Empty Date Var?

12. Error 91: Object Var or With block var not set

  

 
Powered by phpBB® Forum Software