Converting timestamp

Originally posted by : Sakari (temppu@temppu.net)I have a simple problem, I want to convert a timestamp to vbGeneralDate format.The timestamp is in this format:Thu, 24 Jan 2002 09:56:27 +0200So it would be much easier to handle if it would be possible to convert to:01/24/2002 09:56:27 PMfor example.Can anyone help me, there must be some easy way to do that, it's a quite common task I think.Waiting for some quick help, my project is waiting.. -Sakari

Originally posted by : Sakari (temppu@temppu.net)Well, I kind of solved the problem by my self. I did a little function wich takes care of something.. but sill there is one thing that I don't understand..there was some timestamps like these:Thu, 24 Jan 2002 09:56:27 +2000 (GMT)Thu, 24 Jan 2002 09:56:27 +0200Thu, 24 Jan 2002 09:56:27 -0200 (EET)Thu, 24 Jan 2002 09:56:27 GMTThu, 24 Jan 2002 09:56:27 -0800Thu, 24 Jan 2002 09:56:2 +-020024 Ene 2002 09:56:27 +0200Thu, 24 Jan 2002 09:56:27 +0800 (Singapore Standard Time)And I managed to convert all but that +- one and the Ene one.. but I am quite sure those were some kind of errors in some part.. well my function just gives them a Now() time in replacement.If anyone is interested, here is my function. I know it is made with simple way. I am quite tired for today's work. So forgive me my programming skills for today. =)Function ConvertTimestamp (strDate) strDotchk = "not_ok" strTrim_1 = InStrRev(strDate,"(") If strTrim_1 0 Then strDate = Left(strDate, strTrim_1 - 1) End If strTrim_2 = InStr(strDate,",") If strTrim_2 0 Then strTrim_3 = Len(strDate) strDate = Right(strDate, strTrim_3 - strTrim_2) End If strDate = Trim(strDate) strTrim_4 = InStrRev(strDate,"+") If strTrim_4 0 Then strTrim_5 = Len(strDate) strTimeDif = Trim(Right(strDate,strTrim_5 - strTrim_4)) strDate = Trim(Left(strDate,strTrim_4 - 1)) strTimeDif_h = Left(strTimeDif,2) strTimeDif_n = Right(strTimeDif,2) If IsDate(strDate) = true Then strDate = DateAdd("N",strTimeDif_n,strDate) strDate = DateAdd("H",strTimeDif_h,strDate) strDotchk = "ok" End If End If strTrim_6 = InStrRev(strDate,"-") If strTrim_6 0 Then strTrim_7 = Len(strDate) strTimeDif = Trim(Right(strDate,strTrim_7 - strTrim_6)) strDate = Trim(Left(strDate,strTrim_6 - 1)) strTimeDif_h = Left(strTimeDif,2) strTimeDif_n = Right(strTimeDif,2) If IsDate(strDate) = true Then strDate = DateAdd("N",strTimeDif_n,strDate) strDate = DateAdd("H",strTimeDif_h,strDate) strDotchk = "ok" End If End If If strDotchk "ok" Then strTrim_8 = InStrRev(strDate,":") If strTrim_8 0 Then strDate = Trim(Left(strDate,strTrim_8 + 2)) End If End If If IsDate(strDate) = false Then strDate = FormatDateTime(Now(),vbGeneralDate) End If ConvertTimestamp = strDateEnd FunctionOK.. BED TIME!------------Sakari at 1/24/2002 9:22:52 AMI have a simple problem, I want to convert a timestamp to vbGeneralDate format.The timestamp is in this format:Thu, 24 Jan 2002 09:56:27 +0200So it would be much easier to handle if it would be possible to convert to:01/24/2002 09:56:27 PMfor example.Can anyone help me, there must be some easy way to do that, it's a quite common task I think.Waiting for some quick help, my project is waiting.. -Sakari