LotusScript格式化字符串

Dim session As New notessession   

  Dim db As notesdatabase   

  Dim docTmp As NotesDocument   

  Dim GetServerDate as String   

  Dim dateTime As New NotesDateTime( "" )   

    

  Set db = session.CurrentDatabase   

  Set docTmp = db.CreateDocument   

    

  Set dateTime = New NotesDateTime(docTmp.Created)   

  GetServerDate = Format(dateTime.DateOnly,"yyyy-mm-dd")

 

Format(SDisuse/TotalSum, "0.00%")

Replace(Format$(sum,"Currency"),"￥","")