PureBasic

Forums PureBasic
Nous sommes le Jeu 22/Aoû/2019 0:34

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 4 messages ] 
Auteur Message
 Sujet du message: JulianToGregorian (pour archive)
MessagePosté: Jeu 19/Déc/2013 19:06 
Hors ligne

Inscription: Mer 14/Sep/2011 16:59
Messages: 903
Code:
; DWORD JulianToGregorian(DWORD Yj, DWORD Mj, DWORD Dj, DWORD* Yg, DWORD* Mg, DWORD* Dg)
;
; This function converts the Julian date to the adequate Gregorian date.
;
; Parameters:
;   Yj - year of the Julian date,
;   Mj - month of the Julian date,
;   Dj - day of the Julian date,
;   Yg - pointer to variable where the calculated year number of the Gregorian date will be stored,
;   Mg - pointer to variable where the calculated month number of the Gregorian date will be stored,
;   Dg - pointer to variable where the calculated day number of the Gregorian date will be stored.
;
; Returned values:
;   * 0 for the valid Julian date,
;   * -1 in opposite case.
;
Procedure.l JulianToGregorian( Yj.l, Mj.l, Dj.l, Yg.l, Mg.l, Dg.l)
  Protected tmpeax.l
  EnableASM
  juliantonum:
  DateToAbsDayNum( Yj, Mj, Dj, 0)
  MOV tmpeax, eax
  TEST   eax, eax
  JZ   l_juliantogregorian_error
 
  numtogregorian:
  AbsDayNumToDate( tmpeax, 1, Yg, Mg, Dg)
  JMP   l_juliantogregorian_theend
 
  error:
  MOV   eax, -1
 
  theend:
 
  DisableASM
  ProcedureReturn

EndProcedure


M.


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: JulianToGregorian (pour archive)
MessagePosté: Dim 21/Déc/2014 23:12 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 25/Avr/2008 11:14
Messages: 1336
bonsoir aleeza
voici l'adresse ou Mesa à terminé ce projet:
http://www.purebasic.fr/french/viewtopic.php?f=12&t=14145

Cordialement


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: JulianToGregorian (pour archive)
MessagePosté: Lun 22/Déc/2014 1:01 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 22/Aoû/2010 15:24
Messages: 6849
Localisation: IDF (Yvelines)
aleeza est un bot ou un plaisantin qui n'a fait que répéter les commentaires du code de Mesa. Son message ainsi que les commentaires qui suivent sont à mon avis à supprimer.

PS: Ce n'est pas la première fois que je vois cette signature (sara)

_________________

➽ Config PureBasic : i3, RAM 4Go, NVidia (1024 Mo), Windows 10 - PB 5.70 LTS
➽ Je papote aussi sur http://purebasic.chat

➽ Sites personnels http://falsam.com & EasySprite.js

➽ Je ne réponds pas aux MP techniques


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: JulianToGregorian (pour archive)
MessagePosté: Lun 22/Déc/2014 9:36 
Hors ligne
Avatar de l’utilisateur

Inscription: Ven 25/Avr/2008 11:14
Messages: 1336
bonjour falsam
OOoooh, M... :?
Mais bon voilà ....en fait cela donne une infos pour la personne qui arrive sur ce post, il pourra suivre ce thème :D
bonne journée


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 4 messages ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 2 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  
cron

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye