Date Format

[BartvanBeek]

Hi,

I'm looking for a function to format each date to one format.

Just one format: YYYY/MM/DD

When i go into the function i don't know which format the date has, it can be:

- DD-MM-YYYY

- MM-DD-YYYY

- YYYY-DD-MM

- DD-MM-YYYY

Is there a function to handle this?

[Andreik]

Hi,

I'm looking for a function to format each date to one format.

Just one format: YYYY/MM/DD

When i go into the function i don't know which format the date has, it can be:

- DD-MM-YYYY

- MM-DD-YYYY

- YYYY-DD-MM

- DD-MM-YYYY

Is there a function to handle this?

_DateTimeFormat() but is need this format YYYY/MM/DD and is very hard to know where is DD-MM or MM-DD. Edited October 6, 2008 by Andreik

[Xenobiologist]

Hi,

if you do not know then there is no chance.

- DD-MM-YYYY

- MM-DD-YYYY

These two dates cannot not be interpretated by a script. You need to get that info from ... maybe the system.

Mega

[BartvanBeek]

Is it realy unpossible???

A script with a date format DD-MM-YYYY can written in each script en runs on each PC with another date format.

That's how to solve this issue?

[monoceres]

Is it realy unpossible???

A script with a date format DD-MM-YYYY can written in each script en runs on each PC with another date format.

That's how to solve this issue?

Think about it.

Lets say I provide your script with the following date:

1990-05-06

What format did I use?

[Xenobiologist]

Hi,

depends on where are you going to use it. Maybe you can use a datepicker like GUICtrlCreateDate

Where are you going to use the date? User interaction?

Mega

[BartvanBeek]

Hi,

depends on where are you going to use it. Maybe you can use a datepicker like GUICtrlCreateDate

Where are you going to use the date? User interaction?

Mega

Yes, i want to filter on a date collumn in a listview. But the date collumn can have more date format.

monoceres: I know what you mean.

Is this an idea?

Func _FormatDate($Date,$Sep = "/")
    $Now = _NowDate()
    $Now = StringReplace($Now,".",$Sep)
    $Now = StringReplace($Now,"\",$Sep)
    $Now = StringReplace($Now,"-",$Sep)
    $Now = StringReplace($Now," ",$Sep)
    $Part = StringSplit($Now,$Sep)
    
    $Date = StringReplace($Date,".",$Sep)
    $Date = StringReplace($Date,"\",$Sep)
    $Date = StringReplace($Date,"-",$Sep)
    $Date = StringReplace($Date," ",$Sep)
    $Part2 = StringSplit($Date,$Sep)
    
    $Part[1] = INT($Part[1])
    $Part[2] = INT($Part[2])
    $Part[3] = INT($Part[3])
    
    Switch True
        Case $Part[1] = Int(@YEAR) AND $Part[2] = Int(@MON) AND $Part[3] = Int(@MDAY)   ; Y M D
            Return _AddZero($Part2[1]) & $Sep & $Part2[2] & $Sep & $Part2[3] 
            
        Case $Part[1] = Int(@YEAR) AND $Part[3] = Int(@MON) AND $Part[2] = Int(@MDAY)   ; Y D M
            Return _AddZero($Part2[1]) & $Sep & $Part2[3] & $Sep & $Part2[2] 
                
        Case $Part[3] = Int(@YEAR) AND $Part[2] = Int(@MON) AND $Part[1] = Int(@MDAY)   ; D M Y         
            Return _AddZero($Part2[3]) & $Sep & $Part2[2] & $Sep & $Part2[1] 
            
        Case $Part[3] = Int(@YEAR) AND $Part[1] = Int(@MON) AND $Part[2] = Int(@MDAY)   ; M D Y         
            Return _AddZero($Part2[3]) & $Sep & $Part2[1] & $Sep & $Part2[2] 
        
        Case Else
            MsgBox(48,$AppName,"Date cannot be formatted correctly.")
            Return ""
    EndSwitch
EndFunc