I need a single VB6 Function

I want you to write a single public VB6 function (which may or may not have its own orivate functions). The function will accept a Country/City Enum (1=NewYork, 2=GB, 3=Chicago, etc). The function will return a Date value, consisting of a Date and Time portion (i.e. 13/4/2004 09:03:00). This is a standard, VB6, Date date-type. The value that is returned from this function will be the current date and time in the country/city defined by the enum input parameter. VERY IMORTANT: This function must take into account Daylight Savings time in both countries/cities (i.e. the country/city where the function is being run from, and the country/city defined by the input parameter. See Deliverables for further info ## Deliverables For instance, if I call this function on a PC in the UK, the function must recognise that the UK is currently in daylight savings time. It must then examine the enum country parameter to decide if that country is in daylight savings time. The function CALL would look something like this... Public Enum enumCities London=1 NewYork=2 Chicago=3 HongKong=4 Tokyo=5 End Enum Dim dtmCurrentDateAndTimeInHongKong As Date Dim dtmCurrentDateAndTimeInTokyo As Date Dim dtmCurrentDateandTimeInChicago As Date Dim dtmCurrentDateAndTimeInNewYork As Date dtmCurrentDateAndTimeInHongKong = YourFunction([login to view URL]) dtmCurrentDateAndTimeInTokyo = YourFunction([login to view URL]) dtmCurrentDateandTimeInChicago = YourFunction([login to view URL]) dtmCurrentDateAndTimeInNewYork = YourFunction([login to view URL]) ## Platform This function must run on all standard Windows, client and server operating systems (i.e. 2000, XP, etc)