Problem with Date ... 5

[Rodie]

Hi all

I want to add "n" days to a date. So, I use the functions "Format()" and "DateAdd()" like that:

Dim final_date as Date
final_date = day & " " & month & " " & year  [COLOR=green]' 28 6 2004[/color]
final_date = Format(final_date, "General Date")
final_date = DateAdd("d", n, final_date)

The problem : on differents computers, "Format()" gives 28/6/2004 or 6/28/2004.

My program must work on all computers, so I don't where I can't fix "d m yyyy" in my code...

Thanks for your help.
Rodie

 

[PHV]

Anyway, in my post, final_date is a REAL date:
final_date = DateAdd("d", n, DateSerial(theYear, theMonth, theDay))

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244