Hi,
This function gives weird results. Is there something obvious that I
have done wrong? The results are shown in the comments.
// PeriodEnding.text is 8/12/06
Dim date1, date2, date3, date4, date5, date6, date7 As New Date
Dim d As New date()
Dim b As boolean
b=parsedate(PeriodEnding.text,d) // get date from PeriodEnding
date1=d
date7.TotalSeconds=date1.TotalSeconds
date6.Day=date7.Day-1
date5.Day=date7.Day-2
date4.Day=date7.Day-3
date3.Day=date7.Day-4
date2.Day=date7.Day-5
date1.Day=date7.Day-6
Sat1.text=date7.shortdate // 7/28/06
Fri1.text=date6.shortdate // 7/28/06
Thu1.text=date5.shortdate // 7/28/06
Wed1.text=date4.shortdate // 7/28/06
Tue1.text=date3.shortdate // 7/28/06
Mon1.text=date2.shortdate // 7/28/06
Sun1.text=date1.shortdate // 8/22/06
Tia,
Robert Poland
[EMAIL PROTECTED]
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
