text1=format(now,"dd-mmm-yyyy hh:mm")
Text1.Text = Format(Now, "dd-mmm-yyyy hh:mm:ss")
Text1.text = Date & Time