Readable time values

When working with LotusScript using Variants of type DateTime, time-only values get the "default" date component 1899.12.30 prefixed, while date-only values get the "default" time component 12:00:00 AM suffixed.

Function SetValidDateTime(varDateTime 
As Variant, Byval fieldName As String, doc 
As  NotesDocument, dateTimeStyle as Integer)
 As Integer
varDateTime - variant of type (hopefully) 
LS DateTime

fieldName - string value for name of field 
that is to receive datetime value in varDateTime

doc - NotesDocument object to be updated

dateTimeStyle - integer value that controls how 
varDateTime will be saved to document, specifically if
True = Date Only
False = Time Only
Any other integer = Date and Time
Dim funcReturn As Integer
Dim whoCares As Variant
On Error Goto errHandle

fieldName = Trim$(fieldName)

If fieldName = "" Then
funcReturn = True 'generic error
Goto endFunc
End If

If doc Is Nothing Then
funcReturn = True 'generic error
Goto endFunc
End If

If Isdate(varDateTime) Then
Select Case dateTimeStyle
Case True 'Date component only
whoCares = Evaluate({FIELD } & fieldName
 & { := } & fieldName & 
 {;@Setfield("} & fieldName
& {"; [} & Cstr (Year(varDateTime)) & {/} & Cstr(Month(varDateTime))
& {/} & Cstr(Day(varDateTime)) & {])}, doc) Case False 'Time component only whoCares = Evaluate({FIELD } & fieldName & { := } & fieldName & {;@Setfield("} & fieldName & {"; [} & Cstr(Hour(varDateTime)) & {:} & Cstr(Minute (varDateTime)) & {:} & Cstr(Second (varDateTime)) & {])}, doc) Case Else 'Both Date and Time components doc.ReplaceItemValue fieldName, varDateTime End Select Else doc.ReplaceItemValue fieldName, "" 'Or you could simply not do anything here... End If Goto endFunc errHandle: 'Print "(SetValidDateTime) Error # " & Cstr(Err) & " occured on line " & Cstr(Erl) & ": " & Error funcReturn = Err Resume endFunc endFunc: SetValidDateTime = funcReturn 'If False, no error End Function

This was first published in May 2003

There are Comments. Add yours.

TIP: Want to include a code block in your comment? Use <pre> or <code> tags around the desired text. Ex: <code>insert code</code>

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
Sort by: OldestNewest

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

Disclaimer: Our Tips Exchange is a forum for you to share technical advice and expertise with your peers and to learn from other enterprise IT professionals. TechTarget provides the infrastructure to facilitate this sharing of information. However, we cannot guarantee the accuracy or validity of the material submitted. You agree that your use of the Ask The Expert services and your reliance on any questions, answers, information or other materials received through this Web site is at your own risk.