Arsip: Bagaimana Cara Merubahn Jam ke menit
more 17 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...
more 17 years ago
danieljun
uses SysUtils, DateUtils;
/// .... skip to source
jam := encodeTime(16,20,12,0);
Angka := MinuteOfTheDay(jam);
/// angka udah berisi 980
more 17 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.
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 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 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 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- error "missing connection or connection string"
by flamade in Hal umum tentang Pascal Indonesia more 17 years ago - sms gateway informasi nilai
by r_rie in Tip n Trik Pemrograman more 15 years ago - komponen delphi 7
by idhiel in Form Enhancement & Graphical Controls more 13 years ago - move record ???
by bastian in MySQL more 18 years ago - [ask]algoritma untuk program administrasi tempat kursus....
by R960XT in Enginering more 18 years ago - manggil form
by ags606 in Hal umum tentang Pascal Indonesia more 17 years ago - gmana ni admin!!
by ichan29 in OOT more 17 years ago - Tanya memasukan data ke Table dari String Grid?
by cyber2000 in Tip n Trik Pemrograman more 15 years ago - Setting Main Form
by Yudho in Hal umum tentang Pascal Indonesia more 18 years ago - Zeos Vs MyDAC Vs ADO
by viq_01 in MySQL more 17 years ago