Ngày tải lên :
27/08/2012, 09:05
... SetTime(gio,phut,giay,pt);
SetDate(nam,thang ,ngay, dw);
VÝ dô :
Uses Crt, Graph, dos;
Var
gio,phut,giay,pt,nam,thang ,ngay, dw:Word;
Begin
GetTime(gio,phut,giay,pt);
GetDate(nam,thang ,ngay, dw);
clrscr;
Writeln(gio,':',phut,':',giay); ... Writeln(gio,':',phut,':',giay);
Writeln (ngay, '/',thang,'/',nam);
Readln;
End.
Kỹ thuật Đồ hoạ máy tính
111
Phụ lục
Chế ®é Graphics
1. ChÕ ... gio,phut,giay,pt,nam,thang ,ngay, dw: Word;
tơng ứng là giờ, phút, giây, phần trăm giây và năm, tháng, ngày, thứ tự của ngày
trong tuần và sau đó dùng lệnh :
GetTime(gio,phut,giay,pt);
GetDate(nam,thang ,ngay, dw);...