Dear Roni,
Kelihatannya anda menggunakan format text untuk tanggal:
contoh:
Txt2.value = Format(Now(), "dd--")
atau cekrip saya kemarin:
Txt10 = Format(tgl + Txt8.Text, "dd--")
hasil data seperti itu tidak dapat dihitung, karena bertipe text, agar
dapat dihitung harus bertype date
Dear NangAgus,
Untuk tanggal sebelumnya dia tidak bisa menghitung Due date nya. Mohon dibantu
lagi dong
Terimakasih
Regards,
Roni
Terimakasih nangagus, luar biasa
Dear Roni, Maksud Cekript Mr Kid begini:
Private Sub Txt8_Change()
Dim tgl As Date 'simpan inputan dalam tipe data date
tgl = Now
Txt10 = Format(tgl + Txt8.Text, "dd--") 'kemudian tambahkan dengan
jumlah hari (tgl + Txt8.Text), hasilnya, tulis di textbox hasil (Txt10=).
End Sub
Dear Roni,
Maksud Cekript Mr Kid begini:
Private Sub Txt8_Change()
Dim tgl As Date 'simpan inputan dalam tipe data date
tgl = Now
Txt10 = Format(tgl + Txt8.Text, "dd--") 'kemudian tambahkan
dengan jumlah hari (tgl + Txt8.Text), hasilnya, tulis di textbox hasil
(Txt10=).
End Sub
Sal
Dear Roni,
Maksud Cekript Mr Kid begini:
Private Sub Txt8_Change()
Dim tgl As Date 'simpan inputan dalam tipe data date
tgl = Now
Txt10 = Format(tgl + Txt8.Text, "dd--") 'kemudian tambahkan
dengan jumlah hari (tgl + Txt8.Text), hasilnya, tulis di textbox hasil
(Txt10=).
End Sub
Sal
Dear Mr Kid,
Saya belum paham, bisakah scriptnya dimasukkan ke lampiran ke excel.
Terimakasih
Regards,
Roni
7 matches
Mail list logo