Question : Un problème de module de date de Perl

Bonjour, le

I peut rechercher la date d'aujourd'hui using la date : : Module de CALC. Pouvez-vous des pls aider quant à la façon dont je peux rechercher des minutes d'aujourd'hui d'heure et temps de sec using le même module dans un autre variable indiquent $cob_date1 ? class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
date " de " codeSnippet836742 d'id= " de 
use de class= : : Qw de CALC (: tous) ;


_getCOB secondaire {

mon $mon = « JanFebMarAprMayJunJulAugSepOctNovDec » ;

mon @date ;

mon ($year, $month, $day) = Add_Delta_Days (aujourd'hui (), 0) ;


mon $dow = Day_of_Week ($year, $month, $day) ;

#if (== de $dow 1) {
# @date = Add_Delta_Days (aujourd'hui (), -3) ;
#}

#elsif (== de $dow 7) {
# @date = Add_Delta_Days (aujourd'hui (), -2) ;
#}


  @date = Add_Delta_Days (aujourd'hui (), -0) ;


mon $date = $date [2]. « - ». substr ($mon, $date [1] *3 - 3, 3). « - ». $date [0] ;

$date de retour ;
}


mon $cob_date ;

$cob_date = &_getCOB () ;

copie $cob_date ;
class= de

Réponse : Un problème de module de date de Perl

Pour simplifier et augmenter sur ce que vous avez, vous pouvez faire ceci…
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :

date d'utilisation : : Qw de CALC (: tous) ;

mon @mon = qw (janv. fév. mars avr. peut juin juillet août sept oct. nov. décembre) ;

_getCOB secondaire {

    mon @date = aujourd'hui () ;

    # commenté dehors puisque non utilisé
    #my $dow = Day_of_Week (@date) ;

    mon $date = $date [2]. « - ». $mon [$date [1]]. « - ». $date [0] ;

    $date de retour ;
}


mon $cob_date = &_getCOB () ;
mon $cob_date1 = se joignent « :  », Maintenant () ;

copie $cob_date, « \ t », $cob_date1, » \ n " ;
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us