Operasi Sistem Waktu dan Tanggal

waktu dan tanggal pada sistem komputer dapat dengan mudah diubah dan diketahui dalam pascal. Adapun perintah-perintah yang dapat digunakan adalah SetDate, GetDate, SetTime dan GetTime. Prosedur SetDate dan GetDate merupakn prosedur yang berguna untuk mengambil dan menset tanggal yang sedang aktif dikomputer.
Tata penulisan GetDate dan SetDate adalah sebagai berikut :

   GetDate(Var Thn,Bln,Tgl);

   SetDate(Thn,Bln,Tgl);

dimana Thn, Bln, dan Tgl merupakan suatu variabel dengan tipe word. Namun demikian, hasil yang akan diberikan atau dihasilkan pada Thn adalah angka tahun lengkap, seperti 1993. Bln akan menghasilkan angka 1 sampai 12 yang merupakan lambang dari Januari hingga Desember.  Tgl akan menghasilkan angka 1 sampai 31 sesuai dengan bulan yang berlaku. Bila pada proses set, bilangan yang diberikan pada Thn, Bln dan Tgl merupakan bilang yang tidak mungkin, misalnya Bln sama dengan 13, maka proses set tidak akan dilakukan, tetapi dianggap sebagai suatu kesalahan dan dilewatkan begitu saja.
Perlu anda perhatikan, kedua prosedur ini terdapat pada unit DOS atau Windos. Bila anda ingin menggunakan kedua prosedur tersebut anda harus menggunakan kata Uses DOS; atau Uses Windos;



Contoh Program

program Tanggal;

Uses Crt, DOS;

Var

  Thn,Bln,Tgl         : Word;

  Ch                  : Char;

Begin

  Clrscr;

  GetDate(Thn,Bln,Tgl);

  Writeln('Tanggal Hari Ini Adalah : ',Tgl,'-',Bln,'-',Thn);

  Write('Mau Diubah [Y/T] ? '); Readln(Ch);

  Writeln;

  if (Upcase(Ch)='Y') then

  Begin

    Write('Masukkan Tanggal : ');

    Readln (Tgl);

    Write('Masukkan Bulan : ');

    Readln (Bln);

    Write('Masukkan Tahun : ');

    Readln (Thn);

    SetDate(Thn,Bln,Tgl);

  End;

  Readln;

End.