Mohon Maaf, *post ulang*, karena siti menerima notifikasi dari "[email protected] / 22 aug 2011 "Sorry, we were unable to deliver your message to the following address. <[email protected]>: Message expired for domain yahoogroups.com"
2011/8/21 STDEV(i) <[email protected]> > Jika dua buah tanggal yg akan dibandingkan sudah berupa data DATE/TIME > kita tinggal membandingkan saja, karena sejatinya Data DATE/TIME itu > sendiri > sudah berupa bilangan. Mereka tampak LAIN, hanya karena formatting saja. > Pembandingan : *40772 * = *DateValue("1 Aug 2011")* hasilnya TRUE > > If TanggalA > TanggalB Then > N = Tanggal A - TanggalB > Else > N = TanggalB - TanggalA > End If > > Kedua "tanggal" (tepatnya Text menyerupai Tanggal") baru perlu di konversi > menjadi bilangan / tanggal jika data "tanggal" tsn berupa TEXT > Konversi Teks dengan penampakan 'Seperti Tanggal yg dikenal oleh Excel > ( Misal data "1 Jan 2010", "Jan 1, 2010", "12/31/2012" ) dapat > dikonversi > menjadi data DATE dengan Fungsi DateValue > TanggalMurni = DateValue(TextTanggal) > > Malah sebetulnya, di dalam kalimat aritmatik yg melibatkan data tanggal, > ** di formula excel, bagian data tanggal dapat ditulis sebagai text > ** di VBA dapat ditulis sebagai text dengan diapit oleh #data# > > > Sub vvv() > Dim TgA As String, N As Long, x As Boolean > > TgA = Format(#12/31/2011# + 17, "dd - MMM - yyyy") > MsgBox TgA > > N = #12/31/2011# - #12/21/2011# > MsgBox N > > X = (N = DateValue("Aug 17, 2011")) > MsgBox X > > End Sub > > > > > 2011/8/21 Loheng Stone <[email protected]>: > > > Dear XL-mania, > > Langsung saja pertanyaanya : > > bagaimana cara membandingkan dua buah tanggal yang berbeda > > contoh : > > If tanggal1 > tanggal2 then ... endif > > apakah mesti dikonversi data tanggal tersebut dalam bentuk bilangan. > > fungsi apa yang digunakan untuk mengkonvesi data tanggal kedalam bentuk > bilangan ? > > > > Salam, >
