Extending existing coding to include new parameters

Posted to microsoft.public.excel.misc

GS[_2_]

external usenet poster

Posts: 3,514

Extending existing coding to include new parameters

Try...

.Range("A21").Value = "Last Updated: " _
& Format(Now, " dddd dd/mm/yy at hh:mm:ss") _
& ", when the shop was " & Get_ShopOpenStatus(TimeValue(Now))

Function Get_ShopOpenStatus(CurrentTime As Variant) As String
Dim vShopOpens, vShopCloses
vShopOpens = TimeValue("8:00 AM")
vShopCloses = TimeValue("4:30 PM")
If TimeValue(Now) vShopOpens And TimeValue(Now) < vShopCloses Then
_
Get_ShopOpenStatus = "open." Else Get_ShopOpenStatus = "closed."
End Function

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How would you include an existing logo in a worksheet?	Tania	Excel Discussion (Misc queries)	1	April 16th 08 05:03 PM
Formatting worksheets, existing and new, in existing workbooks	G. Dagger[_2_]	Excel Discussion (Misc queries)	4	January 7th 08 06:48 PM
download existing spreadsheets into another existing spreadsheet	lbierer	Excel Discussion (Misc queries)	2	September 24th 06 08:36 PM
Extending Row()	Colin Hayes	Excel Worksheet Functions	4	December 20th 05 11:41 PM
Can inserted rows automatically include existing worksheet formula	tgdavis	Excel Discussion (Misc queries)	2	September 20th 05 09:08 PM

All times are GMT +1. The time now is 08:47 AM.

Menu

About Us