RE: [Programmer-VB] tanya donk

Thu, 03 Aug 2006 18:44:54 -0700

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 <bambanghartoko@yahoo.com> wrote:

menit = ([ANGKA DECIMAL] MOD 1) * 100 \ 60

 

silahkan dicoba, semoga berhasil

 



Antonius Pungkas <Antonius.Pungkas@snsgroup.co.id> 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??

 

Talk is cheap. Use Yahoo! Messenger to make PC-to-Phone calls. Great rates starting at 1¢/min.



 

Yahoo! Music Unlimited - Access over 1 million songs. Try it free.

__._,_.___

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