Skip to main content

To find the number of seconds, minutes, hours, days, weeks between the two selected dates in lotus script.

Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim varDate1 As NotesItem
    Dim varDate2 As NotesItem
    Dim dt1 As NotesDateTime
    Dim dt2 As NotesDateTime
    Dim dt3 As New NotesDateTime("")
    Dim dt4 As New NotesDateTime("")
    Dim diffSeconds As Long
    Dim minutesLeft As Long
    Dim hoursLeft As Double
    Dim daysLeft As Integer
    Dim weeksLeft As Integer
    Dim monthLeft As Integer
    Dim remDays As Integer
    Dim mNames As Variant
    Dim currMonth As String
    Dim lastMonth As String
   
   
    Set uidoc = workspace.CurrentDocument
    Set varDate1 = uidoc.Document.GetFirstItem("txDate1")
    Set dt1 = varDate1.DateTimeValue
    Set varDate2 = uidoc.Document.GetFirstItem("txDate2")
    Set dt2 = varDate2.DateTimeValue
   
    dt3.LocalTime = Datenumber(Year(dt1.LocalTime), Month(dt1.LocalTime), 1)
    Call dt3.AdjustMonth(1)
    Call dt3.AdjustDay(-1)
   
    dt4.LocalTime = Datenumber(Year(dt2.LocalTime), Month(dt2.LocalTime), 1)
    Call dt4.AdjustMonth(1)
    Call dt4.AdjustDay(-1)
   
    currMonth = dt4.LocalTime
    'Msgbox currMonth,,"currMonth"
   
    diffSeconds = dt2.TimeDifference(dt1)
    minutesLeft = diffSeconds/60
    hoursLeft = Round(minutesLeft/60,0)
    daysLeft = hoursLeft/24
    weeksLeft = daysLeft/7
    monthLeft = daysLeft/30.4
    Msgbox diffSeconds
   
   
    printString = "There are " & secondsLeft & " seconds, " & minutesLeft & " minutes, " & hoursLeft & " hours, " _
    & daysLeft & " days, and " & weeksLeft & " weeks left until the end of the year"
   
    Messagebox printstring

Comments

Post a Comment

Popular posts from this blog

Dynamically changing the combo box values in Javascript:(Lotus Notes)

I need to change the 2nd combobox value depend on the value of the first combobox value. Steps: 1) Create a combo box name it as "cmbValue" . And have some values. 2) Give  default value to that combobox. 3) In the Onchange of that combo box place the code below. 4) Create another combobox value and name it as "cmbValue1" . 5) Give default value to that combobox also. Sample Code(Modify according to your values):   var doc = document.forms[0].cmbValue; var doc1 = document.forms[0].cmbValue1; if(doc.options[doc.selectedIndex].text=="--Select--") { doc1.remove(0) doc1.options[0] = new Option("--Select--","cmbValue1") return false; } else { if(doc.options[doc.selectedIndex].text=="One") {     doc1.options[0] = new Option("four","cmbValue1")     doc1.options[1] = new Option("five","cmbValue1")     return false; } else if(doc.options[doc.selectedIndex].text=="Two") {     doc1.opt...
1 comment
Read more

Lotusscript to establish ODBC connection:

The script, when executed from a button, will create a new record in a specified ODBC data source, attempt to save the new record and display a message indicating whether the operation was completed successfully. If the operation is not completed sucessfully, it is likely that either your data source is read-only or your ODBC driver does not permit updates to the data source. Important: Complete each of the four steps below before running the script. 1. Create a new agent and add the following UseLSX command to the Options event: UseLSX "*LSXODBC" 2. Add the following script to the Initialize event of the agent. NOTE: Do not add the 'Sub' and 'End Sub' lines. Dim ui As New NotesUIWorkspace     Dim uidoc As NotesUIDocument     Dim doc As NotesDocument     Dim connection As ODBCConnection     Dim query As ODBCQuery     Dim result As ODBCResultSet         Set uidoc=ui.CurrentDocument ...
1 comment
Read more

Data Sources

Data sources define what data should be imported. Only admin users can create data sources. In this module, the data source is a Microsoft Excel spreadsheet. Other possible data sources are: CSV JDBC FTP HTTP XML Data is not imported directly from a Data Source into the target table. The steps are: Load Data into a staging table Create Transform Map Run Transform to move data from the staging table to the target table Check data integrity While transforming, 1)  Do not use the string NULL in source data or in a script. NULL is a reserved word. Null and null can be used but not NULL. 2)  Field Maps take precedence over Transform Map scripts. 3)  Use the coalesce option in a Transform Map Field Map to determine if a row in the source data matches a record in the target table. The coalesce option makes a field a record's unique key. Set the coalesce value to true to use a field to check for collisions. Transformation Script: Transform...
Post a Comment
Read more