Sviluppatori 4D

• Alfanet srl
• Assocons srl
• Codi srl
• Eskimo srl
• Infosu srl
• Megalink
• MG Softwaring sas
• Micromatica srl
• Mindsoft
• Nexid srl
• PCA Italia snc
• Quickfox
• Rinascita Informatica
• Sica-it
• Studio Garavini

Utility 4D

• A dog and his boy
  lapd component
• Aparajitaworld
  Active4d, objecttools
• BBSP
  logTools, BBBase
• BusinessKube
  4D Job wallet
• Hmplugins
  Hmcal, Hmreports, Hfree
• Internet Toolkit
• Math4D
  free math library
• Nexid Web Service Server
• Nufocus
• OpenRoadDevelopment
  CodeAnalysis free component
• Orchard Software
  win32api, resource editor
• Pelican Engineering
  EXT/JS appbuilder, Remoting
• SGBD Products software
  TransportX, 4diTools
• Association Qualisoft
  QS_Toolbox

Risorse 4D

• 4D Github
• 4D Pdo
• 4D Sources
• 4dgeek Github
  tinynce, json editore
• Bluecompany
  Graph, Calendar
• E-node
  AreaList Pro, SuperReport Pro
• Escape
  qpix, DICOM Medical Viewer
• Foundation Shell
• Inforce
  UpdateMaker, Inside4d, Zip4d
• Keisuke Miyako
• Microbizz
  4D CAD plugin
• Pluggers
  ApiPack, PDFViewer, LDAP, MD5
• Ronri-kobo
  F-ab, JExternal

Naviga:

Titolo: Riconoscere un anno bisestile *

Categoria: Codice

Ultimo Aggiornamento: 27/09/04

Ecco un piccolo frammento di codice che prende in input un numero e restituisce True se l'anno rappresentato dal numero è bisestile:

C_BOOLEAN($0)
C_LONGINT($1;$anno_l)
$anno_l:=$1
$0:=True
Case of
    : (Dec($anno_l/400)=0)
        `è bisestile, come il 2000
    : (Dec($anno_l/100)=0)
        `non è bisestile, come il 1900
        $0:=False
    : (Dec($anno_l/4)=0)
        `è un anno bisestile
    Else
        $0:=False
End case

Inviato da: PierPaolo Sichera

Visite: 15230

Umberto Migliore	27/09/04 00:00:00
Propongo una riga singola per fare la stessa cosa, sconsigliabile da usare ma divertente da guardare: `ritorna vero se anno bisestile $anno_L:=$1 $0:=(2=Month of(Add to date(!00-00-00!;$anno_l;2;29)))

Se accedi con utente e password, puoi aggiungere dei commenti.

---

Accesso

User:
Pass:	Accedi

---

Cerca

Se non trovi le informazioni che cerchi scrivi a aiuto@sviluppo4d.it

4D Principali

• 4D Blog
• 4D Italia
• 4D Francia
• 4D Knowledgebase 2.0
• 4D US
• 4D Partner Central
• 4D Store - Le proprie Licenze
• 4d su Wikipedia Italiana
• 4D su Youtube
• FTP Pubblico 1
• FTP Pubblico 2
• Pagina Sviluppo4d su Facebook
• Wakanda

4D Discussioni

• 4D Blog
• 4D Forum
• 4D Method User Group
• 4D Today
• Blog Slicksurface

Faq random

• Cosa fare se 4D si chiude all'avvio
• 4D 2004 - Il comando SELECT LISTBOX ROW
• Un pulsante con più scorciatoie per la tastiera
• Dove mettere i certificati per SSL
• Calcolo del codice fiscale
• Creare una selezione da valori multipli
• Nomi di variabili riservati
• Lanciare una stored in 4d 2004 *
• Come aggiungere un campo di ricerca ad un form
• 2004.1: creare relazioni da linguaggio con AP Create relation
• Application type
• Calcolo del numero della settimana (2)
• LAUNCH EXTERNAL PROCESS come Terminale MacOSX o Prompt dei comandi Windows
• Linee di codice su più righe
• Cambiare il set di caratteri usando i comandi SQL
• Impostare il timeout di una chiamata SOAP
• I cambiamenti del form event On Display Detail
• [v11 SQL] Le query sui campi NULL e Map NULL values to blank values
• [v11 SQL] Aprire un file trascinato sull'icona di 4d
• [v11 SQL] Requisiti minimi

Crediti

Dominio registrato da ZetaNet
Sito realizzato da Nexus srl
4D SQL 11.9.0 offerto da 4D & Italsoftware
Icone di FAMFAMFAM
Moderato da Umberto Migliore
329 utenti registrati