Removing time from date field labeling in VBScript

Question

I'm not at all experienced with writing VBScript for labeling purposes. Here is my code so far:

Function FindLabel ( [Date_of_Birth] )
  if not isnull ( [Date_of_Birth] ) then
         FindLabel = "DOB: "  &  [Date_of_Birth]
            FormatDateTime [Date_of_Birth],????
  else
         FindLabel = ""
  end if
End Function

Basically, I want to label features that have a DOB with the DOB from the field, and if that field is null I don't want it to label. That part works great, but I noticed that some of the dates also had a time tacked on to the end. I would like to format that part out if possible. The line that reads FormatDateTime [Date_of_Birth],???? is what I found searching online, but nothing I've entered after that comma works. I'm curious if I'm on the right track or not with how I'm trying to format the date.

Thanks, Chase

Answer 1

If [Date_of_Birth] field has a fixed format for the date, you can use a combination of the LEFT(), MID(), and INSTR() functions to extract just that part.

If it's fixed-width, you can just use LEFT() to extract the first part of the string...

# [Date_of_Birth] like "1990/01/01 12:01:01 PST"
FindLabel = "DOB: " & Left([Date_of_Birth], 10)

Otherwise, you must do some dirty work to pull out the relevant portions...

# [Date_of_Birth] like "January 1, 1990, 12:01:01 PST"
Month = 1
MonthEnd = InStr([Date_of_Birth], " ") - 1
Day = MonthEnd + 2
DayEnd = InStr(Day, [Date_of_Birth], ",") - 1
Year = DayEnd + 3
YearEnd = InStr(Year, [Date_of_Birth], ",") - 1

Month = Mid([Date_of_Birth], Month, MonthEnd - Month)
Day = Mid([Date_of_Birth], Day, DayEnd - Day)
Year = Mid([Date_of_Birth], Year, YearEnd - Year)

FindLabel = "DOB: " & Month & " " & Day & ", " & Year

Answer 2

Since Date and Time (1990/01/01 12:01:01 PST) always has a space between use the split function. The date portion will always be in first element of array created.

arrSplit = Split(Date_of_Birth, " ")

DateOnly = arrSplit(0)