Salah satu cara konversi tanggal dalam format YYYYMMDD yang bertipe bukan
date menjadi bertipe date
dim dtTgl as date
dim lTgl as long
ltgl=20120403
dttgl=cdate( format$(ltgl , "0000-00-00" ) )
'misal akan loop dari tanggal awal (dtTglAwal) sampai tanggal akhir
(dtTglAkhir)
dim dtTglAwal as date,dtTglAkhir as date,dtLoop as date
dttglawal=dttgl
dttglakhir=dttgl+2
for dtloop=dttglawal to dttglakhir
'kodenya disini
next dtloop
'atau
for ltgl=dttglawal to dttglakhir
'kodenya disini
next ltgl
'akan loop selama 17 hari mulai dari dttgl
for dtloop=dttgl to dttgl + 16
'kodenya disini
next dtloop
Wassalam
Kid.
On Mon, Apr 2, 2012 at 18:01, <[email protected]> wrote:
> **
>
>
> iya juga ya mas ya...koq jadi bnyk loopingnya....
> memang seharusnya dikonversi ke format tgl dulu baru dibuat format yg mau
> dituju (itu juga kalau saya bisa hehehe)...
> akan saya coba dulu dengan ide2 yg ada dikepala saya dulu.
> penasaran kl blm bisa
>
> btw buat mba rara...terimakasih sudah dibuatkan alur code yg lebih
> menyenangkan utk dibaca. saya pakai alur cerita punya mba aja ya.
>
>
> ------- Original message -------
> > From: Onto Seno <[email protected]>
> > To: [email protected]
> > Sent: 2.4., 9:56
> >
> >
> >
> > Kutipan dari mail "Cuma Milis"
> >> " ------
> >> tadinya sudah saya buat tambahan 1 texbox (isitgl0) untuk menuliskan
> >> sampai ke tgl berapa harus diinput ke dalam sheet dengan tambahan code
> nya :
> >> For k = isitgl to isitgl0
> >> ' bla bla
> >> Next k
> >> tapi ketika dijalankan malah jadi banyak error nya
> >> -------"
> >>
> > seharusnya,.. menurut pendapatku..
> > Nilai Texbox IsiTgl dan Nilai TextBox IsiTgl0 di-konversi dulu menjadi
> > Bilangan bulat (misalnya Date atau Long)
> > Baru kamudian kedua variable itu bisa dipakai sebagai batas² pencacah
> Loop.
> > Seperti dikatakan Wilis, Isi TextBox walaupun seperti ANGKA, tetapi
> type-datanya = String
> >
> > Mari kita bermeditasi sebentar...
> > "20121227" sampai "20130116" jika kedua data di anggap Bilangan maka
> ada 8889 step !!
> > sedangkan jika dikonversi menjadi tanggal = 41270 sampai 41290 hanya
> ada 20 hari (= 20 step)
> > Banyak sekali selisih pengulangan yg terjadi di Looping anda. ?! Itu pun
> kalau anda sempat
> > menkonversi String YYYMMDD menjadi Bilangan
> >
> > Jika looping
> > For k = isitgl to isitgl0
> > ternyata masih kacau; berarti anda masih belum "bening" merenungi
> kenyataan itu.
> > Sekilas info dan pandangan di atas semoga dapat sedikit membantu
> membeningkan
> > renungan anda...
> >
> > o'Seno
> >
> >
> >
> > On Sun, Apr 1, 2012 at 4:42 PM, vw <[email protected]> wrote:
> >
> >> dear all,
> >> kebetulan kali ini lagi iseng iseng buat userform yang berisi textbox
> >> untuk input tgl dan nilai taxrate nya
> >> file terlampir telah saya buat dan bisa digunakan tapi hanya bisa
> >> menginput per tgl, sedangkan tujuan yang dimaksud adalah terrecord di
> >> sheet langsung per-seminggu ( karena taxrate berlaku per minggu )
> >> -jadi tidak perlu di input satu-satu, sekali input langsung 7 hari.
> >>
> >> textbox yang saya buat ada tiga ;
> >> isitgl, isiusd, isijpy.
> >> format isian tgl adalah yyyymmdd (string)
> >>
> >> sebelum dikirim ke milis, tadinya sudah saya buat tambahan 1 texbox
> >> (isitgl0) untuk menuliskan sampai ke tgl berapa harus diinput ke dalam
> >> sheet dengan tambahan code nya :
> >> For k = isitgl to isitgl0
> >> 'bla bla
> >> Next k
> >> tapi ketika dijalankan malah jadi banyak error nya
> >>
> >> untuk menggunakan datepicker, masih belum nyambung otaknya...hehehe...
> >> sebelumnya terima kasih atas waktu dan bantuan nya.
> >>
> >> salam
> >> vega
> >>
> >
>
>
>
