Mungkin bisa menggunakan procedure sbb Pak :
Private Sub CommandButton1_Click()
Dim SaatIni As Date
Dim uFileName As String, Idate As String, Itime As String
Idate = Format(Now, "dd-mmm-yy")
SaatIni = Format(Now, "Short Time")
If SaatIni >= #12:00:00 AM# And SaatIni <= #11:59:00 AM# Then
Itime = "A"
Else
Itime = "B"
End If
DfltFname = Idate & " - " & Itime
uFileName = Application.InputBox(Prompt:="Masukan nama file baru :", _
Title:="Simpan Data ke File Lain..", Default:=DfltFname)
End Sub
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/
----- Original Message -----
From: slamet harto
To: belajar-excel@yahoogroups.com
Sent: Monday, October 29, 2007 2:04 PM
Subject: [belajar-excel] Format jam yang di klasifikasikan pada input box
Ass Wr Wb,
Salam sejahtera untuk semua..
Mohon bantuan lagi kiranya untuk membuat suatu format jam di Input Box:
Pertanyaan ada di dalam File terlampir.
Terima kasih atas bantuannya.
Rgds,
Slamet Harto
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
