home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
VOL12N03.ZIP
/
TODAY.ZIP
/
TODAY.BAS
< prev
Wrap
BASIC Source File
|
1992-07-28
|
178b
|
9 lines
D$ = MID$(DATE$, 4, 2)
M$ = LEFT$(DATE$, 2)
Y$ = RIGHT$(DATE$, 2)
today$ = Y$ + M$ + D$
OPEN "today.bat" FOR OUTPUT AS #1
PRINT #1, "set today="; today$
CLOSE #1
SYSTEM