[Year 12 SofDev] Date calculations

[Leanne Wright]

Can anyone help me with VB6 code for the following task. My students are working on a program which will allow a discount on goods purchased before 30th June 2009. I have tried the following line of code:

 

 if val(txtDate.text) < #1/7/09# then   

etc. etc

 

However this gives a discount to dates before and after the cut off date.  I have also tried declaring orderdate as a variable of type date and also changing 'val' to 'dateval' in the above code but this then gives no discount at all regardless of the date. I thought this would be simple to code but am tearing my hair out. Thanks in advance to anyone who can help. Leanne Wright - Epping SC

_________________________________________________________________
Looking to move somewhere new this winter? Let ninemsn property help
http://a.ninemsn.com.au/b.aspx?URL=http%3A%2F%2Fninemsn%2Edomain%2Ecom%2Eau%2F%3Fs%5Fcid%3DFDMedia%3ANineMSN%5FHotmail%5FTagline&_t=774152450&_r=Domain_tagline&_m=EXT
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.edulists.com.au/pipermail/sofdev/attachments/20090521/5910c6df/attachment.html