Results 1 to 2 of 2

Thread: [RESOLVED] VB6 Implementation Of asctime()???

  1. #1

    Thread Starter
    Addicted Member Xiphias3's Avatar
    Join Date
    Jan 2009
    Location
    Clarendon, Jamaica
    Posts
    188

    Resolved [RESOLVED] VB6 Implementation Of asctime()???

    OK, ive been doing some work with IRC and i need some help.
    The command with the numeric code 333 is sent to inform the client who and when the topic was set.

    Format: 333 <channel> <nickname> <time>
    Example: 333 #boredom IAmBored 902508764

    Parameters:
    <channel> A channel name.
    <nickname> User who last set the channel topic.
    <time> The time the user set the current channel topic

    Notes:
    Use $asctime() to convert 'time' to a readable value.

    I want to convert the time value to something 'readable'. Everywhere i look, people just use asctime(), which makes sense. My question is, does anyone known how to implement asctime() is VB6, or just an explanation on how-to, since writing code yourself is more beneficial or something that fulfills my needs?

    Any replies will be appreciated. Thanks in advance.
    Last edited by Xiphias3; Apr 20th, 2009 at 11:14 PM.

  2. #2

    Thread Starter
    Addicted Member Xiphias3's Avatar
    Join Date
    Jan 2009
    Location
    Clarendon, Jamaica
    Posts
    188

    Re: VB6 Implementation Of asctime()???

    First and foremost WOW!
    This turned out to be more complicated than I thought.

    It seems I have found the answer in a module named modTime in the sIRC project by vcv located on planetsourcecode.com (http://planetsourcecode.com/vb/scrip...32554&lngWId=1).
    However, real credit seems to go to "Jason" on PSC as this was at the top of the module:

    Code:
    '* This module is composed of functions
    '* off of planet-source-code given to me
    '* by a person going under the name of 'Jason'
    '* and I thank him for it.
    Here's the function i was interested in:
    Code:
    Function AscTime(CTime As Long) As Date
        AscTime = CDate(#1/1/1970# - GetGMTBias / 60 / _
        24) + (CTime / 3600& / 24)
    End Function
    Hopefully ill be able to figure this out!
    /THREAD

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width