Skocz do zawartości


Zdjęcie

[Turbo Pascal]wyciąganie daty, czasu itp


  • Zamknięty Temat jest zamknięty
3 odpowiedzi w tym temacie

#1 Benkowik

Benkowik

    Obserwator

  • 9 postów

Napisano 15 01 2008 - 07:34

Witam,
Chodzi mi o TP
Potrzebne są mi kody które z Windowsa będą wyciągały
-datę
-czas
-ile komputer już chodzi (miałem ten kod ale do Delphi a mi potrzebny do pascala.)
-ewentualnie z jakiego systemu korzystamy !



Bardzo proszę o pomoc ! Z góry dziękuje ludziom dużej wiedzy @

  • 0

#2 subde

subde

    Początkujący

  • 40 postów

Napisano 15 01 2008 - 15:25

Musisz cos poszukac o module dateutils tam so procedury i funkcje ktore powinny ci sie przydac np.

Reference for unit 'dateutils': Constants
ApproxDaysPerMonth Average number of days in a month, measured over a year. Used in MonthsBetween.

ApproxDaysPerYear Average number of days in a year, measured over 4 years. Used in YearsBetween.

DayFriday ISO day number for Friday

DayMonday ISO day number for Monday

DaySaturday ISO day number for Saturday

DaysPerWeek Number of days in a week.

DaysPerYear Array with number of days in a year. The boolean index indicates whether it is a leap year or not.

DaySunday ISO day number for Sunday

DayThursday ISO day number for Thursday

DayTuesday ISO day number for Tuesday

DayWednesday ISO day number for Wednesday

MonthsPerYear Number of months in a year

OneHour One hour as a fraction of a day (suitable for TDateTime)

OneMillisecond One millisecond as a fraction of a day (suitable for TDateTime)

OneMinute One minute as a fraction of a day (suitable for TDateTime)

OneSecond One second as a fraction of a day (suitable for TDateTime)

RecodeLeaveFieldAsIs Bitmask deciding what to do with each TDateTime field in recode routines

WeeksPerFortnight Number of weeks in fortnight

YearsPerCentury Number of years in a century

YearsPerDecade Number of years in a decade

YearsPerMillennium Number of years in a millenium

Co do tego pokazywania nazwy systemu to raczej tego nie znajdziesz w standardowych modulach Free Pascal'a Ogólnie dosylam do http://www.freepascal.org/docs.html tam to napewno jest napisane.

PS.
Nie wiem czemu to chcesz napisac w pascalu ale ok.

  • 0

#3 magik70

magik70

    Początkujący

  • 16 postów

Napisano 18 01 2008 - 20:39

Ej a gdzie to można ściągnąć jeżeli można :)
  • 0

#4 subde

subde

    Początkujący

  • 40 postów

Napisano 19 01 2008 - 14:16

hmmm a co chcesz scigac ?? Ten modul jest standardowy w pascalu i nic wiecej nie trzeba sciagac Wystarczy ci jakis kompilator np Free Pascal

  • 0

Zobacz więcej tematów z tagiem: Turbo Pascal Delphi



Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych