慕尼黑5688855
是不是这样?Private Sub Form_Load()Dim dtp1 As String, dtm1 As StringForm1.AutoRedraw = TrueForm1.FontSize = 20Form1.ForeColor = &H7700FF'Form1.BorderStyle = 1dtp1 = "2003-1-10"dtm1 = "8:30:00"Print Left(dtp1, 4) & Right(Left(dtp1, 7), 2) & Right(dtp1, 2) & Left(dtm1, 2); Left(Right(dtm1, 5), 2)End Sub