Arsip: menghitung string 5 digit
more 15 years ago
donlego
nanya donk.
punya 5 digit string
contoh
15:30
dikurangi
12:30
hasilnya dalam 1 digit string
3
please donk,help :lol:
more 15 years ago
jayadi888
@asiyrob: udah pernah dibahas di thread ini search aja..!!kalau seperti itu gak usah comment aja boss :D, berpikiran positif aja dia gak ketemu apa yg dia cari ok .....
more 15 years ago
Tfai
punya 5 digit string
contoh
15:30
dikurangi
12:30
hasilnya dalam 1 digit string
3
Var
menit1,menit2,hasil::integer;
begin
menit1:=strtoint(copy('15:30',1,2))60+strtoint(copy('15:30',4,2));
menit2:=strtoint(copy('12:30',1,2)) 60+strtoint(copy('12:30',4,2));
hasil:=menit1-menit2;
end;
mudah2an membantu.. ya, kalo salah tolong dikoreksi
more 15 years ago
Tfai
procedure TForm1.Button1Click(Sender: TObject);
Var
menit1,menit2,hasil:integer;
begin
menit1:=strtoint(copy(edit1.Text,1,2))60+strtoint(copy(edit1.Text,4,2));
menit2:=strtoint(copy(edit2.Text,1,2)) 60+strtoint(copy(edit2.Text,4,2));
hasil:=(menit1-menit2) div 60;
hsl.Text:=inttostr(hasil);
end;
more 15 years ago
mas_kofa
//..........
selisih := trunc( (StrToTime('15:30') - StrToTime('12:30')) * 24);
//S'moga membantu.......................
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- Nanya hak akses hanya pada record tertentu
by greatjon2002 in MySQL more 16 years ago - penggunaan checklistbox
by ru_kd in Tip n Trik Pemrograman more 15 years ago - Membuat program Trial untuk 1 kali jalan
by EkoIndri in Tip n Trik Pemrograman more 16 years ago - Web Application...???
by ZeAL in Web Programming more 17 years ago - mengambil record di sebuah tabel
by jajang in Tip n Trik Pemrograman more 14 years ago - catastrophic failur
by danish in Lain-lain more 16 years ago - Cara mengganti isi file.txt
by binyo in Network, Files, I/O & System more 10 years ago - (ask)DB&Fs
by Indr@ in Lain-lain more 12 years ago - Uji wawasan USB...
by EkoIndri in Tip n Trik Pemrograman more 16 years ago - contoh sederhana fungsi random
by asiyrob in Tip n Trik Pemrograman more 15 years ago