FUNGSI-FUNGSI DATE PADA PASCAL Berikut ini adalah fungsi-fungsi untuk memanfaat sistem date dari unit Dos, untuk menampilkan tanggal atau hari sesuai data pada sistem komputer. Jalankan aplikasi Pascal Anda, ketikkan kode berikut: PROGRAM TAMPILTANGGAL; USES CRT, DOS; (* FUNGSI UNTUK MENGKONVERSI NILAI INTEGER MENJADI STRING *) FUNCTION INTTOSTR(I: LONGINT): STRING; VAR S: STRING[12]; BEGIN STR(I, S); INTTOSTR := S; END; a. Menampilkan Tanggal Sistem Fungsi ini akan menampilkan tanggal dari sistem komputer Anda. b. Menampilkan Nama Hari Fungsi ini akan menampilkan tanggal dari sistem komputer Anda. FUNCTION TANGGAL:STRING; VAR Y, M, D, DOW : Word; BEGIN GETDATE(Y,M,D,DOW); TANGGAL := INTTOSTR(D) + '-' + INTTOSTR(M) + '-' + INTTOSTR(Y); END; FUNCTION HARI_INI:STRING; CONST DAYS : ARRAY [0..6] OF STRING[9] = ('MINGGU','SENIN','SELASA', 'RABU','KAMIS','JUMAT', 'SABTU'); VAR Y, M, D, DOW : Word; BEGIN GETDATE(Y,M,D,DOW...
Komentar
Posting Komentar