Spam:Re: Spam:Spam:Spam:RE: [Programmer-VB] tanya donk

Thu, 03 Aug 2006 19:21:35 -0700


2.72 --> bukannya memang 3Jam 17Menit, koq bisa jadi 2 jam 43 menit, darimana yah?

Salam
Ronald Irawan
Pt. Sanghiang Perkasa
Gd. Graha Kirana Lt.5
Jl Yos Sudarso Kav.88
Jakarta


"Antonius Pungkas" <[EMAIL PROTECTED]>
Sent by: [email protected]

04/08/2006 08:21 AM

Please respond to
[email protected]
To
<[email protected]>
cc
Subject
Spam:Spam:Spam:RE: [Programmer-VB] tanya donk





Sebelumnya saya mengucapkan banyak terima kasih nih atas tanggapannya, tetapi sepertinya tetap tidak bisa mas… saya sepertinya salah memberikan syntax saya, syntax saya sebetulnya seperti ini:
 
Dim jam As Integer
            Dim menit As Integer
            jam = [ANGKA DECIMAL] \ 1
            menit = (Math.Abs([ANGKA DECIMAL] - jam)) * 60
            Return jam.ToString + "jam " + menit.ToString + "menit "
 
Jadi kalo saya ubah dengan sintaxnya mas bambang… misalnya variable angka decimal itu adalah dec, jadi seperti ini:
 
Dim jam As Integer
            Dim menit As Integer
            jam = (dec mod 1)\60
            menit = (Math.Abs(dec - jam)) * 60
            Return jam.ToString + "jam " + menit.ToString + "menit "
 
Kalo seperti ini sintaxnya, jadinya malah 0Jam 163Menit
 
Dulu waktu saya kuliah, ada fungsi div dan mod, nah… di vb ada yang tau fungsi div ga?? Soalnya kalau saya ketemu fungsi itu, terselesaikan masalah saya, masalahnya hanya di 2.73 \ 1 hasilnya 3, yang saya inginkan hasilnya 2… ada yang tau tidak caranya??
 
Thanx
 
Regards,
 
Pungki
 
 


From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Bambang Hartoko
Sent: Thursday, August 03, 2006 4:55 PM
To: [email protected]
Subject: Re: [Programmer-VB] tanya donk
 
Maaf, saya ralat. Ini yang benar:
 
menit = ([ANGKA DECIMAL] MOD 1) \ 60


Bambang Hartoko <[EMAIL PROTECTED]> wrote:
menit = ([ANGKA DECIMAL] MOD 1) * 100 \ 60
 
silahkan dicoba, semoga berhasil
 


Antonius Pungkas <[EMAIL PROTECTED]> wrote:
Saya mau mengubah angka decimal menjadi angka jam, misalnya:
[ANGKA DECIMAL]
2.50 è 2 Jam 30 menit
2.25 è 2 Jam 15 menit
2.75 è 2 Jam 45 menit
Tetapi ada masalah, saya memakai fungsi “\”
Syntax saya kurang lebih seperti ini:
Dim jam As Integer
            Dim menit As Integer
            jam = plgTlt \ 1
            menit = (Math.Abs([ANGKA DECIMAL] - jam)) * 60
            Return jam.ToString + "jam " + menit.ToString + "menit "
Nah… sebetulnya sintax ini berfungsi, tetapi kalau decimalnya 2.72, hasilnya 3Jam 17Menit, padahal yang saya inginkan 2Jam 43Menit, saya sudah tau sih salah saya dimana, sekarang saya tidak tau bagaimana mendapatkan hasil 2Jam 43Menit itu.. ada yang bisa menolong saya??
 







__._,_.___

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer




SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages

YAHOO! GROUPS LINKS



__,_._,___

Kirim email ke