Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
how to return a date
Hi all,
I have these lines of code: D = Mid(Range(Cells(rijrij, kolkol), Cells(rijrij, kolkol)), N + 13, 100) If D < "" Then If DateValue(D) < Date Then The content of Cells(rijrij, kolkol) was always like: Brink PNM0304 24 februari 2010 D resulted in a date (continental European notation), in this case 24 februari 2010. The second and third lines of coded worked like intended. Now in some (not all) cases the content of Cells(rijrij, kolkol) is like: Berg PNA0506 18 februari 2010 vonnis The difference is that in these cases after the date always comes the same " vonnis". How to distinguish between the case with and without " vonnis" and how to extract the date (D) in the cases with " vonnis"? Thanks in advance for your help. Jack Sons The Netherlands |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
how to return a date
Try this
D = Mid(Range(Cells(rijrij, kolkol), Cells(rijrij, kolkol)), N + 13, 100) D = Replace(D, " vonnis", "") If D < "" Then -- HTH... Jim Thomlinson "Jack Sons" wrote: Hi all, I have these lines of code: D = Mid(Range(Cells(rijrij, kolkol), Cells(rijrij, kolkol)), N + 13, 100) If D < "" Then If DateValue(D) < Date Then The content of Cells(rijrij, kolkol) was always like: Brink PN¢M¢0304 24 februari 2010 D resulted in a date (continental European notation), in this case 24 februari 2010. The second and third lines of coded worked like intended. Now in some (not all) cases the content of Cells(rijrij, kolkol) is like: Berg PN¢A¢0506 18 februari 2010 vonnis The difference is that in these cases after the date always comes the same " vonnis". How to distinguish between the case with and without " vonnis" and how to extract the date (D) in the cases with " vonnis"? Thanks in advance for your help. Jack Sons The Netherlands . |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
how to return a date
So easy, works well, thanks Jim.
Jack. "Jim Thomlinson" schreef in bericht ... Try this D = Mid(Range(Cells(rijrij, kolkol), Cells(rijrij, kolkol)), N + 13, 100) D = Replace(D, " vonnis", "") If D < "" Then -- HTH... Jim Thomlinson "Jack Sons" wrote: Hi all, I have these lines of code: D = Mid(Range(Cells(rijrij, kolkol), Cells(rijrij, kolkol)), N + 13, 100) If D < "" Then If DateValue(D) < Date Then The content of Cells(rijrij, kolkol) was always like: Brink PN.M.-03-04 24 februari 2010 D resulted in a date (continental European notation), in this case 24 februari 2010. The second and third lines of coded worked like intended. Now in some (not all) cases the content of Cells(rijrij, kolkol) is like: Berg PN.A.-05-06 18 februari 2010 vonnis The difference is that in these cases after the date always comes the same " vonnis". How to distinguish between the case with and without " vonnis" and how to extract the date (D) in the cases with " vonnis"? Thanks in advance for your help. Jack Sons The Netherlands . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Return date if in range, else return blank | Excel Worksheet Functions | |||
return a date from range, date is between dates in two other cells | Excel Discussion (Misc queries) | |||
Date Function formula that will return the date of a specific week | Excel Worksheet Functions | |||
Date formula: return Quarter and Fiscal Year of a date | Excel Discussion (Misc queries) | |||
calc constant date from variable date & return with ability to rn. | Excel Worksheet Functions |