Path: utzoo!attcan!uunet!husc6!bu-cs!madd From: madd@bu-cs.BU.EDU (Jim Frost) Newsgroups: comp.sys.ibm.pc Subject: Re: Turbo Pascal 3.0 Question (Get Date function) Message-ID: <23708@bu-cs.BU.EDU> Date: 8 Jul 88 01:49:39 GMT References: <10770@cisunx.UUCP> <11757@agate.BERKELEY.EDU> Reply-To: madd@bu-it.bu.edu (Jim Frost) Followup-To: comp.sys.ibm.pc Distribution: na Organization: Boston University Distributed Systems Group Lines: 22 In article <11757@agate.BERKELEY.EDU> swillett@violet.berkeley.edu writes: [how to call the MS-DOS getdate function] The Turbo Pascal 3.0 way to do it is: type registers = record ax,bx,cx,dx,bp,si,di,ds,es,flags : integer end; procedure getdate(var year,month,day,weekday : integer); var r : registers; begin r.ax:= $2A00; msdos(r); year:= cx; month:= hi(dx); day:= lo(dx); weekday:= lo(ax); end; jim frost madd@bu-it.bu.edu