If Cdat(Format(Today,"dd/mm/yyyy")) > Cdat("31/01/"+Cstr(Year(Today))) Then
If Cdat(Format(Cdat(temp),"dd/mm/yyyy")) < Cdat("01/02/"+Cstr(Year(Today))) Then
Set vForm = rfc.exports( "I_FORM" )
vForm.value = "1"
End If
End If
End If
As my client’s system regional setting format is “mm/dd/yyyy” , through the agent I want to tell them a message the system format is “mm/dd/yyyy” so you pls change to dd/mm/yyyy from Regional settings/control panel , so how can we check the system date through agent and prompt a message.
Riyas , You may use the Notes international class at any event that you feel like …sample code is attached.
Dim workspace As New notesuiworkspace
Dim session As New notessession
Dim uidoc As notesuidocument
Dim international As NotesInternational
Dim db As notesdatabase
Set db = session.currentdatabase
Set international = session.International
If international.IsDateMDY Then
Messagebox "Please note that you have to change the date format of your computer to DD/MM/YYYY"
Call Source.close
End If
Hi sidhardh, Thank you very much for ur nice help.
its working fine but i have one doupt, once the message prompting at post open. if i want to close the application afer click ok in message prompt what i will do?