Date error

GregR · 01-21-2005, 08:06 PM

I have the following sub which errors:
Sub Monthdate()
Dim celldt As Date
Dim TsMonth As Date
TsMonth = InputBox("Enter month number for timesheet, such as (1) for Jan",
"Timesheet Month...", 1)
celldt = TsMonth & "/1/2005" > Error on this line
Range("S2").Value = celldt
End Sub

I want cell S2 to display the first date of the month specified in the input
box. TIA

Greg

Bob Phillips · 01-21-2005, 08:06 PM

Greg,

You want a number not a date,

Sub Monthdate()
Dim celldt As Date
Dim TsMonth As Integer
TsMonth = InputBox("Enter month number for timesheet, such as (1) for Jan",
"Timesheet Month...", 1)
celldt = TsMonth & "/1/2005" > Error on this line
Range("S2").Value = celldt
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)

"GregR" <gregrivet@hotmail.com> wrote in message
news:O2ymyHBAFHA.3820@TK2MSFTNGP11.phx.gbl...
> I have the following sub which errors:
> Sub Monthdate()
> Dim celldt As Date
> Dim TsMonth As Date
> TsMonth = InputBox("Enter month number for timesheet, such as (1) for
Jan",
> "Timesheet Month...", 1)
> celldt = TsMonth & "/1/2005" > Error on this line
> Range("S2").Value = celldt
> End Sub
>
> I want cell S2 to display the first date of the month specified in the
input
> box. TIA
>
> Greg
>
>

GregR · 01-21-2005, 08:06 PM

Bob, thanks again, can't believe I missed that one.

Greg
"Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
news:uZThLNBAFHA.4028@TK2MSFTNGP15.phx.gbl...
> Greg,
>
> You want a number not a date,
>
> Sub Monthdate()
> Dim celldt As Date
> Dim TsMonth As Integer
> TsMonth = InputBox("Enter month number for timesheet, such as (1) for
Jan",
> "Timesheet Month...", 1)
> celldt = TsMonth & "/1/2005" > Error on this line
> Range("S2").Value = celldt
> End Sub
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "GregR" <gregrivet@hotmail.com> wrote in message
> news:O2ymyHBAFHA.3820@TK2MSFTNGP11.phx.gbl...
> > I have the following sub which errors:
> > Sub Monthdate()
> > Dim celldt As Date
> > Dim TsMonth As Date
> > TsMonth = InputBox("Enter month number for timesheet, such as (1) for
> Jan",
> > "Timesheet Month...", 1)
> > celldt = TsMonth & "/1/2005" > Error on this line
> > Range("S2").Value = celldt
> > End Sub
> >
> > I want cell S2 to display the first date of the month specified in the
> input
> > box. TIA
> >
> > Greg
> >
> >
>
>

Tom Ogilvy · 01-21-2005, 08:06 PM

Sub Monthdate()
Dim celldt As Date
Dim TsMonth As Date
TsMonth = InputBox("Enter month number for timesheet, such as (1) for Jan",
"Timesheet Month...", 1)
celldt = DateValue(TsMonth & "/1/2005")
Range("S2").Value = celldt
End Sub

or
celldt = DateSerial(2005,clng(TsMonth),1)

--
Regards,
Tom Ogilvy

"GregR" <gregrivet@hotmail.com> wrote in message
news:O2ymyHBAFHA.3820@TK2MSFTNGP11.phx.gbl...
> I have the following sub which errors:
> Sub Monthdate()
> Dim celldt As Date
> Dim TsMonth As Date
> TsMonth = InputBox("Enter month number for timesheet, such as (1) for
Jan",
> "Timesheet Month...", 1)
> celldt = TsMonth & "/1/2005" > Error on this line
> Range("S2").Value = celldt
> End Sub
>
> I want cell S2 to display the first date of the month specified in the
input
> box. TIA
>
> Greg
>
>

Tom Ogilvy · 01-21-2005, 08:06 PM

As Bob pointed out, in addition

Sub Monthdate()
Dim celldt As Date
Dim TsMonth As String
TsMonth = InputBox("Enter month number for timesheet, such as (1) for
Jan", _
"Timesheet Month...", 1)
celldt = DateValue(TsMonth & "/1/2005")
Range("S2").Value = celldt
End Sub

--
Regards,
Tom Ogilvy

"Tom Ogilvy" <twogilvy@msn.com> wrote in message
news:ePbFARBAFHA.3528@tk2msftngp13.phx.gbl...
> Sub Monthdate()
> Dim celldt As Date
> Dim TsMonth As Date
> TsMonth = InputBox("Enter month number for timesheet, such as (1) for
Jan",
> "Timesheet Month...", 1)
> celldt = DateValue(TsMonth & "/1/2005")
> Range("S2").Value = celldt
> End Sub
>
> or
> celldt = DateSerial(2005,clng(TsMonth),1)
>
> --
> Regards,
> Tom Ogilvy
>
> "GregR" <gregrivet@hotmail.com> wrote in message
> news:O2ymyHBAFHA.3820@TK2MSFTNGP11.phx.gbl...
> > I have the following sub which errors:
> > Sub Monthdate()
> > Dim celldt As Date
> > Dim TsMonth As Date
> > TsMonth = InputBox("Enter month number for timesheet, such as (1) for
> Jan",
> > "Timesheet Month...", 1)
> > celldt = TsMonth & "/1/2005" > Error on this line
> > Range("S2").Value = celldt
> > End Sub
> >
> > I want cell S2 to display the first date of the month specified in the
> input
> > box. TIA
> >
> > Greg
> >
> >
>
>

GregR · 01-21-2005, 09:06 PM

Tom, just curious, what is the "clng" in the dateSerial alternative. TIA

Greg
"Tom Ogilvy" <twogilvy@msn.com> wrote in message
news:ePbFARBAFHA.3528@tk2msftngp13.phx.gbl...
> Sub Monthdate()
> Dim celldt As Date
> Dim TsMonth As Date
> TsMonth = InputBox("Enter month number for timesheet, such as (1) for
Jan",
> "Timesheet Month...", 1)
> celldt = DateValue(TsMonth & "/1/2005")
> Range("S2").Value = celldt
> End Sub
>
> or
> celldt = DateSerial(2005,clng(TsMonth),1)
>
> --
> Regards,
> Tom Ogilvy
>
> "GregR" <gregrivet@hotmail.com> wrote in message
> news:O2ymyHBAFHA.3820@TK2MSFTNGP11.phx.gbl...
> > I have the following sub which errors:
> > Sub Monthdate()
> > Dim celldt As Date
> > Dim TsMonth As Date
> > TsMonth = InputBox("Enter month number for timesheet, such as (1) for
> Jan",
> > "Timesheet Month...", 1)
> > celldt = TsMonth & "/1/2005" > Error on this line
> > Range("S2").Value = celldt
> > End Sub
> >
> > I want cell S2 to display the first date of the month specified in the
> input
> > box. TIA
> >
> > Greg
> >
> >
>
>

Tom Ogilvy · 01-22-2005, 03:06 PM

It converts the TsMonth variable to a long. I had assumed it was a string
and missed the fact you dim'd it as date.

--
Regards,
Tom Ogilvy

"GregR" <gregrivet@hotmail.com> wrote in message
news:uxkKNaBAFHA.1084@tk2msftngp13.phx.gbl...
> Tom, just curious, what is the "clng" in the dateSerial alternative. TIA
>
> Greg
> "Tom Ogilvy" <twogilvy@msn.com> wrote in message
> news:ePbFARBAFHA.3528@tk2msftngp13.phx.gbl...
> > Sub Monthdate()
> > Dim celldt As Date
> > Dim TsMonth As Date
> > TsMonth = InputBox("Enter month number for timesheet, such as (1) for
> Jan",
> > "Timesheet Month...", 1)
> > celldt = DateValue(TsMonth & "/1/2005")
> > Range("S2").Value = celldt
> > End Sub
> >
> > or
> > celldt = DateSerial(2005,clng(TsMonth),1)
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> > "GregR" <gregrivet@hotmail.com> wrote in message
> > news:O2ymyHBAFHA.3820@TK2MSFTNGP11.phx.gbl...
> > > I have the following sub which errors:
> > > Sub Monthdate()
> > > Dim celldt As Date
> > > Dim TsMonth As Date
> > > TsMonth = InputBox("Enter month number for timesheet, such as (1) for
> > Jan",
> > > "Timesheet Month...", 1)
> > > celldt = TsMonth & "/1/2005" > Error on this line
> > > Range("S2").Value = celldt
> > > End Sub
> > >
> > > I want cell S2 to display the first date of the month specified in the
> > input
> > > box. TIA
> > >
> > > Greg
> > >
> > >
> >
> >
>
>

Curt Finch · 02-16-2005, 12:45 PM

Another option would be to forget about excel timesheets and use
Journyx, which is a free
program to do just about any kind of web timesheet tracking you could
ever think of.
http://journyx.com/clf/gendl.html

sales@projux.com · 03-03-2005, 05:06 PM

There's also Projux (www.projux.com), which lets you gather your team's
project information online and optionally export it to Excel (as well
as PDF or XML) for custom analysis. Projux is fully web-hosted and is
perfect for small to mid-sized services firms. It can do time & expense
tracking, reporting and invoice generation instantly online.