Arsip: menghitung string 5 digit
more 18 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 18 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 18 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 18 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 18 years ago
mas_kofa
//..........
selisih := trunc( (StrToTime('15:30') - StrToTime('12:30')) * 24);
//S'moga membantu.......................
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 5 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 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 13 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 13 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 13 years ago
Random Topic
- poling kaos delphi-id
by simba in OOT more 18 years ago - Ask: Direct Printing Code ?
by cyber_hecker in Tip n Trik Pemrograman more 20 years ago - Berbagi pengalaman aneh
by ichan29 in Bedah Kasus more 16 years ago - Tanya DCOM Connection....
by EkoIndri in Tip n Trik Pemrograman more 19 years ago - *.dcu
by nurez in Tip n Trik Pemrograman more 18 years ago - [ask] client server terhalang oleh firewall
by krizzna in Tip n Trik Pemrograman more 19 years ago - baca direktori web
by Shaf in Network, Files, I/O & System more 17 years ago - Ada yang punya tutorial XML g nih ?
by EkoIndri in Tutorial & Community Project more 19 years ago - Tanya, cara untuk mencari data?
by denih in Hal umum tentang Pascal Indonesia more 18 years ago - Buat class di Delphi untuk sebagai manager
by hendra_sir84 in Hal umum tentang Pascal Indonesia more 18 years ago