Re: [Programmer-VB] tanya donk

Bambang Hartoko Thu, 03 Aug 2006 02:56:07 -0700

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 <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

Visit your group "Programmer-VB" on the web.
To unsubscribe from this group, send an email to: [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.

__,_._,___

Re: [Programmer-VB] tanya donk

Kirim email ke