Hello,
I’m debugging some old code from another developer and have found something that is not working. This is a DB of our company’s training classes. The code should compare the class date with today’s date and then set the variable ‘OK’ to either True or False. However, ‘OK’ remains 0 when I debug no matter if the class date is before or after today’s date. Here is the code:
Dim ok As Integer
Dim dateTime As New NotesDateTime( Today )
Dim lstime As Variant
lstime = dateTime.LSLocalTime
Set db = s.currentdatabase
Set v = db.getview("AllClasses")
Set thisdoc = v.getfirstdocument
Do Until thisdoc Is Nothing
If thisdoc.date(0) >= lstime Then ok = False Else ok = True
Any help is appreciated, thanks.
Mark