Kantoran

Ternyata, fungsi mkdate untuk UNIX tidak bisa meng-handle tanggal sebelum tahun 1970. Jadi misalnya ada tanggal=12, bulan=3, tahun=1965, terus aku buat mkdate(0,0,0,bulan,tanggal,tahun), maka hasilnya error. Dan ketika aku manfaatkan date('m-d-y', mkdate(0,0,0,bulan,tanggal,tahun)) tadi, hasilnya adalah 1-1-1970. Wah, padahal aku perlu fungsi ini untuk memformat tampilan tanggal, yang notabene diambil dari database. Misal dari database aku temukan tanggal, dengan format yyyy-mm-dd, misal 1965-03-12. Aku ingin ada fungsi yang bisa mengikuti standard format php untuk tanggal, sehingga tanggal tersebut bisa tampil dengan format tertentu. Misalnya format 'd-M-y',hasilnya 12-Mar-65, kalau format 'm/d/y' hasilnya '03/12/65. Sebelumnya aku pakai fungsi berikut: function pgDateFormat($dateData,$strFormat) { list($strTahun,$strBulan,$strTanggal) = explode("-",$dateData); $strHasil = date($strFormat,mktime(0,0,0,$strBulan,$strTanggal,$strTahun)); return $...

Akhirnya ketemu juga cara untuk melakukan split string. (Terbiasa pakai PHP sih, yang sangat memanjakan dalam pengelolaan string.) Di sini memanfaatkan TStringList, unit Classes. // procedure untuk split string procedure Split (const Delimiter: Char; // delimiter charachter Input: string; // input string const Strings: TStrings) ; // list of string result begin Assert(Assigned(Strings)) ; Strings.Clear; Strings.Delimiter := Delimiter; Strings.DelimitedText := Input; end; // contoh pemakaian procedure TForm1.Button1Click(Sender: TObject) ; var A: TStringList; begin A := TStringList.Create; try Split(' ', 'your delphi guide', A) ; ShowMessage(a[0]) ; //your ShowMessage(a[1]) ; //delphi ShowMessage(a[2]) ; //guide finally A.Free; end; end; Source : http://delphi.about.com/cs/adptips2002/a/bltip1102_5.htm Wheew .. akhirnya. One step ahead!!