Arsip: Biaya pemakaian

more 18 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.

more 18 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:
more 18 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:

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

more 18 years ago
pilot
Sebelumnya terima kasih. saya coba dulu nti klo ada pertanyaan lagi mohon bantuannya. ya mas

more 18 years ago
dmay
@DelphiExpert: const CostPerSec = 5000 / 60kayaknya 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
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Bisakah Rave Report Pake 2 Connection ???
by spiky in Hal umum tentang Pascal Indonesia more 14 years ago - mengimport dan mengeksport data dari file text ke SQL Server
by anita in MsSQL more 14 years ago - Backup restore MSSQL di Delphi
by fafenail in Hal umum tentang Pascal Indonesia more 19 years ago - error CR report
by zero in Reporting more 16 years ago - string grid
by kupretkutu in Form Enhancement & Graphical Controls more 18 years ago - ada yang ngerti coding vb g?
by fafa in Hal umum tentang Pascal Indonesia more 17 years ago - Problem Query di SQLITE
by kenjiro in Tip n Trik Pemrograman more 16 years ago - Bronstab.Exe or Eksplorasi.Exe or What ???
by tox2wow in OOT more 19 years ago - Problem dengan master detail
by iwancs in Bedah Kasus more 14 years ago - cara ngerubah data di excel lewat delphi gimana
by lela in Hal umum tentang Pascal Indonesia more 17 years ago