gini aja 
> > If format(Date, "dd/mm/yyyy") >= "15/05/2007" Then
> >     MsgBox "diatas tanggal 15 Mei 2007"
> > Else
> >     MsgBox "Dibawah tanggal 15 Mei 2007"
> > End If


Kirim email ke