Langsung aja y mas2 skalian aq ingin membuat prg penginapan tapi untuk mengitung biaya kamar dihitung per jam 12 siang oya dbnya mysql juga yang disimpan adalah data tanggal masuk dan nanti kalu keluar baru dihit. biayanya kalo dihit. jam 00 khan tinggal tglkluar dikurangi tglmasuk nah klo dihit. dari 12 siang gimana y caranya? please.... yg bisa bantuin nanti tak ingat namanya hehe... :wink:

pakai fungsi CDate aja. Tambahin pada uses yang paling atas DateUtils kemudian cara implementasinya banding:=IntToStr(DaysBetween(StrToTime('jam mulai'), StrToTime('jam selesai')));

Kalo pake spt itu nanti hasilnya jam dong? maksud saya yg hasilnya dalam hari tapi terimakasih atas jawabannya (krn sblmnya aq belom tau fungsi itu) Aq minta tolong sintaksnya juga ya? Terima kasih mas2 semua!

coba ini

uses DateUtils;
function TotalHari(masuk: TDateTime): integer;
var totalsementara: integer;
begin
  //Menghitung total tgl dan jam keluar - tgl dan jam masuk (jam masuk dihitung mulai jam 12 siang)
  //NOW adalah jam keluar format dalam type TDatetime yaitu (dd/mm/yyyy hh:mm:ss)
  totalsementara:= HoursBetween(Now, StrToDateTime(DateToStr(DateOf(masuk)) + ' 12:00:00')) div 24;
  //mengecek apakah jam keluar lebih dari jam 12 siang jika iya, maka dihitung masih menginap pada hari itu
  if (HoursBetween(Now, StrToDateTime(DateToStr(DateOf(masuk)) + ' 12:00:00')) mod 24) <> 0 then
    totalsementara:= totalsementara + 1;
  result:= totalsementara;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(TotalHari(DateTimePicker1.DateTime)) + ' hari';
end;

semoga benar wehehehhe.. :mrgreen:

OK Boss! TAk coba dulu ya? Semoga bener Thanks a lot ;-)