LblSelish.Caption = Format(TimeValue(TxtJamAkhir) - TimeValue(TxtJamAwal), "hh:mm")
hasilnya nanti spt => 02:30 artinya 2 jam 30 menit nanti baru dihitung biayanya
Rommy Zamanuddin <[EMAIL PROTECTED]> wrote:
O iya ya, makasiih banyak atas bantuannya!
maksud saya pertanyaan saya nya yang keliru (kurang jelas) bukan jawaban dari Pak Purwedi !!!
destroyer_maniac <[EMAIL PROTECTED]> menulis:jawaban mas Purwedi tidak keliru. cuma memang tidak ada rumus IF
yang di loop. mungkin kondisi waktu(time value) nya di masukkan ke
sebuah tabel saja yang dijadikan master agar lebih flexibel,sehingga
kita bisa menyelect berdasarkan lama waktunya. dengan cara ini kita
bisa membuat sebuah fungsi yang flexibel dan tidak menuliskan
terlalu banyak rumus.
contoh Table :
dengan keterangan per 30 menit tarif bertambah Rp.1000,-
lama biaya
===== =====
30 1000
semoga bermanfaat,
--- In [email protected], Rommy Zamanuddin
<[EMAIL PROTECTED]> wrote:
>
> mohon maaf Pak Purwedi mungkin pertanyaan saya keliru, yg saya
maksud sama seperti destroyer_maniac. saya ingin koding yang lain
yg pake looping atau sejenisnya tetapi hasilnya sama dengan sintaks
yang saya kirimkan
> soalnya saya ingin sintaks yang lebih simple cuma logikanya
belum kebayang
>
> Terima kasih atas bantuannya
>
> Purwedi Kurniawan <[EMAIL PROTECTED]> menulis: emang sama
persis, cuma beda cara nulisnya, mas rommy kan cuma minta sintaks
lain yg lebih singkat biar gampang ngetiknya, that's it :)
>
> On 4/4/06, destroyer_maniac <[EMAIL PROTECTED]> wrote: pak
purwedi itu sih sama aja sama rumus yang beliau tanyakan.
>
> --- In [email protected], "Purwedi Kurniawan"
> <purwedi.kurniawan@> wrote:
> >
> > kalau gini gimana?
> >
> > txtbiaya = iif(TimeValue(TxtTotalJam) <
> > TimeValue("0:30:00"),1000,iif(TimeValue(TxtTotalJam) >=
TimeValue
> ("0:30:00")
> > And TimeValue(TxtTJ) < TimeValue("1:00:00") ,1500,?))
> >
> > ganti tanda ? dg perhitungan kalau timenya lebih besar dari 1jam.
> > best regards
> > [wwn]
> >
> > On 4/3/06, Rommy Zamanuddin <forgotten_part2@> wrote:
> > >
> > > Assalamualaikum Wr. Wb.
> > >
> > > gimana ya sintak menghitung total biaya rental tetapi sintaks
> nya tidak
> > > seperti di bawah ini soalnya lumayan panjang diketiknya, ya
> kalo bisa pake
> > > looping atau sejenisnya gitu
> > >
> > > If TimeValue(TxtTotalJam) < TimeValue("0:30:00") Then
> > > TXTBiaya = 1000
> > > ElseIf TimeValue(TxtTotalJam) >= TimeValue("0:30:00") And
> TimeValue(TxtTJ)
> > > < TimeValue("1:00:00") Then
> > > TXTBiaya = 1500
> > > end if
> > >
> > > Terima Kasih sebelumnya atas bantuannya
> > >
>
>
> 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.
>
>
> ---------------------------------
>
>
>
>
>
> ---------------------------------
> Apakah Anda Yahoo!?
> Kunjungi halaman depan Yahoo! Indonesia yang baru!
>
Apakah Anda Yahoo!?
Kunjungi halaman depan Yahoo! Indonesia yang baru!
Yahoo! Messenger with Voice. PC-to-Phone calls for ridiculously low rates.
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
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.
