Arsip: Bagaimana Cara Merubahn Jam ke menit
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...
more 16 years ago
danieljun
uses SysUtils, DateUtils;
/// .... skip to source
jam := encodeTime(16,20,12,0);
Angka := MinuteOfTheDay(jam);
/// angka udah berisi 980
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.
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 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- Modified Exception
by wh4nx in Enginering more 17 years ago - tanya...finger print digital persona
by batozai in Network, Files, I/O & System more 14 years ago - Siapa yang gak pelit???
by n3o_cybertech in Tip n Trik Pemrograman more 16 years ago - Installer ...
by yuan_carlos in Hal umum tentang Pascal Indonesia more 17 years ago - cari file sms.DLL
by nurez in Network, Files, I/O & System more 16 years ago - Aplikasi tetap jalan saat form menu utama ditutup
by hendrahongdexin in Hal umum tentang Pascal Indonesia more 13 years ago - sistem pakar
by Theo_razor in Tutorial & Community Project more 15 years ago - Download ms SQL Server 2000 Dimana ?
by hyde in MsSQL more 16 years ago - Harga Software
by delphi1st in Tip n Trik Pemrograman more 17 years ago - baca data adoquery
by megan in Tutorial & Community Project more 16 years ago