А
Адриан
Помогите пожалуйста. есть поле дата/тайм. в нем можно выбрать только время. ТАк вот мне нужно чтоб выброное время небыло меньше чем текущая. Под кнопку что сохраняет документ написал следуюший код.[codebox]Dim sess As New NotesSession
Dim wks As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim dbposta As New NotesDatabase( "", "" )
Dim docmemo As NotesDocument
Dim rtitem As NotesRichTextItem
Dim datNow As New NotesDateTime("")
Dim timenow As New NotesTimer
Call datnow.SetNow
ttime$ = datnow.TimeOnly
If doc.starttime(0) < ttime$ Then
title$ = "невозможно выбрать время из прошлого"
Messagebox title$,, "Error "
continue = False
Exit Sub[/codebox]
так вот иногда работает, а чаще всего нет... иногда позволяет сохранять док даже если выброно время из прошлого... как можно это исправить?
Dim wks As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim dbposta As New NotesDatabase( "", "" )
Dim docmemo As NotesDocument
Dim rtitem As NotesRichTextItem
Dim datNow As New NotesDateTime("")
Dim timenow As New NotesTimer
Call datnow.SetNow
ttime$ = datnow.TimeOnly
If doc.starttime(0) < ttime$ Then
title$ = "невозможно выбрать время из прошлого"
Messagebox title$,, "Error "
continue = False
Exit Sub[/codebox]
так вот иногда работает, а чаще всего нет... иногда позволяет сохранять док даже если выброно время из прошлого... как можно это исправить?