Hot Fox: Re: ]] XL-mania [[ duadate ko value....apa yg salah ya???

terça-feira, 15 de setembro de 2009

Re: ]] XL-mania [[ duadate ko value....apa yg salah ya???

Oooomm....koding VBA nya kayak gini oom (File Terlampir) :
Option Explicit
Dim InputSheet As Worksheet
Dim r As Long
Dim Penjumlah As Integer
Dim Tanggalan As Date


Sub KalkulasiTanggal()

    Application.ScreenUpdating = False
    Set InputSheet = ActiveSheet

    InputSheet.Activate

    r = 2

'   Loop sampai dengan Cell kosong
    Do While Cells(r, 1) <> ""

        ' Konversi format tangggal biar fix dd/mm/yyyy
        Tanggalan = Format((Cells(r, 3)), "dd/mm/yyyy")
        ' pastikan integer
        Penjumlah = Int(Cells(r, 8))


            ' Panggil fungsi TestDate
            InputSheet.Cells(r, 9) = TestDates(Tanggalan, Penjumlah)


    r = r + 1
    Loop


End Sub
Function TestDates(pDate1 As Date, Penjumlah As Integer) As Date
      ' Tanggal ditambahin
      TestDates = DateValue(Format(pDate1, "dd/mm/yyyy")) + Int(Penjumlah)
End Function

--- On Tue, 9/15/09, Eka Subyantara <eka.subyantara@widyatama.ac.id> wrote:

From: Eka Subyantara <eka.subyantara@widyatama.ac.id>
Subject: Re: ]] XL-mania [[ duadate ko value....apa yg salah ya???
To: XL-mania@yahoogroups.com
Date: Tuesday, September 15, 2009, 7:12 PM

Pak Jae,
Menurut telisik saya masalahnya ada pada format tanggal Date_TRN (mm/dd/yyyy) yang tidak sesuai dengan sistem tanggal komputer Bapak (dd/mm/yyyy) .
Kebetulan di komputer saya sesuai, jadi tidak ada masalah, langsung keluar due datenya dengan sendirinya tanpa #VALUE! satupun.

Solusinya : balik tanggal dan bulannya. (mungkin ada cara lain yang lebih baik lagi, kita tunggu)

- eka -

__._,_.___

Messages in this topic (6) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Ada lowongan jadi direktur ga? Hubungi momods please... :D        |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

Nenhum comentário:

Postar um comentário

Hot Fox

terça-feira, 15 de setembro de 2009

Re: ]] XL-mania [[ duadate ko value....apa yg salah ya???

Nenhum comentário:

Arquivo do blog