function TanggalSet($tanggal)
{
$ambiltgl = Tanggal($tanggal);
$date = explode("-", $ambiltgl);
$tgl = $date[2];
$bln = $date[1];
$thn = $date[0];
$bhsactive = BHS_ON;
$result = $ambiltgl;
if ($bhsactive == "en") {
if ($date[1] == "01") {
$bln = "Jan";
}
if ($date[1] == "02") {
$bln = "Feb";
}
if ($date[1] == "03") {
$bln = "Mar";
}
if ($date[1] == "04") {
$bln = "Apr";
}
if ($date[1] == "05") {
$bln = "May";
}
if ($date[1] == "06") {
$bln = "Jun";
}
if ($date[1] == "07") {
$bln = "Jul";
}
if ($date[1] == "08") {
$bln = "Aug";
}
if ($date[1] == "09") {
$bln = "Sep";
}
if ($date[1] == "10") {
$bln = "Oct";
}
if ($date[1] == "11") {
$bln = "Nov";
}
if ($date[1] == "12") {
$bln = "Dec";
}
$result = "{$bln}/{$tgl}/{$thn}";
}
if ($bhsactive == "id") {
if ($date[1] == "01") {
$bln = "Jan";
}
if ($date[1] == "02") {
$bln = "Feb";
}
if ($date[1] == "03") {
$bln = "Mar";
}
if ($date[1] == "04") {
$bln = "Apr";
}
if ($date[1] == "05") {
$bln = "Mei";
}
if ($date[1] == "06") {
$bln = "Jun";
}
if ($date[1] == "07") {
$bln = "Jul";
}
if ($date[1] == "08") {
$bln = "Agt";
}
if ($date[1] == "09") {
$bln = "Sep";
}
if ($date[1] == "10") {
$bln = "Okt";
}
if ($date[1] == "11") {
$bln = "Nov";
}
if ($date[1] == "12") {
$bln = "Des";
}
$result = "{$tgl}/{$bln}/{$thn}";
}
return $result;
}
function Isinya($TahunID, $ProdiID, $ProgramID, $p)
{
global $WarnaKuliah, $WarnaKRS, $WarnaBayar, $WarnaUTS, $WarnaUAS, $WarnaCuti, $WarnaNilai;
$lbr = 190;
$t = 5;
$thn = GetFields('tahun', "TahunID='{$TahunID}' and ProdiID='{$ProdiID}' and ProgramID='{$ProgramID}' and KodeID", KodeID, '*');
$kolom1 = 60;
$kolomkosong = 10;
$kolomperpanjangan = 20;
$kolom2 = 50;
$jeda = 4;
$indent = 'L';
$p->Ln($jeda);
$p->SetFont('Helvetica', 'BI', 10);
$p->Cell($kolom1, $t, 'Awal Semester', 'BT', 0, $indent);
$p->Cell($kolomperpanjangan, $t, '', 'BT', 1, $indent);
$p->SetFont('Helvetica', 'B', 10);
$p->SetFillColor($WarnaKRS[0], $WarnaKRS[1], $WarnaKRS[2]);
$p->Cell($t, $t, '', 1, 0, '', true);
$p->Cell($kolom1, $t, 'Tanggal Pengambilan KRS :', 0, 1, $indent);
$p->SetFont('Helvetica', '', 10);
$p->Cell($kolomkosong, $t, '', 0, 0, $indent);
$p->Cell($kolom2, $t, Tanggal($thn['TglKRSMulai']) . ' ~ ' . Tanggal($thn['TglKRSSelesai']), 0, 1, $indent);
$p->Ln($jeda);
$p->SetFont('Helvetica', 'B', 10);
$p->SetFillColor($WarnaBayar[0], $WarnaBayar[1], $WarnaBayar[2]);
$p->Cell($t, $t, '', 1, 0, '', true);
$p->Cell($kolom1, $t, 'Tanggal Pembayaran Kuliah:', 0, 1, $indent);
$p->SetFont('Helvetica', '', 10);
$p->Cell($kolomkosong, $t, '', 0, 0, $indent);
$p->Cell($kolom2, $t, Tanggal($thn['TglBayarMulai']) . ' ~ ' . Tanggal($thn['TglBayarSelesai']), 0, 1, $indent);
$p->Ln($jeda);
$p->Ln(2 * $jeda);
$p->SetFont('Helvetica', 'BI', 10);
$p->Cell($kolom1, $t, 'Perkuliahan', 'BT', 0, $indent);
$p->Cell($kolomperpanjangan, $t, '', 'BT', 1, $indent);
$p->SetFont('Helvetica', 'B', 10);
$p->SetFillColor($WarnaKuliah[0], $WarnaKuliah[1], $WarnaKuliah[2]);
$p->Cell($t, $t, '', 1, 0, '', true);
$p->Cell($kolom1, $t, 'Tanggal Perkuliahan Berjalan :', 0, 1, $indent);
$p->SetFont('Helvetica', '', 10);
$p->Cell($kolomkosong, $t, '', 0, 0, $indent);
$p->Cell($kolom2, $t, Tanggal($thn['TglKuliahMulai']) . ' ~ ' . Tanggal($thn['TglKuliahSelesai']), 0, 1, $indent);
$p->Ln($jeda);
$p->SetFont('Helvetica', 'B', 10);
$p->SetFillColor($WarnaUTS[0], $WarnaUTS[1], $WarnaUTS[2]);
$p->Cell($t, $t, '', 1, 0, '', true);
$p->Cell($kolom1, $t, 'Tanggal Ujian Tengah Semester:', 0, 1, $indent);
$p->SetFont('Helvetica', '', 10);
$p->Cell($kolomkosong, $t, '', 0, 0, $indent);
$p->Cell($kolom2, $t, Tanggal($thn['TglUTSMulai']) . ' ~ ' . Tanggal($thn['TglUTSSelesai']), 0, 1, $indent);
$p->Ln($jeda);
$p->SetFont('Helvetica', 'B', 10);
$p->SetFillColor($WarnaUAS[0], $WarnaUAS[1], $WarnaUAS[2]);
$p->Cell($t, $t, '', 1, 0, '', true);
$p->Cell($kolom1, $t, 'Tanggal Ujian Akhir Semester :', 0, 1, $indent);
$p->SetFont('Helvetica', '', 10);
$p->Cell($kolomkosong, $t, '', 0, 0, $indent);
$p->Cell($kolom2, $t, Tanggal($thn['TglUASMulai']) . ' ~ ' . Tanggal($thn['TglUASSelesai']), 0, 1, $indent);
$p->Ln($jeda);
$p->Ln(2 * $jeda);
$p->SetFont('Helvetica', 'BI', 10);
$p->Cell($kolom1, $t, 'Akhir Semester', 'BT', 0, $indent);
$p->Cell($kolomperpanjangan, $t, '', 'BT', 1, $indent);
$p->SetFont('Helvetica', 'B', 10);
$p->SetFillColor($WarnaNilai[0], $WarnaNilai[1], $WarnaNilai[2]);
$p->Cell($t, $t, '', 1, 0, '', true);
$p->Cell($kolom1, $t, 'Tanggal Finalisasi Penilaian:', 0, 1, $indent);
$p->SetFont('Helvetica', '', 10);
$p->Cell($kolomkosong, $t, '', 0, 0, $indent);
$p->Cell($kolom2, $t, Tanggal($thn['TglNilai']), 0, 1, $indent);
$p->Ln($jeda);
$p->SetFont('Helvetica', 'B', 10);
$p->SetFillColor($WarnaCuti[0], $WarnaCuti[1], $WarnaCuti[2]);
$p->Cell($t, $t, '', 1, 0, '', true);
$p->Cell($kolom1, $t, 'Tanggal Batas Pengajuan Cuti:', 0, 1, $indent);
$p->SetFont('Helvetica', '', 10);
$p->Cell($kolomkosong, $t, '', 0, 0, $indent);
$p->Cell($kolom2, $t, Tanggal($thn['TglCuti']), 0, 1, $indent);
$p->Ln($jeda);
}