Arsip: Bagaimana Cara Merubahn Jam ke menit

 
user image
more 16 years ago

ari_volker

Ada yang tau ga,,, Cara Merubah jam ke menit maksudnya.. contoh : 16:20:12 jika dirubah ke menit menjadi = 980 menit ada yang tau caranya,,,thankz...
user image
more 16 years ago

danieljun


uses SysUtils, DateUtils;
/// .... skip to source 
jam := encodeTime(16,20,12,0);
Angka := MinuteOfTheDay(jam);
/// angka udah berisi 980 
user image
more 16 years ago

ari_volker

Ga bisa boz..
user image
more 16 years ago

lukman

Coba Script ini : procedure TForm1.BitBtn1Click(Sender: TObject); var myDate : TDateTime; myHour, myMin, mySec, myMilli : Word; myMenit: Integer; begin myDate := StrToTime('16:20:12'); DecodeTime(myDate, myHour, myMin, mySec, myMilli); myMenit := (myHour * 60) + myMin; ShowMessage(IntToStr(myMenit));//ini nilainya 980 ShowMessage('Time now = '+TimeToStr(myDate)); ShowMessage('Hour = '+IntToStr(myHour)); ShowMessage('Minute = '+IntToStr(myMin)); ShowMessage('Second = '+IntToStr(mySec)); ShowMessage('MilliSec = '+IntToStr(myMilli)); end; Semoga membantu.
user image
more 16 years ago

ari_volker

Udah bisa,, Terimakasih banyak abang lukman,,
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com