Dim session As New NotesSession Dim international As NotesInternational Set international = session.International If international.IsDateDMY Then Messagebox "DMY",, "Format of date" Elseif international.IsDateMDY Then Messagebox "MDY",, "Format of date" Elseif international.IsDateYMD Then Messagebox "YMD",, "Format of date" Else Messagebox "Unknown",, "Format of date" End If Messagebox international.DateSep,, "Date separator" Messagebox international.Yesterday & Chr(10) & _ international.Today & Chr(10) & _ international.Tomorrow ,, "Text of date keywords"
See Also