Результаты поиска

точно, так вышло, пока тестирую разные комбинации, но вроде все правильно

не могу найти как дату и время соединить , чтобы потом отнимать

странно, но реально так на всех калькуляторах времени считает

оо, так классно вышло, но вот все равно не пойму field0:= @Round((Date2 - Date1) / 3600; 0,1) ; field1:=@If ( Time2 !="" ; Time2 ; null ); field2:=@If ( Time1 !="" ; Time1 ; null ); @If(field1=null | field2=null; @Return(""); ""); seconds := field1-field2; hours0 :=...

может и подходит, не могу пока сообразить. есть например 2,45 , но это не 2 часа и 45 мин, а как это перевести в минуты я пока не могу понять

у меня есть две Date1 - дата создания Time1 - время создания Date2 - дата записи в журнал Time2 - время записи в журнал и время разницы между записью в журнал и созданием, измеряется в часах @Round(((Date2 - Date1) + (Time2 - Time1)) / 3600 ; 0,01) отображается 24,14 например . а хотелось...

Делаю html письмо и в нем будут и картинки и 1 вложение. так добавляю в тело письма картинку: Set bodyChild = body.CreateChildEntity   Call stream.Open("C:\1.jpg") Call bodyChild.SetContentFromBytes(stream,"image/jpg",ENC_NONE)   Call stream.Close   Call bodyChild.EncodeContent(ENC_BASE64)...

скажите, пожалуйста, а есть какая-то возможность в HotSpot link вставить вычисляемую ссылку, типа: "https://nnnn/sfsdjfh=" & "&name=" & Doc.Nane(0) & "&date=" & Doc.Date(0) просто у меня есть шаблоны, они используются для отправки и в них все данные из основного документа и есть линки, но с...

да есть. но пробую Dim bodnew As NotesMIMEEntity Dim header As NotesMIMEHeader Dim stream As NotesStream Set bodnew = doc.CreateMIMEEntity в дебагере смотрю и именно на строке Set bodnew = doc.CreateMIMEEntity получаю ошибку item Body already exists что-то не могу...

Set db = session.CurrentDatabase Set uidoc = ws.currentdocument Set doc = uidoc.Document Dim body As NotesMIMEEntity Dim header As NotesMIMEHeader Dim stream As NotesStream Set body = doc.CreateMIMEEntity - item body already exists Set stream =...

понятно, буду искать как указать

wsLastRowSd= "=СУММ(" & colSum & "2:" & colSum & (wsLastRow) & ")" Call wsCell(wsCellStringLast,wsLastRowSd,wsCurrentCellFlags,wsCurrentFontSize,wsCurrentFontName,wsCurrentNumberFormat) Function wsCellStringLast As Variant Call wsGetColString wsLastRowS = wsLastRow + 1...

использую wsLib script, который был на просторах инета давно взят добавляю все данные и потом Call wsCellSum("P") Sub wsCellSum(colToSum As String) 'add a row and put the sum() formula there wsLastRowSum = wsLastRow + 1 wsLastRowSumd= "=СУММ(" & colToSum & "2:" & colToSum & (wsLastRow) &...

из Lotus необходимо выгрузить данные в excel все в выгрузке работает, но при формировании Excel необходимо , чтобы числовые данные из определенных колонок суммировались данные переношу так Call wsSetCurrentCell("A" & Cstr(IndexBase+LineCounter)) Call wsCurrentCell(Doc.Поле(0))...

в первой форме оно сформировано, но надо скопировать полностью в другую форму со всеми вычислениями и в форме 2 не надо его никак изменять

в таком виде не подтягивается в новое поле вычисляемая часть, в richtext (1) есть вычисляемые поля и они не копируются в richtext (2)

Set rtitemB = doc.GetFirstItem("FIELD") Set rtitemA = New NotesRichTextItem(newdoc, "Body") Call rtitemA.AppendRTItem(rtitemB) вот в таком виде добавляется ок. спасибо

так пробовал но в строке If ( rtitemA.Type = RICHTEXT And rtitemB.Type = RICHTEXT ) Then object variable not set

а есть возможность данные из rich text скопировать в другую форму, но без потери форматирования и всех данных? пробую так, но копирование какое-то кривое получается Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim session As New NotesSession Dim db As NotesDatabase...

спасибо, Call ws.EditDocument(False, docFromDisk)