English
Source / code snippets

inquire date System-Date

 

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
date: System-Date inquire
Declare Day$[7],Month$[12]
Day$[0] = sunday
Day$[1] = monday
Day$[2] = Diestag
Day$[3] = wednesday
Day$[4] = thursday
Day$[5] = friday
Day$[6] = saturday
Month$[0] = january
Month$[1] = february
Month$[2] = March
Month$[3] = april
Month$[4] = May
Month$[5] = june
Month$[6] = july
Month$[7] = august
Month$[8] = september
Month$[9] = october
Month$[10] = november
Month$[11] = december
Declare TimeStruct#
Struct _TimeStruct = wYear%,
wMonth%,
wDayOfWeek%,
wDay%,
wHour%,
wMinute%,
wSecond%,
wMilliseconds%
Dim TimeStruct#,_TimeStruct
Def GetSystemTime(1) !Kernel32,GetSystemTime
Def GetLocalTime(1) !Kernel32,GetLocalTime

Proc spending

    With TimeStruct#

        Print Day$[.wDayOfWeek%] +  the   + Str $(.wDay%) + .  + Month$[.wMonth% - 1] +   + Str $(.wYear%)
        Print Str $(.wHour%) + : + Str $(.wMinute%) + : + Str $(.wSecond%) + : + Str $(.wMilliseconds%)

    EndWith

ENDPROC

GetSystemTime(TimeStruct#)
spending
GetLocalTime(TimeStruct#)
spending
WaitInput
 
07/15/07  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

3.626 Views

Untitledvor 0 min.
Langer01/30/21
Heltal08/03/14
Hanibal06/01/13
iF12/28/12
More...

Themeninformationen

this Topic has 1 subscriber:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie