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
- Ngurangi konsumsi cpu?
by labaga in Tip n Trik Pemrograman more 17 years ago - [ask]Algoritma Pengacakan Kode
by agitho_ryuki in Tip n Trik Pemrograman more 16 years ago - Pertanyaan Tentang komponen ADO pada delphi7 dan mysql
by gustove in Hal umum tentang Pascal Indonesia more 12 years ago - Gimana Cara Menghentikan Printer ?
by holmes in Tip n Trik Pemrograman more 16 years ago - pertanyaaan tetang Lazarus [pemula]
by gormet in Tip n Trik Pemrograman more 14 years ago - translate MoveMemory 'kernel32' VB ke Delphi
by esafm in Tip n Trik Pemrograman more 13 years ago - chart di excel
by lela in Hal umum tentang Pascal Indonesia more 15 years ago - Cara mindahin suatu file dari source yg satu ke yg lainnya
by denmasmr in Tip n Trik Pemrograman more 11 years ago - Access Violation Error
by ml_tmp in Enginering more 17 years ago - Konsultasi Kode : Mohawk
by cyber_hecker in Tutorial & Community Project more 17 years ago