[klaus]

Hier eine Lösung

Sub App_Start
	
  Form1.Show
  
  txtVorgNr=DatumZeit

End Sub

Sub DatumZeit
  Dim tx,txt
	
  tx=SubString(DateY,2,2)
  txt="PR"&tx
  
  tx=DateM
  If StrLength(tx)=1 Then  ' ergänzt mit einer 0 falls nötig
    tx="0"&tx
  End If
  txt=txt&tx

  tx=DateD
  If StrLength(tx)=1 Then
    tx="0"&tx
  End If
  txt=txt&tx

  tx=TimeH
  If StrLength(tx)=1 Then
    tx="0"&tx
  End If
  txt=txt&tx
 
  tx=TimeM
  If StrLength(tx)=1 Then
    tx="0"&tx
  End If
  txt=txt&tx

  Return txt
End Sub

Mit Besten Grüssen