Tolong pilih kategori sesuai, jenis posting (diskusi atau bukan) dan sertakan tag/topik yang sesuai seperti komputer, java, php, mysql, dll. Promosi atau posting tidak pada tempatnya akan kami hapus!
- Bagi Anda yang ingin mendaftar, baca link berikut:
http://diskusiweb.com/discussion/50491/how-to-registrasi-diskusiweb-com-baca-ini-terlebih-dahulu
- Cara menyisipkan kode program supaya tampil rapi dan terformat dengan baik di diskusiweb.com: http://www.diskusiweb.com/discussion/50415/cara-menyisipkan-kode-program-di-diskusiweb-com
- Cara posting gambar/image di post Anda: http://www.diskusiweb.com/discussion/47345/cara-menyisipkan-menyertakan-image-pada-posting/p1

[ask] Hitung Jam

procedure TForm2.FormCreate(Sender: TObject);
var
  tgl1:tdatetime;
  jam2:string;
  jam1:TTime;
begin
  tgl1:=strtodate('3/7/2013');
  jam1:=strtotime('06:00:00');
  jam2:=timetostr(now);
 
  showmessage('jam lalu '+timetostr(jam1));
  showmessage(jam2);

  edit1.text := formatdatetime('dd/mm/yyyy',now);
 
  edit3.Text:= FloattoStr(strtodate(edit1.Text)-tgl1-177);

  edit2.Text:= FLoatToStr(strtotime(jam2))-jam1);
 
  label7.caption := timetostr(now());
 
end;

--------error----------------
edit2.Text:= FLoatToStr(strtotime(jam2))-jam1);

[Error] input.pas(132): Incompatible types: 'String' and 'TTime'

mohon bantuanya...

Tagged:

Comments

  • baris 132 itu yg mana ?
  • edited July 2013
    edit2.Text:= FLoatToStr(strtotime(jam2))-jam1);

    udah mas solved mas,....
  • edit3.Text:= FloattoStr(strtodate(edit1.Text)-tgl1-177);

    177 maksud nya apa bang??
Sign In or Register to comment.