CREATE OR REPLACE
  FUNCTION Hitung_durasi_pelatihan(vtanggal_mulai pelatihan.tanggal_mulai%TYPE,vtanggal_selesai pelatihan.tanggal_selesai%TYPE) RETURN NUMBER
  IS
  durasi NUMBER;
  BEGIN
  IF(vtanggal_selesai < vtanggal_mulai)THEN
  RAISE_APPLICATION_ERROR(-20000,'Tanggal selesai tidak boleh lebih kecil dari tanggal mulai');
  END IF;
  durasi := vtanggal_selesai - vtanggal_mulai;
 RETURN durasi;
 END;
 /