Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
Solved

# Format date and time - 0001

Posted on 2010-08-16
Medium Priority
373 Views
Hello all,

In my excel .Cells(i, 11), i have a date and time format "201008160100" for example. Year:2010, month:08, Day:10, Hour:01, Min:00.

I need to have in cell 13 the value from .Cells(i, 11) but remove 1 minute.

The result of the example "201008160100" would be "201008160059"

``````.Cells(i, 13) = .Cells(i, 11) - "0001"
``````
0
Question by:Wilder1626
[X]
###### Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

• Help others & share knowledge
• Earn cash & points
• 3
• 2
• 2
• +2

LVL 58

Expert Comment

ID: 33445173
=TEXT(DATE(LEFT(A1,4),MID(A1,5,2),MID(A1,7,2))+TIME(MID(A1,9,2),MID(A1,11,2),0)-TIME(0,1,0),"yyyymmddhhmm")
0

LVL 47

Expert Comment

ID: 33445187
Try this function....

Function subtractMinute(dateString As String) As String
Dim timeString As String
timeString = Right(dateString, 4)

Dim timeVal As Date
timeVal = TimeSerial(Left(timeString, 2), Right(timeString, 2), 0)

Dim newDateString As String
newDateString = Left(dateString, 8) & Format(DateAdd("n", -1, timeVal), "hhmm")

subtractMinute = newDateString
End Function

Use it like this....

MsgBox subtractMinute("201008160100")

Wayne
0

LVL 47

Expert Comment

ID: 33445197
For that matter, you can use it as a worksheet formula as well.

Wayne
0

LVL 11

Author Comment

ID: 33445199
Hello,

I have a syntax error:
.Cells(i, 13) = TEXT(DATE(LEFT(A1,4),MID(A1,5,2),MID(A1,7,2))+TIME(MID(A1,9,2),MID(A1,11,2),0)-TIME(0,1,0),"yyyymmddhhmm")
0

LVL 58

Accepted Solution

cyberkiwi earned 2000 total points
ID: 33445232
s = .Cells(i, 11)
s = Format(DateAdd("n", -1, DateSerial(Left(s, 4), Mid(s, 5, 2), Mid(s, 7, 2)) + TimeSerial(Mid(s, 9, 2), Mid(s, 11, 2), 0)), "yyyymmddhhmm")
.Cells(i, 13) = s
0

LVL 58

Expert Comment

ID: 33445246
webtubbs - would your code handle taking 1 minute off 0000? first day of year?
0

LVL 85

Expert Comment

ID: 33445321
Just as an alternative:
=TEXT(TEXT(A1,"0000""-""00""-""00 00"":""00")*1-TIME(0,0,1),"yyyymmddhhmm")
0

LVL 81

Expert Comment

ID: 33450364
You can shorten Rory's formula using the backslash to indicate literals:
=TEXT(TEXT(A1,"0000\-00\-00 00\:00")-1/1440,"yyyymmddhhmm")
0

LVL 11

Author Closing Comment

ID: 33451243
Thanks to everybody.

Now it works.

Thanks again :)
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes how to use a set of graphical playing cards to create a Draw Poker game in Excel or VB6.
After seeing numerous questions for Dynamic Data Validation I notice that most have used Visual Basic to solve the problem. This suggestion is purely formula based and can be used in multiple rows.
The viewer will learn how to use the =DISCRINV command to create a discrete random variable, use this command to model a set of probabilities and outcomes in a Monte Carlo simulation, and learn how to find the standard deviation of a set of probabilâ€¦
This Micro Tutorial will demonstrate how to use longer labels with horizontal bar charts instead of the vertical column chart.
###### Suggested Courses
Course of the Month6 days, 3 hours left to enroll