Hello Pat,
On Nov 26, 1997 Pat Pridgen of 1:236/7 writes:
PP> DATE$ is already used by QB. If you want to save it as a variable, then
PP> you can just do something like;
PP> d$ = DATE$
PP> OR...some somewhat inelegant code using interrupts.
PP> SELECT CASE Mth%
PP> CASE 1
PP> Month$ = "Jan"
PP> CASE 2
PP> Month$ = "Feb"
'You can make this code a lot more elegant by creating a table...
MONTHTAB$ = "JanFebMarAprMayJunJulAugSepOctNovDec"
MONTH$ = MID$( MONTHTAB$, Mth% * 3 - 2, 3 )
Sure cuts down on code size doesn't it?
Same thing for DOW sept you'll have to pad then trim. I'll
leave that one as an exercise for the reader... :-)
Regards,
Roger Scudder
Send private replies to: rscudder@usa.net
... An Elephant. A mouse built to government specs
--- Msgedsq 3.05
---------------
* Origin: Hodge-Podge Support BBS, Upper Darby, PA (1:273/404)
|