Arsip: Biaya pemakaian

 
user image
more 17 years ago

pilot

mas/mba gimana cara menampilkan jam 00:00:00 (hh mm ss) pd panel 1, kemudian apabila tombol start dipakai maka jam juga jalan, disisi lain panel 2 menampilkan biayanya, jika diasumsikan 1 jam = 5000. seperti program billing gitu. terima kasih.
user image
more 17 years ago

DelphiExpert


uses DateUtils;
var StartTime: TDateTime;
procedure Start;
begin
  StartTime:= Now;
end;
procedure TimerOnTimer(Sender: TObject);
const CostPerSec = 5000 / 60;
var TempCost: Float;
begin
  Panel1.Caption:= FormatDateTime('hh:mm:ss', Now - Start);
  TempCost:= SecondsBetween(Start, Now) * CostPerSec;
  Panel2.Caption:= FormatFloat('Rp. 0.00', TempCost);
end;
kira-kira begitulah ... :mrgreen:
user image
more 17 years ago

simba

Gak semudah itu, DE! :lol: Kalo ada yg dpt diskon, kalo hitungannya per 5 menit, kalo ada pembulatan waktu, kalo ada yg sekalian ngeprint, kalo yg pake anaknya yg punya, kalo ... silakan lanjut sendiri ... gimana dong? Huahuahuahuahua... :lol:
user image
more 17 years ago

DelphiExpert

lah om pilot nanya'nya cuman gitu doank xixixi... ya ngga' ada pertimbangan lain yg dimasukkan pula huwakakak :mrgreen:
user image
more 17 years ago

pilot

Sebelumnya terima kasih. saya coba dulu nti klo ada pertanyaan lagi mohon bantuannya. ya mas
user image
more 17 years ago

dmay

@DelphiExpert: const CostPerSec = 5000 / 60
kayaknya 5000/3600 bozz kalo itu cuman 1menit = 5000 dong :) mohon koreksi kalo salah :) ---sama - sama belajar mencari jati diri di dunia fana ini--
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com