Arsip: menghitung string 5 digit

 
user image
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:
user image
more 15 years ago

bagussb

coba pake fungsi StrToTime aja bro... :mrgreen:
user image
more 15 years ago

asiyrob

udah pernah dibahas di thread ini search aja..!!
user image
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 .....
user image
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
user image
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;
user image
more 15 years ago

mas_kofa


   //..........
   selisih := trunc( (StrToTime('15:30') - StrToTime('12:30')) * 24);
  //S'moga membantu.......................
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com