Arsip: Cara ubah format time

 
user image
more 8 years ago

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:
user image
more 8 years ago

ImanD

@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...
user image
more 8 years ago

binyo

@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 :)
user image
more 8 years ago

natan_stmp

Ok, semuanya. thx atas bantuanny... :D
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com