=== BEGIN ARIEFWT'S POSTING ===
'= BEGIN CODE =
Function AngkaKeTanggal(TglAngka As String) As Date 'Konversikan
angkanya ke string dulu pake CStr
'Fungsi konversi Tanggal dari bentuk angka yyyymmdd ke tanggal (date)
Dim Tgl As Integer
Dim Bln As Integer
Dim Thn As Integer
Tgl = CInt(Right(TglAngka, 2))
Bln = CInt(Mid(TglAngka, 5, 2))
Thn = CInt(Left(TglAngka, 4))
AngkaKeTanggal = DateSerial(Thn, Bln, Tgl)
End Function
Private Sub Form_Load()
'Ketika form dijalankan...
MsgBox AngkaKeTanggal(InputBox("Silahkan masukkan tanggal yang
Anda pilih...", "Tanggal"))
End Sub
'= END CODE =
=== END ARIEFWT'S POSTING ===
PS: Semoga informasi ini dapat bermanfaat secara positif bagi kita
semua...
Kalau ada pertanyaan, silahkan hubungi saya di [EMAIL PROTECTED] :-)
Akhir kata, mohon maaf bila ada kata-kata yang menyinggung hati.
Salam,
(Arief Wibowo, C.Hts, RM)
Computer Programmer and Alternative Therapist
--- In [email protected], Alim <[EMAIL PROTECTED]> wrote:
>
> Dear All,
>
> Adakah yang bisa mendefinisikan nomor berikut menjadi tanggal ??? (di
> Excell)
>
> contoh 20020306 berubah format menjadi DATE (tgl 06 bln 03 thn 2002)
> ata dibalikkan saja menjadi 06032002
>
> Terima kasih,
> Alim
>
