Re: Bulletin MPL program
By: Dennis Katsonis to All on Fri Jan 21 2022 01:13 pm
> FindFirst (Root + PreFix + '*.*', 63);
> While DosError = 0 Do Begin
> If DirTime > UserLastOn And Upper(Copy(DirName, 1, Pos('.', DirName) - 1
> <
> > 'BULLETIN' Then Begin
> InStr := Copy(DirName, 7, Pos('.', DirName) - 7) + ' '
I have found that changing "UserLastOn" to "DateU2D(UserLastON)" seems to bring
about the desired behaiviour.
--- SBBSecho 3.10-Win32
* Origin: MS & RD BBS bbsweb.mozysswamp.org (3:633/384)
|