archive-com.com » COM » E » EFG2.COM

Total: 878

Choose link from "Titles, links and description words view":

Or switch to "Titles and links view".

  • abuse telia dk X Trace news101 telia com 921001446 20695 194 255 244 185 9 Mar 1999 17 44 06 GMT Organization Customer at Telia Danmark http www telia dk NNTP Posting Date 9 Mar 1999 17 44 06 GMT Newsgroups borland public delphi winapi It s easy to make one function UnixDateTimeToDelphiDateTime UnixDateTime LongInt TDateTime begin Result EncodeDate 1970 1 1 UnixDateTime 86400 86400 No of secs per day

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0309b.txt (2016-02-14)
    Open archived version from archive



  • en meddelelse news 3acc64f7 1 1 dnews Hi I m trying to get the week number from windows I know that it can be displayed down the side of MonthCalendar but can anybody shen any light on how to get a particular week number given the date Many thanks in Advance Ben Lord Try enclosed code Kind regards Poul function WeekNumber ADay TDateTime Integer var Year Month Day Word WeekDay

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0405c.txt (2016-02-14)
    Open archived version from archive


  • my function To get the current week number for today you would do this Week DateToWeek Now False or Week DateToWeek Now True Finn Tolderlund function DateToWeek ADate TDateTime IncludeYear Boolean Integer written by Finn Tolderlund Denmark 1998 This function converts a date to a weeknumber This function assumes Monday is the 1st day of the week The 1st calendar week is the 1st week of the year that contains

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/1005a.txt (2016-02-14)
    Open archived version from archive


  • delphi objectpascal Function workingDays dtFirst dtLast TdateTime integer Returns number of days pos or neg from dtFirst to dtLast inclusive minus all Saturdays and Sundays Var n integer Begin result 0 move both times to 0 0 dtFirst int dtFirst dtLast int dtLast move dtFirst to next Sunday n 7 dayOfWeek dtFirst if n 5 then inc result n else inc result 5 dtFirst dtFirst n 1 move dtLast to

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0510b.txt (2016-02-14)
    Open archived version from archive


  • Alan Edward Milton wrote Has anybody got details of the calulation for Easter Sunday The basis of the calculation is all I need Procedure Easter Year Word Var Month Day Word Calculates what day Easter falls on in a given year Set desired Year and result is returned in Date variable Var GoldenNo Sun Century LeapCent LunarCorr Epact FullMoon Integer Begin GoldenNo Year Mod 19 1 Century Year Div 100

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0323a.txt (2016-02-14)
    Open archived version from archive


  • many places with information about the ISO 8601 standard I hope that you can provide a few links to them from somewhere on your own web site Perhaps you could add a link to the Open Directory Project site as mentioned above In addition please review the list of links on the ODP site and make a copy of any that you would like to include on your own web site Here are a few others that you may find useful Discussion About the ISO 8601 Standard YahooGroups Implementation of the ISO 8601 Standard around the world a list of countries around the world that have adopted the ISO 8601 standard ISO 8601 Dates What They Are and Why They re Good University of Illinois at Chicago in USA Using the ISO Date Format on Personal Computers Date and Time Week Numbers by Peter J Haas in Germany Date and Time on the Internet Timestamps Chris Newman International Standard Date and Time Notation by Markus Kuhn Info on ISO 8601 the date and time representation standard Setting up your PC to use the Year Month Day date format Setting up your Mac to use the Year Month Day date format International Date Format Campaign by Steve Adams ISO 8601 Date and Time Converting and Implementing ISO 8601 Date Time Representations A simple introduction to ISO 8601 date and time formats University of Wellington in New Zealand This is one of the original ISO 8601 documents one of the very first web sites that ever mentioned the standard Discussion of formats for expressing dates with particular reference to the ISO 8601 date format by Peter Meyer W3C Date and Time Formats A Note concerning usage of ISO 8601 on the Internet by Misha Wolf and Charles Wicksteed ISO Date Time Formats

    Original URL path: http://www.efg2.com/Lab/Library/Delphi/DatesAndTimes/Galpin_ISO8601.txt (2016-02-14)
    Open archived version from archive


  • PrinterSetupDialog TPrinterSetupDialog Edit TEdit procedure ButtonPrintClick Sender TObject procedure ButtonLoadClick Sender TObject procedure CheckBoxStretchClick Sender TObject procedure FormDestroy Sender TObject private BitmapPrint TBitmap public Public declarations end var FormPrintBitmap TFormPrintBitmap implementation R DFM USES Printers Utility routines used below in Click method Based on posting to borland public delphi winapi by Rodney E Geraghty 8 8 97 Used to print bitmap on any Windows printer PROCEDURE PrintBitmap Canvas TCanvas DestRect TRect Bitmap TBitmap VAR BitmapHeader pBitmapInfo BitmapImage POINTER HeaderSize DWORD Use DWORD for D3 D5 compatibility ImageSize DWORD BEGIN GetDIBSizes Bitmap Handle HeaderSize ImageSize GetMem BitmapHeader HeaderSize GetMem BitmapImage ImageSize TRY GetDIB Bitmap Handle Bitmap Palette BitmapHeader BitmapImage StretchDIBits Canvas Handle DestRect Left DestRect Top Destination Origin DestRect Right DestRect Left Destination Width DestRect Bottom DestRect Top Destination Height 0 0 Source Origin Bitmap Width Bitmap Height Source Width Height BitmapImage TBitmapInfo BitmapHeader DIB RGB COLORS SRCCOPY FINALLY FreeMem BitmapHeader FreeMem BitmapImage END END PrintBitmap FUNCTION CenterText s STRING INTEGER BEGIN RESULT Printer PageWidth Printer Canvas TextWidth s DIV 2 END CenterText PROCEDURE PrintFooterTimeStamp CONST LeftMargin INTEGER VAR s STRING BEGIN Footer Printer Canvas Font Name Arial Printer Canvas Brush Color clWhite Printer Canvas Font Height MulDiv GetDeviceCaps Printer Canvas Handle LOGPIXELSY 8 72 s FormatDateTime m d yy h nn Now Printer Canvas TextOut LeftMargin Printer PageHeight Printer Canvas TextHeight X s END PrinterFooterTimeStamp Print Bitmap in landscape orientation with printed image width 80 of page Assumes bitmap to print is a TBitmap in BitmapPrint Don t Print a DDB in a TImage Try always to print a DIB from an in memory TBitmap procedure TFormPrintBitmap ButtonPrintClick Sender TObject VAR iFromLeftMargin INTEGER iPrintedImageWidth INTEGER jDelta INTEGER jFromTopOfPage INTEGER jPrintedImageHeight INTEGER s STRING begin ASSERT BitmapPrint PixelFormat pf24bit IF PrinterSetupDialog Execute THEN BEGIN Screen Cursor crHourGlass TRY Printer BeginDoc Header

    Original URL path: http://www.efg2.com/Lab/Library/Delphi/Printing/StretchDIBitsDemo.txt (2016-02-14)
    Open archived version from archive


  • hFont NewFont hFont begin Printer BeginDoc Printer Canvas Font Name Arial Printer Canvas Font Size 24 Printer Canvas Font PixelsPerInch GetDeviceCaps Printer Canvas Handle LOGPIXELSY GetObject Printer Canvas Font Handle sizeof lf lf lf lfEscapement 450 lf lfOrientation 450 Check here that lf is properly filled out NewFont CreateFontIndirect lf OldFont SelectObject Printer Canvas Handle NewFont Windows TextOut Printer Canvas Handle 2 5 over 3 0 down ROUND 2 5

    Original URL path: http://www.efg2.com/Lab/Library/Delphi/Printing/JoeHechtRotatedFontOnPrinter.TXT (2016-02-14)
    Open archived version from archive



  •