coba dl deh...Thanx banget y.....
--- Yandri Hidaya <[EMAIL PROTECTED]> wrote:
> gimana kalo pake fungsi berikut untuk merubah
> jam:menit(HH:MM) menjadi angka (angka dibelakang
> koma bisa ditentukan sendiri)
>
>
>
'============================================================
> Function jam2angka(data As String, koma As
> Integer)
>
> k = InStr(data, ":")
>
> If k > 0 Then
> baca = Split(data, ":")
> jam = Val(baca(0))
> menit = Val(baca(1)) / 60
> jam2angka = FormatNumber(jam + menit, koma)
> Else
> pesan = MsgBox("Maaf, Bukan format Jam" _
> , vbExclamation + vbOKOnly, _
> "Error")
> Exit Function
> End If
>
> End Function
>
>
'==========================================================
>
> cara pakenya :
> jam2angka(data,koma)
>
> data = "" format jam HH:MM (misal detik
> diabaikan)
> koma = pengen berapa angka dibelakang koma
>
> misal :
>
> Text2.Text = jam2angka(Text1.Text, 2)
>
>
> Gunawan doang <[EMAIL PROTECTED]> wrote: Saya
> mencoba untuk memberikan sedikit solusi
>
> Bila anda sudah mendapatkan angka hasil dari
> perumusan dari contoh adalah 18:30, dari
> perhitungan uang makan sepertinya menit di abaikan,
> jadi anda tinggal mengambil angka 18 dan di rubah
> menjadi number
>
> lama lembur = "18:30"
> pos = instr(1,lamalembur,":") ==> di gunakan u/
> mengambil posisi :
>
> jamlembur = val(left(lamalembur,pos-1) ==> akan
> mendapatkan 18 dgn format number
>
> kemudian :
>
> if jamlembur >8 and ......
>
> dst.
>
>
> Hasan <[EMAIL PROTECTED]> wrote: Sorry kalo
> kurang jelas...
> Gini maksud saya...
>
> JamMasuk RefKeluar JamKeluar
> 07:30 15:30 02:00
>
> Kalo kita lihat kan,
> Jam kerja=(RefKeluar-JamMasuk)=08:00
> Trs kalo JamKeluar < Jam Masuk
> JamLembur=(24:00-RefKeluar)+(00:00+02:00)=10:30
> HasilTotal=18:30
> Nah, saya mau hasil total itu dalam format number
> aja,
> 18:30 sama dengan 18,5, karena ada perhitungan uang
> makan yang mengacu pada hitungan dalam format
> number.Misalnya,
> 8 jam= 1xuang makan,
> 12 jam= 2xuang makan, dst
> Gitu kira2....., maaf kalo keterangan saya kurang
> jelas...
> Thanx...
>
> --- Purwedi Kurniawan <[EMAIL PROTECTED]>
> wrote:
>
> > # buat standar konversi, misalnya 1 detik = 5
> > rupiah,
> > # terus ubah jam tadi (jam:menit:detik) ke
> standar
> > yg kita buat (berarti
> > ubah ke detik, mis: hasil penjumlahan adalah 1
> jam
> > 30 menit 5 detik = 3600 +
> > 1800 + 5 detik = 5405 detik),
> > # konversikan hasilnya ke rupiah (5405 detik =
> 5405
> > * 5 rupiah = 27025
> > rupiah)
> >
> > sincera
> > [wwn]
> >
> > On 5/3/06, Hasan <[EMAIL PROTECTED]> wrote:
> > >
> > > Sore rekans...
> > > Saya mo minta tolong neh.., gini sayakan ada
> > > penjumlahan jam dengan format time.Nah,kalo dah
> > dapet
> > > hasilnya, saya mo kalikan dengan rupiah, untuk
> itu
> > > saya perlu ngerubah hasil penjumlahan jam tadi
> > jadi
> > > number, gimana ya caranya??Tolong beri saya
> info
> > dong,
> > > berupa link jg ga papa ko...
> > > Thanx..
> > >
> >
>
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam
> protection around
> http://mail.yahoo.com
>
>
>
> ---------------------------------
> Yahoo! Messenger with Voice. PC-to-Phone calls for
> ridiculously low rates.
>
> Wahana Programmer Groups Links
>
>
>
>
>
>
>
> SPONSORED LINKS
>
> Programmer
> Indonesia
> Basic programming language
>
> Computer programming languages
> Programming languages
> Java programming
> language
>
>
> ---------------------------------
> 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.
>
>
> ---------------------------------
>
>
>
>
>
> ---------------------------------
> Yahoo! Messenger with Voice. PC-to-Phone calls for
> ridiculously low rates.
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
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 | Java programming language |
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.
