LOTUSSCRIPT/COM/OLE CLASSES
Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim doc As NotesDocument Dim dateComposedObj As New NotesDateTime("") Set uidoc = workspace.CurrentDocument Set doc = uidoc.Document dateComposed = doc.DateComposed dateComposedObj.LSLocalTime = dateComposed(0) thisWeekday = Weekday(dateComposedObj.LocalTime) Select Case thisWeekday Case 1 : stringWeekday = "Sunday" Case 2 : stringWeekday = "Monday" Case 3 : stringWeekday = "Tuesday" Case 4 : stringWeekday = "Wednesday" Case 5 : stringWeekday = "Thursday" Case 6 : stringWeekday = "Friday" Case 7 : stringWeekday = "Saturday" End Select Messagebox _ ("This document was composed on a " & stringWeekday) End Sub
See Also