Permisi para master sekalian, saya ingin menanyakan bagaimana caranya mengubah format data integer ke dalam format time. Misal saya punya data 4 digit dimana itu adalah digit waktu, cnthnya 1400 berrti pukul 14:00, 1505 berarti pukul 15:05. Nah, bagaimana caranya untuk mengubah data integer tersebut ke dalam format waktu. jadi data integer tersebut di inputkan ke dalam textbox1 misalnya lalu ketika diklik button maka data yang ada pada textbox1 akan muncul di textbox2 tetapi dengan format yang berbeda yaitu 'hh:mm'. Terima kasih sebelumnya. :wink:

@natan_stmp: Permisi para master sekalian, saya ingin menanyakan bagaimana caranya mengubah format data integer ke dalam format time. Misal saya punya data 4 digit dimana itu adalah digit waktu, cnthnya 1400 berrti pukul 14:00, 1505 berarti pukul 15:05. Nah, bagaimana caranya untuk mengubah data integer tersebut ke dalam format waktu. jadi data integer tersebut di inputkan ke dalam textbox1 misalnya lalu ketika diklik button maka data yang ada pada textbox1 akan muncul di textbox2 tetapi dengan format yang berbeda yaitu 'hh:mm'. Terima kasih sebelumnya. :wink:

klo tetep mo seperti itu manfaatkan procedure Insert sample

var
  data: string;
begin
  data:=textbox1.Text;
  Insert(':',data,3);
  textbox2.Text:=data;
  // convert pke StrToTime 
end;

atau manfaatkan gunakan TMaskEdit, silakan pelajari dulu...

@natan_stmp: Permisi para master sekalian, saya ingin menanyakan bagaimana caranya mengubah format data integer ke dalam format time. Misal saya punya data 4 digit dimana itu adalah digit waktu, cnthnya 1400 berrti pukul 14:00, 1505 berarti pukul 15:05. Nah, bagaimana caranya untuk mengubah data integer tersebut ke dalam format waktu. jadi data integer tersebut di inputkan ke dalam textbox1 misalnya lalu ketika diklik button maka data yang ada pada textbox1 akan muncul di textbox2 tetapi dengan format yang berbeda yaitu 'hh:mm'. Terima kasih sebelumnya. :wink:

var      urutan: integer;
     satu,dua,tiga,nopelanggan,nocash,nocredit:string;
     y,d,M : word;
begin
DecodeDate(now, y,M,d );
 satu:=IntToStr(y);
 dua:=IntToStr(M);
 tiga:=IntToStr(d);

kalau udah dipisahin, tinggal manipulasi karakter mana aja yg ingin diambil dengan penambahan simbol semoga membantu :)

Ok, semuanya. thx atas bantuanny... :D