Date to string : Conversion

[wwj]

[1] Convert a number to date string

Code: Select all

            ' first measurement date
            firstDate = Sheets(obsSht).Cells(2, obsCol + 1)
            
            ' last measuremeent date
            lastRow = Sheets(obsSht).Cells(Rows.Count, obsCol).End(xlUp).Row
            lastDate = Sheets(obsSht).Cells(lastRow, obsCol + 1)

[2] Show a date range.

Code: Select all

            ' first measurement date
            firstDate = Sheets(obsSht).Cells(2, obsCol + 1)
            
            ' last measuremeent date
            lastRow = Sheets(obsSht).Cells(Rows.Count, obsCol).End(xlUp).Row
            lastDate = Sheets(obsSht).Cells(lastRow, obsCol + 1)
        
            Sheets(tgtSht).Cells(i, "C") = firstDate
            Sheets(tgtSht).Cells(i, "D") = lastDate
            Sheets(tgtSht).Cells(i, "C").NumberFormat = "mmm yyyy"
            Sheets(tgtSht).Cells(i, "D").NumberFormat = "mmm yyyy"
            
            Sheets(tgtSht).Cells(i, "e") = Format(Sheets(tgtSht).Cells(i, "C").Value, "mmm yyyy") & " - " & _
                Format(Sheets(tgtSht).Cells(i, "d").Value, "mmm yyyy")

Verified!