[vba]
Sub TEST()
Dim str_Date1 As Date
Dim str_Date2 As Date
str_Date1 = "28/03/2008"
str_Date2 = "25/07/2009"
MsgBox Application.Days360(DateValue(str_Date1), DateValue(str_Date2))
End Sub
[/vba]
[vba]
Sub TEST()
Dim str_Date1 As Date
Dim str_Date2 As Date
str_Date1 = "28/03/2008"
str_Date2 = "25/07/2009"
MsgBox Application.Days360(DateValue(str_Date1), DateValue(str_Date2))
End Sub
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote