static void Testing_Tgl(Args _args)
{
str tglitem,tglstr,blnstr,thnstr,tglwalbln;
date tgl,akhirbln;
date d = today(),x;
int i;
;
tglitem = '2011/06/10';
tglstr=date2str(str2date(tglitem,321), 123, 2, 0, 0, 0,0);
blnstr=date2str(str2date(tglitem,321), 123, 0, 0, 2, 0,0);
thnstr=date2str(str2date(tglitem,321), 123, 0, 0, 0, 0,4);
info('Tgl :' +tglstr);
info('Bln :' +blnstr);
info('thn :' +thnstr);
info('Waktu :'+time2str(timeNow(),TimeSeparator::Dot, TimeFormat::Hour24));
akhirbln = EndMth(str2date(tglitem,321));
info('Tgl Awal Bulan '+blnstr+': '+date2str(str2date(thnstr+blnstr+'01',321), 123,2,0,0,0,0));
info('Tgl Akhir Bulan '+blnstr+': '+date2str(akhirbln, 123, 2, 1, 0, 1,0));
// info(date2str(str2date(thnstr+blnstr+tglstr,321), 123, 2, 1, 2, 1,4));
info(date2str(str2date('201110'+tglstr,321), 123, 2, -1, 2, -1,4));
}
{
str tglitem,tglstr,blnstr,thnstr,tglwalbln;
date tgl,akhirbln;
date d = today(),x;
int i;
;
tglitem = '2011/06/10';
tglstr=date2str(str2date(tglitem,321), 123, 2, 0, 0, 0,0);
blnstr=date2str(str2date(tglitem,321), 123, 0, 0, 2, 0,0);
thnstr=date2str(str2date(tglitem,321), 123, 0, 0, 0, 0,4);
info('Tgl :' +tglstr);
info('Bln :' +blnstr);
info('thn :' +thnstr);
info('Waktu :'+time2str(timeNow(),TimeSeparator::Dot, TimeFormat::Hour24));
akhirbln = EndMth(str2date(tglitem,321));
info('Tgl Awal Bulan '+blnstr+': '+date2str(str2date(thnstr+blnstr+'01',321), 123,2,0,0,0,0));
info('Tgl Akhir Bulan '+blnstr+': '+date2str(akhirbln, 123, 2, 1, 0, 1,0));
// info(date2str(str2date(thnstr+blnstr+tglstr,321), 123, 2, 1, 2, 1,4));
info(date2str(str2date('201110'+tglstr,321), 123, 2, -1, 2, -1,4));
}